怎样可以在AUTOCAD任意画出两条线编程求交点

大只雄只脚

怎样可以在AutoCAD任意画出两条线编程求交点？请大家帮帮手

wudongwei

建议的程序如下: (defun c:interpoint ( / )
(initget 3)
(setq pt1 (getpoint "请输入第一条直线的第一点："))
(setq pt2 (getpoint "请输入第一条直线的第二点："))
(command "line" pt1 pt2 "")
(setq pt3 (getpoint "请输入第二条直线的第一点："))
(setq pt4 (getpoint "请输入第二条直线的第二点："))
(command "line" pt3 pt4 "")
(if (inters pt1 pt2 pt3 pt4 )
(progn
(setq pt5 (inters pt1 pt2 pt3 pt4))
(princ "两条直线的交点为：")
(princ pt5)
)
(if (inters pt1 pt2 pt3 pt4 nil)
(progn
(setq pt5 (inters pt1 pt2 pt3 pt4 nil))
(princ "两条直线的延长线的交点为：")
(princ pt5)
)
(print "两条直线无交点！")
)
)
(princ)
)