这是一个求两条线中线程序，我加载了，但不能用，高手帮着看看，有什么问题。

兯砓

这是一个求两条线中线程序，我加载了，但不能用，高手帮着看看，有什么问题。 (defun c:dline_midx (/ e1 e2 p1_s p2_s p1_mid p2_mid)
(if (and
(setq e1 (car (xdrx_entsel "\n请点取第一根LINE<退出>:" '((0 . "line")))))
(progn
(redraw e1 3)
t
)
(setq e2 (car (xdrx_entsel "\n请点取平行的第二根LINE<退出>:" '
((0 . "line"))
)
)
)
)
(progn
(xdrx_begin)
(xdrx_ucson)
(redraw e1 4)
(xdrx_setenttodb e1)
(setq lyr (xdrx_getentdxf 8))
(setq p1_s (xdrx_curve_getpoint e1)
p2_s (xdrx_curve_getpoint e2)
)
(setq p2_s (apply
'xdrx_getnearpt
(cons (car p1_s) p2_s)
)
)
(setq p1_mid (xdrx_midp (car p1_s) (car p2_s))
p2_mid (xdrx_midp (last p1_s) (last p2_s))
)
(xdrx_line1 p1_mid p2_mid)
(xdrx_setenttodb (entlast))
(xdrx_modent 8 lyr)
(xdrx_ucsoff)
(xdrx_end)
)
)
(princ)
)

兯砓

摘自“晓东CAD空间”

neteasy

应该到AUTOLISP开发版块问