大只雄只脚 发表于 2005-2-3 19:37:00

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

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

wudongwei 发表于 2005-2-17 02:02:00

建议的程序如下:


                       (defun c:interpoint ( / )<BR>       (initget 3)<BR>       (setq pt1 (getpoint "请输入第一条直线的第一点："))<BR>       (setq pt2 (getpoint "请输入第一条直线的第二点："))<BR>       (command "line" pt1 pt2 "")<BR>       (setq pt3 (getpoint "请输入第二条直线的第一点："))<BR>       (setq pt4 (getpoint "请输入第二条直线的第二点："))<BR>       (command "line" pt3 pt4 "")<BR>       (if (inters pt1 pt2 pt3 pt4 )<BR>                                       (progn<BR>                                                               (setq pt5 (inters pt1 pt2 pt3 pt4))<BR>                                                               (princ "两条直线的交点为：")<BR>                                                               (princ pt5)<BR>                                       )<BR>                                       (if (inters pt1 pt2 pt3 pt4 nil)<BR>                                                                       (progn<BR>                                                                                               (setq pt5 (inters pt1 pt2 pt3 pt4 nil))<BR>                                                                                                       (princ "两条直线的延长线的交点为：")<BR>                                                                                                       (princ pt5)<BR>                                                                       )<BR>                                                                       (print "两条直线无交点！")<BR>                                       )<BR>       )<BR>       (princ)<BR>)
页: [1]
查看完整版本: 怎样可以在AUTOCAD任意画出两条线编程求交点