社区 › AutoCAD工具插件 › 批量交点打断（秒杀）

【KAIXIN】 发表于 2011-12-15 14:21:44

w245272914 发表于 2011-12-15 13:53 static/image/common/back.gif
KAIIXIN 我来看你来了。

谢谢！

328302216 发表于 2011-12-15 15:17:11

有没有把断的合并成一条直线的程序啊！！比如两条直线首尾相连的合并成一条

【KAIXIN】 发表于 2011-12-15 15:22:00

328302216 发表于 2011-12-15 15:17 static/image/common/back.gif
有没有把断的合并成一条直线的程序啊！！比如两条直线首尾相连的合并成一条

                                        ;
(defun ss-sslist (ss / n en enlis)
(setq n (sslength ss))
(repeat n
    (setq en (ssname ss (setq n (1- n))))
    (setq enlis (cons en enlis))
)
)
(defun c:test (/ ss)
(setvar "CMDECHO" 0)
(command "undo" "be")
(setq ss (ssget))
(setq ss (ss-sslist ss))
(foreach x ss
    (mapcar '(lambda (y)
               (command "join" x y "")
             )
            ss
    )
)
(command "undo" "e")
(setvar "CMDECHO" 1)
(princ)
)

qq229918602 发表于 2011-12-15 21:03:08

厉害。。。支持

缘份呐 发表于 2011-12-15 21:54:10

不行呀，我下不了呀

longer1000 发表于 2011-12-16 09:13:38

有这个功能用就可以

flytoday 发表于 2011-12-16 11:15:44

【KAIXIN】 发表于 2011-12-16 11:23:21

flytoday 发表于 2011-12-16 11:15 static/image/common/back.gif


你没仔细用程序，有提示打断不了多段线！

不过解决办法是用分解功能可以分解。;打碎多段线线
(defun c:KK ()
(if (setq ss (ssget "X" '((0 . "*POLYLINE"))))
    (command "_explode" ss "")
)
)

flytoday 发表于 2011-12-16 13:24:54

【KAIXIN】 发表于 2011-12-16 11:23 static/image/common/back.gif
你没仔细用程序，有提示打断不了多段线！

不过解决办法是用分解功能可以分解。

太强大了~~~~~~~~

【KAIXIN】 发表于 2011-12-16 13:46:35

flytoday 发表于 2011-12-16 13:24 static/image/common/back.gif
太强大了~~~~~~~~

谢谢！比起版主们我差远了！

好的东西你适当的支持下我就行！

查看完整版本: 批量交点打断（秒杀）