用记事本写CAD命令#CAD#

;;;与所选对象相接的对象合并
(DEFUN C: TT ()
(SETVAR "CMDECHO" 0)
(WHILE (NULL SS)
(SETQ SS (ENTSEL "与选择对象相接的相合并"))
)
(SETQ SSL (CDR (ASSOC 0 (ENTGET (CAR SS)))))
(IF (= SSL "LWPOLYLINE")
(COMMAND "PEDIT" SS "J" "ALL" "" "X"))
(SETVAR "CMDECHO" 1)
(PRINC)
)