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))
Access a broad range of knowledge to help get the most out of your products and services.