(vl-load-com)
;;;===========================================================*
(defun C:CHECK ()
    (C:TT1)
    (C:TT2)
    (princ "\n**检测结束**")
    (princ)
)
;;;===========================================================*
;;; 功能：检查当前图档中是否存在非多线段对象，                *
;;;       若有，则高亮选中。                                  *
(defun C:TT1 (/ SS)
    (if	(setq SS (ssget	"x"
			'((-4 . "<NOT")
			  (0 . "LWPOLYLINE")
			  (-4 . "NOT>")
			 )
		 )
	)
	(sssetfirst NIL SS)
    )
    (princ)
)
;;;===========================================================*
;;; 功能：检查当前图档中是否存在完全相同的多段线对象，        *
;;;       若有，则删除之。                                    *
(defun C:TT2 (/ SS LST I EN ENT)
    (if	(setq SS (ssget "x" '((0 . "LWPOLYLINE"))))
	(progn
	    (setq LST ()
		  I   0
	    )
	    (repeat (sslength SS)
		(setq EN  (ssname SS I)
		      ENT (entget EN)
		      ENT (cddddr ENT)
		)
		(if (member ENT LST)
		    (entdel EN)
		    (setq LST (cons ENT LST))
		)
		(setq I (1+ I))
	    )
	)
    )
)