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?