将选集物件做连接

xyz518mm

(DEFUN C:JTHWA392 ( / enh ent i p ss st)
(prompt "\n**<日期:2007-07-08,[JTHWA392>**")
(prompt "\n**<用途:将选集物件做连接>**")
;;;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
(PRINT "BY JTHWA")
(PRINT "FOR AutoCAD 2006")
(SETQ ST (SSGET)) ;建立选集
(SETQ ENH (SSNAME ST 0)) ;线头
(SETQ SS (SSDEL ENH ST )) ;由选集删除线头物件
(SETQ I 0)
(WHILE (> (SSLENGTH SS) 0) ;选集大于0,成立
(SETQ P 0)
(REPEAT (SSLENGTH SS)
(SETQ ENT (SSNAME SS P)) ;线尾
(vl-cmdf ".JOIN" ENH ENT "") ;结合线头线尾
(IF (OR
     (/= ENT NIL) ;对象不可为 NIL
     (NOT (vlax-erased-p ENT)) ;对象是否被删除
     )
(SETQ P (1+ P))
(SETQ P (1+ P) SS (SSDEL ENT SS))
)
)
(SETQ ENH (SSNAME SS 0)) ;取出选集0物件
(SETQ SS (SSDEL ENH SS )) ;由选集删除线头物件
)
)
;;;*********************************
(prin1))

本程序可以将线段做连接
且会自动过滤重复物件
请各位高手多多指教

xlmx-whj

路过，先用下看再发表意见。

highflybird

如果真的要达到线头线尾这个连接方式的话，还不是一件简单的事情，有算法在里面的。还要考虑一些出错判断。