如何获取POLYLINE群码?

hkzwsy · 发表于 2004-2-20 19:32:00

(defun c:test ()
   (setq p (getpoint "\nPick Point:"))
   (setq ents (entget (ssname (ssget p) 0)))
   (setq lst (member (list 10 (car p)(cadr p)) ents))
   (princ lst)
   (foreach i (list (assoc 10 lst)(assoc 40 lst)(assoc 41 lst)(assoc 42 lst))
   (setq ents (vl-remove i ents))
   )
   (entmod ents)
)
只能获取:
((-1 . ) (0 . "POLYLINE") (330 . ) (5 . "43") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDb2dPolyline") (66 . 1) (10 0.0 0.0 0.0) (70 . 1) (40 . 0.0) (41 .
0.0) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0))
没有详细坐标点及凸度(10    11 42)

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

meflying · 发表于 2004-2-20 20:11:00

顶点对象使用
(entnext ent)
一直循环下去，直到对象类型为：SEQEND结束。
另，选择对象使用(entsel)即可，

无痕 · 发表于 2004-2-20 21:35:00

没有详细坐标点及凸度(10 11 42)？
(setq ents (vl-remove i ents))
你自己删去了还问别人？程序是你自己写的么？

hkzwsy · 发表于 2004-2-20 21:59:00

((-1 . ) (0 . LWPOLYLINE) (330 . ) (5 . 31)
(100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbPolyline) (90 . 6)
(70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 197.682 63.9928) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 354.602 149.112) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
225.266 224.434) (40 . 0.0) (41 . 0.0) (42 . 0.577353) (10 107.576 157.073) (40
. 0.0) (41 . 0.0) (42 . 0.213669) (10 145.58 71.3412) (40 . 0.0) (41 . 0.0) (42
. 0.0943275) (10 186.036 46.8464) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0
1.0))((-1 . ) (0 . "LWPOLYLINE") (330 . )
(5 . "31") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 6) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 197.682
63.9928) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 354.602 149.112) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 225.266 224.434) (40 . 0.0) (41 . 0.0) (42 . 0.577353) (10
107.576 157.073) (40 . 0.0) (41 . 0.0) (42 . 0.213669) (10 145.58 71.3412) (40
. 0.0) (41 . 0.0) (42 . 0.0943275) (10 186.036 46.8464) (40 . 0.0) (41 . 0.0)
(42 . 0.0) (210 0.0 0.0 1.0))

meflying · 发表于 2004-2-20 23:02:00

楼上这是做什么？

如何获取POLYLINE群码?

发表回复

精选推荐