how about this
Code:
(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