哪位大虾知道怎么提取二维多义线的顶点啊..........急................

picachoboy

meflying

(setq ent (entget polyline_name))
(assoc 10 ent)
去除此项后，继续(assoc 10 ent)取下一个顶点

picachoboy

是二维多义线啊，用(entget(car(entsel)))看不到顶点表的

meflying

怎么会没有，以下就是我用你的代码的返回，看看，10开头的子表后两项就是顶点的横坐标和纵坐标

((-1 . <Entity name: 7ea58d00>) (0 . "LWPOLYLINE") (330 .
<Entity name: 7ea55cf8>) (5 . "CD0") (100 . "AcDbEntity") (67 . 0) (410 .
"Model") (8 . "0") (100 . "AcDbPolyline") (90 . 7) (70 . 0) (43 . 0.0) (38 .
0.0) (39 . 0.0) (10 457.211 100.396) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
618.254 100.396) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 618.254 197.314) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 120.485 197.314) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 120.485 82.11) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 255.907 82.11) (40
. 0.0) (41 . 0.0) (42 . 0.0) (10 255.907 153.427) (40 . 0.0) (41 . 0.0) (42 .
0.0) (210 0.0 0.0 1.0))

lyy

他说的应该是三维多义线polyline吧!

picachoboy

是这种线    (0 . "polyline")

meflying

(setq a pl_name)
(setq b (entnext a))
(entget b);取出第一点
(setq b (entnext b))
(entget b);取出第二点
...