【KAIXIN】 发表于 2011-12-12 16:48:22

Andyhon 发表于 2011-12-12 16:40 static/image/common/back.gif
您试试 IntelliJoin.Lsp
http://www.google.com/search?q=%22IntelliJoin.Lsp

谢谢！已经搞定，用JOIN的加强.........

ahwx0814 发表于 2011-12-12 16:57:04

如果线段不多的话，可以使用join加强版                                        ;
(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)
)

【KAIXIN】 发表于 2011-12-12 17:01:11

ahwx0814 发表于 2011-12-12 16:57 static/image/common/back.gif
如果线段不多的话，可以使用join加强版

谢谢！学习了这个

198526 发表于 2011-12-12 17:47:05

经简
学习了

甲子元 发表于 2012-1-18 11:49:28

怎样实现的？请告之，源码

weimeng555 发表于 2024-3-23 15:21:37

最近刚好需要这个功能的插件，但是需要的是求批量多根直线求交点，每跟直线两端都能找到交点的功能
页: 1 [2]
查看完整版本: 框选两线相连并合并成一条直线