autolisp in LDD

[om_change]

I using LDD 2i, i often need other routine that not available in LDD, so i try to make in autolisp. I have several problem :
1. How to access point id in my LDD point database so i can use the attribute of that point to my lisp.
2. How to call the menu in LISP? example : i want to use Point -> Create Point -> Manual in LISP. (Menu Point are available in LDD)

Thanx a lot

[MarkTheSwampThomas]

how about this

(defun MST-CreateCogoPoint (PointCoords / AeccProject Pnts NewPoint)

  (vl-load-com)

  (if
    (listp PointCoords)
    (progn
      (vl-catch-all-apply 
        (function 
          (lambda () 
            (setq AeccProject
                  (vlax-get-property
                    (vla-getinterfaceobject
                      (vlax-get-acad-object) "Aecc.Application")
                    'ActiveProject)
                  ); setq

            (setq Pnts 
                  (vlax-get-property
                    AeccProject 'CogoPoints)
                  ); setq

            (setq 
              Count (vlax-get-property Pnts 'Count)
              ) 

            (setq
              NewPoint
              (vlax-invoke-method Pnts 'Add 
                (vlax-3D-point PointCoords) 1)
              ); setq

            (setq
              NewPointNum (vlax-get-property NewPoint 'Number)
              )
            ); lambda
          ); function
        ); vl-catch-all-apply
      ); progn
    ); if

  ); defun

[om_change]

Thanx mark, let me try this lisp. I still confusing about how to make lisp to draw polyline with given ID Point or Description of point, not the coordinat or getent thing. I think that gonna be a big memory, because i had to collect all information about that point using selection of set do i right?