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

meflying · 发表于 2003-9-15 11:48:00

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

picachoboy · 发表于 2003-9-15 11:50:00

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

meflying · 发表于 2003-9-15 12:35:00

怎么会没有，以下就是我用你的代码的返回，看看，10开头的子表后两项就是顶点的横坐标和纵坐标
((-1 . ) (0 . "LWPOLYLINE") (330 .
) (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))