將選集物件做連接

(DEFUN C:JTHWA392 ( / enh ent i p ss st)
(prompt "\n**<日期:2007-07-08,[JTHWA392>**")
(prompt "\n**<用途:將選集物件做連接.1>**")
;;;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
(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))

 

轉貼請告知~