[求助]：怎样点选两直线求交点。急急急。

张世杰

(princ "选择辅助材的轴线:")
  (setq SS1 (ssget":s"))
  (setq NAME1 (ssname SS1 0))
  (setq AG1 (entget NAME1))
  (setq p1_10(cdr(assoc 10 ag1))p1_11(cdr(assoc 11 ag1)))
  (princ "选择主材的轴线:")
  (setq SS2 (ssget":s"))
  (setq NAME2 (ssname SS2 0))
  (setq AG2 (entget NAME2))
  (setq p2_10(cdr(assoc 10 ag2))p2_11(cdr(assoc 11 ag2)))
求出直线坐标后怎么办，有相应的函数也行。
cal里有个ill，但是不能用(command"cal")引用。
十分感谢。

lsjjm

(defun ptinters (line1 line2)
    (vl-load-com)   
    (setq line1 (vlax-ename->vla-object line1))
    (setq line2 (vlax-ename->vla-object line2))
    (setq pt (vlax-invoke line1 "IntersectWith" line2 2))
    pt
  )

cy956

对直线可以用inters函数。lsjjm的可以针对其他实体。

张世杰

具体怎么用在LISP中呀，请问CY956老兄。

XDSoft

最初由 张世杰 发布
[B]具体怎么用在LISP中呀，请问CY956老兄。 [/B]

联机帮助:

2. [font=courier]
   
3. 求两条直线的交点
   
4. (inters pt1 pt2 pt3 pt4 [onseg])
   
5. 
   
6. 所有的点都以当前 UCS 表示，如果提供的四个点都是三维点，
   
7. inters 函数检查三维交点。只要所提供的点中有一个是二维点，
   
8. inters 函数就将这两条线投影到当前构造平面上，仅检查二维交
   
9. 点。
   
10. 
    
11. 参数
    
12. 
    
13. pt1
    
14. 
    
15. 第一条直线的端点。
    
16. 
    
17. pt2
    
18. 
    
19. 第一条直线的另一端点。
    
20. 
    
21. pt3
    
22. 
    
23. 第二条直线的端点。
    
24. 
    
25. pt4
    
26. 
    
27. 第二条直线的另一端点。
    
28. 
    
29. onseg
    
30. 
    
31. 如果指定为 nil，则由四个 pt 参数定义的两条线被认为是无限长
    
32. 的。如果省略 onseg
    
33. 参数或其值不为 nil，则交点必须同时位于两条线上，否则 inters 返
    
34. 回 nil。
    
35. 
    
36. 返回值
    
37. 
    
38. 如果 onseg 参数存在且为 nil，则 inters 返回交点坐标，即使这个
    
39. 交点不在其中的一条线（或者两条线）的端点范围之内。如果忽
    
40. 略 onseg 参数或其值不为 nil，则交点必须同时位于两条线上，否
    
41. 则 inters 返回 nil。如果两条直线不相交，inters 函数返回
    
42. nil。
    
43. 
    
44. 样例
    
45. 
    
46. (setq a '(1.0 1.0) b '(9.0 9.0))
    
47. 
    
48. (setq c '(4.0 1.0) d '(4.0 2.0))
    
49. 
    
50. 命令：(inters a b c d)
    
51. 
    
52. nil
    
53. 
    
54. 命令：(inters a b c d)
    
55. 
    
56. nil
    
57. 
    
58. 命令：(inters a b c d nil)
    
59. 
    
60. (4.0 4.0)
    
61. 
    
62. [/font]
    

[font=courier]<br /> 求两条直线的交点<br /> (inters pt1 pt2 pt3 pt4 [onseg]) <br /> <br /> 所有的点都以当前 UCS 表示，如果提供的四个点都是三维点，<br /> inters 函数检查三维交点。只要所提供的点中有一个是二维点，<br /> inters 函数就将这两条线投影到当前构造平面上，仅检查二维交<br /> 点。<br /> <br /> 参数<br /> <br /> pt1 <br /> <br /> 第一条直线的端点。<br /> <br /> pt2 <br /> <br /> 第一条直线的另一端点。<br /> <br /> pt3 <br /> <br /> 第二条直线的端点。<br /> <br /> pt4 <br /> <br /> 第二条直线的另一端点。<br /> <br /> onseg <br /> <br /> 如果指定为 nil，则由四个 pt 参数定义的两条线被认为是无限长<br /> 的。如果省略 onseg <br /> 参数或其值不为 nil，则交点必须同时位于两条线上，否则 inters 返<br /> 回 nil。<br /> <br /> 返回值<br /> <br /> 如果 onseg 参数存在且为 nil，则 inters 返回交点坐标，即使这个<br /> 交点不在其中的一条线（或者两条线）的端点范围之内。如果忽<br /> 略 onseg 参数或其值不为 nil，则交点必须同时位于两条线上，否<br /> 则 inters 返回 nil。如果两条直线不相交，inters 函数返回 <br /> nil。<br /> <br /> 样例<br /> <br /> (setq a '(1.0 1.0) b '(9.0 9.0)) <br /> <br /> (setq c '(4.0 1.0) d '(4.0 2.0)) <br /> <br /> 命令：(inters a b c d) <br /> <br /> nil <br /> <br /> 命令：(inters a b c d) <br /> <br /> nil <br /> <br /> 命令：(inters a b c d nil) <br /> <br /> (4.0 4.0)<br /> <br /> [/font]<br />

xyzjint_cn

(princ "请选择第一根线:")
  (setq ln (ssget))
  (setq ln (entget (ssname ln 0)))
  (setq lna (cdr (assoc 10 ln)))
  (setq lnb (cdr (assoc 11 ln)))

  (princ "请选择第二根线:")
  (setq ss (ssget))
  (setq ln1 (entget (ssname ss 0)))
  (setq lns (cdr (assoc 11 ln1)))
  (setq lne (cdr (assoc 10 ln1)))
;求出交点P1
  (setq p1 (inters lna lnb lns lne))

xyzjint_cn

(princ "请选择第一根线:")
  (setq ln (ssget))
  (setq ln (entget (ssname ln 0)))
  (setq lna (cdr (assoc 10 ln)))
  (setq lnb (cdr (assoc 11 ln)))

  (princ "请选择第二根线:")
  (setq ss (ssget))
  (setq ln1 (entget (ssname ss 0)))
  (setq lns (cdr (assoc 11 ln1)))
  (setq lne (cdr (assoc 10 ln1)))
;求出交点P1
  (setq p1 (inters lna lnb lns lne))

light_dream

也可以用ENTGET函数得到两条直线（或任何地曲线）的DXF组码，取得两线段的端点坐标（曲线的半径、圆心），然后建立直线方程或圆的方程求交点，这种方法虽然罗嗦一点，但适用性很强，任何直线与直线、曲线与直线、曲线与曲线的交点都可以求！目前我自己编了一段子程序，运行感觉还可以。