如何获取POLYLINE群码?

hkzwsy

(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 . <图元名: 4006de18>) (0 . "POLYLINE") (330 . <图元名:
4006dcf8>) (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

顶点对象使用


(entnext ent)


一直循环下去，直到对象类型为：SEQEND结束。


另，选择对象使用(entsel)即可，

无痕

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

hkzwsy

((-1 . <图元名: 4005fd88>) (0 . LWPOLYLINE) (330 . <图元名: 4005fcf8>) (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 . <图元名: 4005fd88>) (0 . "LWPOLYLINE") (330 . <图元名: 4005fcf8>)
(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

楼上这是做什么？