各位大虾，帮忙编写一个删除复线的lisp
 

各位大虾，帮忙编写一个删除复线的lisp
www.dimcax.com
各位大虾，帮忙编写一个删除复线的lisp各位大虾，帮忙编写一个删除复线的lisp，
d
(defun c:tt ()
(setvar "cmdecho" 0)
(if (setq ss (ssget '((0 . "*polyline"))))
(command ".erase" ss "")
)
(setvar "cmdecho" 1)
(princ)
)
踅摸
d