Hello all
I'm creating civil point on the ALIGNMENT when I click on the profile Using the lisp
Is it possible to show this point on the profile through the command AeccProjectObjectsToProf
Is the command: _AeccProjectObjectsToProf It can be used through the lisp
this is lisp
(defun c:test ( / ELEV ENT ENTALIGNMENT: OBJ PNT POINTLIST PT PTLIST PTLST STA TESTPNTTT VLAOBJ X Y)
(vl-load-com)
;;; Jeff Mishler
(defun getC3D ()
(vl-load-com)
(setq C3D (strcat "HKEY_LOCAL_MACHINE\\"
(if vlax-user-product-key
(vlax-user-product-key)
(vlax-product-key)
)
)
C3D (vl-registry-read C3D "Release")
C3D (substr
C3D
1
(vl-string-search
"."
C3D
(+ (vl-string-search "." C3D) 1)
)
)
C3D (vla-getinterfaceobject
(vlax-get-acad-object)
(strcat "AeccXUiLand.AeccApplication." C3D)
)
)
(setq C3Ddoc (vla-get-activedocument C3D))
)
(getC3D)
(setq points (vlax-get C3Ddoc 'points))
(setq ent (entsel "\nSelect profile view:"))
(setq obj (vlax-ename->vla-object (car ent)))
(setq vlaobj (vlax-get-property obj 'parent))
(while
(SETQ pt (GETPOINT "\n-> Specify a point :"))
(progn
(vlax-invoke-method obj 'FindStationAndElevationAtXY (CAR pt) (CADR pt) 'sta 'elev 'inside);; OK
(setq testpnttt (list sta elev));;OK
(vlax-invoke-method vlaobj 'PointLocation sta 3 'x 'y)
(setq pntAL (list x y));;OK
(setq oCogo(vlax-invoke points 'add (LIST (car pntAL) (cadr pntAL) elev)))
;;;; command: _AeccProjectObjectsToProf
)
)
(princ));;;;
thank you
