串多义线

torcky

;将所选择的line或arc串成多义线 (defun c:ddx (/ ssa ssa-ent ent-p i)
(command "undo" "be");设置返回起始点
(setq ssa (ssget))
(setq i 0)
(while (< i (sslength ssa))
(setq ssa-ent (ssname ssa i))
(setq ent-p (cdr(assoc 0 (entget ssa-ent))))
(if (not (null ent-p));判断原图元是否已串入多义线
(if (or (= ent-p "LWPOLYLINE") (= ent-p "POLYLINE"));判断原图元属性
(command "pedit" ssa-ent "j" ssa "" "")
(command "pedit" ssa-ent "y" "j" ssa "" "")
))
(setq i (1+ i))
)
(command "undo" "e");设置返回终止点
(princ)
)

xjjy

谢谢！


能否加一个提示生成多义线数量，及是否封闭？

spshchen

谢谢大哥，帮我解决了一个问题 ;将所选择的line或arc串成多义线 (defun c:ddx (/ ssa ssa-ent ent-p i)
(command "undo" "be");设置返回起始点
(command "qselect" "" "")
(setq ssa (ssget))
(setq i 0)
(while (< i (sslength ssa))
(setq ssa-ent (ssname ssa i))
(setq ent-p (cdr(assoc 0 (entget ssa-ent))))
(if (not (null ent-p));判断原图元是否已串入多义线
(if (or (= ent-p "LWPOLYLINE") (= ent-p "POLYLINE"));判断原图元属性
(command "pedit" ssa-ent "w" "5" "j" ssa "" "")
(command "pedit" ssa-ent "y" "w" "0.5" "j" ssa "" "")
))
(setq i (1+ i))
)
(command "undo" "e");设置返回终止点
(princ)
) 我这样一改就可以实现先选择其中一层的线，实现先选择线后 PE 线了。

f5612140

如果不考虑不同图层的问题,不用程序,pedit-&gt;m或mpedit就可搞定

vladimirputin

这个代码可以参考，谢谢楼主分享啊。