【文件属性】:
文件名称:多段线合并程序
文件大小:322B
文件格式:LSP
更新时间:2017-12-10 03:21:38
多段线合并 多条
解决autcad 中多条多段线合并问题
网友评论
- 应说明使用的语言......
- 垃圾!
(defun c:bdx( / ss i ename endata entype)
(princ "\n选择线段 <右键选择集>: ")
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
(command "PEDITACCEPT" "1")
(if ss
(command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
(command ".pedit" "m" "p" "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
))