entnext 对二维多段线处理的问题

高级用户 · 发表于 2008-9-22 15:00

本帖最后由作者于 2008-9-22 15:00:55 编辑

附上图纸

在图纸中，有一根二维多段线，执行一下程序有问题：

(setq ent (entlast))

然后随便画根线

(setq ent (entnext ent))

(command "move" ent "" pause) ;;;为什么移动的还是那根线，而不是后来画上的线？

caoyin · 发表于 2008-9-22 15:36

entnext得到的是二维多段线的下一个“段”，需要循环直到"SEQEND"结束

(while
(member (cdr (assoc 0 (entget (setq ent (entnext ent)))))
'("ATTRIB" "VERTEX" "SEQEND")
)
)

高级用户 · 发表于 2008-9-22 16:49

本帖最后由作者于 2008-9-22 16:52:13 编辑

谢谢，问题解决了

不过有点不明白，我的图中只有一条线，也就是只有一段啊

caoyin · 发表于 2008-9-22 17:06

但有两个顶点，一个SEQEND

账号		自动登录	找回密码
密码			注册