[求助]访问图形数据库中的pline，求取各个拐点的坐标

匡匡

大家好，请教一个问题。

我在AutoCAD中画了一个多边形。想读取多边形各个拐点的坐标。通过访问图形数据库。

(setq e (entnext))

(while e

  (setq e1 (entget e))

  (if(="LWPOLYLINE " (cdr (assoc 0 e1)))

      (cdr(assoc 10 elist))//10是拐点坐标，这里只能返回一个多边形一个点的值，怎么才能返回所有点的值呢？而且每个点的坐标标志都是“10”啊？

  )

)

就一小卒

用 nth函数 依次返回e1表的元素，在用car函数返回首元素，在判断是否以10开头的就可以了啊

 

匡匡

谢谢了。如果我使用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 ... )
我怎么才能提取出坐标呢？

ZZXXQQ

(setq plst (list))

(if (= (cdr(assoc 0 (setq ent (entget(car(entsel)))))) "LWPOLYLINE")

 (foreach x ent (if (= (car x) 10) (setq plst (cons (cdr x) plst))))

)

xshrimp

(setq entlst (entget (car (entsel))))

 

(vl-remove-if-not '(lambda(x)(= 10 (car x)) ) entlst)

匡匡

多谢！

就一小卒

如果用vlisp的 话 如下 ((setq b (vlax-ename->vla-object a)) 首先将cad对象转换为VLA对象
(setq point (vlax-safearray->list (vlax-variant-value (vlax-get-property b 'coordinate i))))提取coordinate的属性。i为表的长度 i=0时提取提取第一个元素