- 积分
- 242
- 明经币
- 个
- 注册时间
- 2016-10-26
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
(defun C:LJX (/ PAT SS)
(setvar "CMDECHO" 0)
(princ "\n连接直线、圆弧、多段线 转为 多段线")
(setq PAT (getvar "PEDITACCEPT"))
(setvar "PEDITACCEPT" 1)
(if (setq SS (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
(vl-catch-all-apply
'(lambda ()
(command "._Convert" "P" "S" SS "")
(command "._Pedit" "M" SS "" "J" "1" "")
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))
)
)
)
(setvar "PEDITACCEPT" PAT)
(princ)
)
有没有改进方法 |
评分
-
查看全部评分
|