whoisyourba 发表于 2016-10-27 16:37:08

求帮助 相邻多段线连接 我在网上找个一个代码但是感觉运行缓慢

(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)
)
有没有改进方法

依然小小鸟 发表于 2018-8-30 16:56:36

挺好的啊 不卡啊这么好的帖子没人顶

烟盒迷唇 发表于 2019-6-10 09:48:36

图纸太大，多段线太多，运行就缓慢

树櫴希德 发表于 2019-6-13 14:46:25

好帖子 收藏了 慢是电脑问题？
页: [1]
查看完整版本: 求帮助 相邻多段线连接 我在网上找个一个代码但是感觉运行缓慢