[求助]：消重图元为不能在cad2004中使用,求救!

ld80721

请高手帮忙看看此消重图元程序为何不能在cad2004中使用,求救!
我很需要这个,有些望而莫及.........
(DEFUN C:EDLIN(); / enti ss sl en p10 p11 an i sen name p0 p1 san ipt intp)
(setvar "cmdecho" 0)
(setq enti (entsel "\nSelect main line:"))
(setq en (car enti))
(setq p10 (dxfa 10 en)
p11 (dxfa 11 en)
an (angle p10 p11)
)
(setq ss (ssget "C" p10 p11))
(setq sl (sslength ss))
(setq i 0)
(while (< i sl)
(setq sen (ssname ss i))
(setq name (dxfa 0 sen))
(if (= name "LINE")
(progn
(setq p0 (dxfa 10 sen)
p1 (dxfa 11 sen)
san (angle p0 p1)
)
(if(and (not (equal en sen 0.05))
(or (equal an san 0.05)
(equal an (abs (- san (dtr 180))) 0.05)
(equal an (abs (+ san (dtr 180))) 0.05)
(equal an (abs (- san (dtr 360))) 0.05)
(equal an (abs (+ san (dtr 360))) 0.05)
)
)
(progn
(setq ipt (polar p1 (+ san (dtr 90)) 10))
(setq intp (inters p10 p11 p1 ipt nil))
(setq minds (distance p1 intp))
(if (equal minds 0.0 0.01) (PROGN
(command "erase" sen "")
)
);if
);progn
);if
);progn
);if
(setq i (1+ i))
);while
(redraw)
(princ)
);defun

断点

ET里就有啊,命令overkill

ld80721

麻烦高手帮我改改这个程序.谢谢