谢谢了。如果我使用Activex,如下面:
(setq myacad(vlax-get-acad-object)) (setq mydoc(vla-get-ActiveDocument myacad)) (setq myms(vla-get-ModelSpace mydoc)) (setq my (vla-item myms 0)) (vlax-dump-object my t)
出现以下信息:
; IAcadLWPolyline: AutoCAD Lightweight Polyline 接口 ;特性值: ; Application (RO) = #<VLA-OBJECT IAcadApplication 00c2eb8c> ; Area (RO) = 8950.36 ; Closed = -1 ; ConstantWidth = 0.0 ; Coordinate = ...不显示带索引的内容... ; Coordinates = (809.203 829.272 842.478 849.13 894.903 817.309 ... ) ; Document (RO) = #<VLA-OBJECT IAcadDocument 0747bef4> ; Elevation = 0.0 ; Handle (RO) = "10B" ; HasExtensionDictionary (RO) = 0 ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 074fcb84> ; Layer = "图层1" ; Length (RO) = 616.994 ; Linetype = "ByLayer" ; LinetypeGeneration = 0 ; LinetypeScale = 1.0 ; Lineweight = -1 ; Normal = (0.0 0.0 1.0) ; ObjectID (RO) = 2130067480 ; ObjectName (RO) = "AcDbPolyline" ; OwnerID (RO) = 2130062584 ; PlotStyleName = "ByLayer" ; Thickness = 0.0 ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 074fca20> ; Visible = -1
这里面的有坐标信息,; Coordinates = (809.203 829.272 842.478 849.13 894.903 817.309 ... ) 我怎么才能提取出坐标呢?
|