[求助]：两条直线怎么求交点?

tsml

两条实际不存在的直线,分别已知起点和角度,请问怎么求出它们的交点?

zml84

如果不想解析求解的话，可以使用inters函数。http://www.mjtd.com/object/autolisp/ALR.default.141.htm
[PHP]
;;根据起点和角度，使用POLAR分别得到终点
(setq 终点1  (polar  起点1  角度1   100)
         终点2  (polar  起点2  角度2   100)
)
(inters  起点1  终点1  起点2  终点2)
[/PHP]

yitian519

我修改那里错了？
;;根据起点和角度，使用POLAR分别得到终点
(defun C:jiaodian ()
   (setq pq1 (getpoint "\n直线起点: "))
  (setq jd1 (getangle "\n角度: "))
   (setq pq2 (getpoint "\n第2直线起点: "))
  (setq pz2 (getangle "\n第2直线角度: "))
(setq pz1  (polar  pq1  jd1   100))
(setq pz2  (polar  pq2  jd2   100))
(inters  pq1  pz1  pq2  pz2)
)

错误: 参数类型错误: numberp: nil

zml84

3楼代码中 [PHP](setq pz2 (getangle "\n第2直线角度: "))[/PHP]有误，将变量名pq2错写为了pz2。
<br>
inters函数的选项写作NIL较好。
修改后代码如下：

2. 
   
3. (defun C:jiaodian ()
   
4.     (setq pq1 (getpoint "\n直线起点: "))
   
5.     (setq jd1 (getangle pq1 "\n角度: "))
   
6.     (setq pq2 (getpoint "\n第2直线起点: "))
   
7.     (setq jd2 (getangle pq2 "\n第2直线角度: "))
   
8.     (setq pz1 (polar pq1 jd1 100))
   
9.     (setq pz2 (polar pq2 jd2 100))
   
10. 
    
11.     (if        (setq pt (inters pq1 pz1 pq2 pz2 nil))
    
12.         (command "_line" pq1 pq2 pt "C" )
    
13.     )
    
14.     (princ)
    
15. )
    

<br /> (defun C:jiaodian ()<br />     (setq pq1 (getpoint "\n直线起点: "))<br />     (setq jd1 (getangle pq1 "\n角度: "))<br />     (setq pq2 (getpoint "\n第2直线起点: "))<br />     (setq jd2 (getangle pq2 "\n第2直线角度: "))<br />     (setq pz1 (polar pq1 jd1 100))<br />     (setq pz2 (polar pq2 jd2 100))<br /> <br />     (if        (setq pt (inters pq1 pz1 pq2 pz2 nil))<br />         (command "_line" pq1 pq2 pt "C" )<br />     )<br />     (princ)<br /> )<br />

yitian519

(inters pt1 pt2 pt3 pt4 [onseg])
楼主少一个 [onseg])如果2线段没有交点，需要一个nil

yexiaochao

多谢指点

yexiaochao

多谢指点