I have lisp code to extract the vertices from a LWpolyline. Can someone point to me the way to do this with AecPolyGons? I know that a couple releases ago... autodesk pulled most all of the top level group code data out of Aec and Mep objects... so that you need to use .NET or lisp ActiveX functions... but I can't seem to discover the collection of vertices.
I believe I've found the solution:
(defun AecPolyVerts (Ent /)
(if (null lst2lists)(load "listfuns"))
(setq VlaPoly (vlax-ename->vla-object Ent))
(setq VLProfile (vlax-get-property VlaPoly "Profile"))
(setq VLCoorinates (vlax-get-property VLProfile "Coordinates"))
(setq Coords (vlax-safearray->list (vlax-variant-value VLCoorinates)))
(setq Coords (lst2lists Coords 2))
Coords
)
I spoke too soon. The vertices don't seem to update... they remain the same even when the object is moved. What am I missing?
Can't find what you're looking for? Ask the community or share your knowledge.