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))
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register
Start with some of our most frequented solutions to get help installing your software.