求两线的交点

lgx9612

lucas3 发表于 2014-9-10 10:06
刘工，还有一个小问题，当选择的是两条直线时，或者直线与多段线，返回的是三维点的座标（含Z轴）。

6楼已修改

lucas3

lgx9612 发表于 2014-9-10 19:23
6楼已修改

刘工，再次感谢！very good!

lgx9612

lucas3 发表于 2014-9-10 19:39
刘工，再次感谢！very good!

呵呵，知识不够呀，会的就这么几句lisp，看到Free-Lancer大师的程序，实然感觉自己的程序很搞笑。见笑了，不过这是我动脑筋想出来的哦。

lucas3

lgx9612 发表于 2014-9-10 20:00
呵呵，知识不够呀，会的就这么几句lisp，看到Free-Lancer大师的程序，实然感觉自己的程序很搞笑。见笑了 ...

已经很厉害了！{:soso_e179:} 在下佩服！

st788796

看看用 xdrxapi 怎么写

1. (defun c:tt (/ getpoints e1 e2 pl1 pl2 p)
   
2.   (defun Getpoints (e)
   
3.     (if        (= (xdrx_getpropertyvalue (car e) "IsA") "AcDbLine")
   
4.       (list (xdrx_curve_getstartpoint (car e))
   
5.             (xdrx_curve_getendpoint (car e))
   
6.       )
   
7.       (xdrx_polyline_getlinesegat
   
8.         (car e)
   
9.         (fix (apply 'xdrx_curve_getparamatpoint e))
   
10.       )
    
11.     )
    
12.   )
    
13.   (if (and
    
14.         (setq e1 (xdrx_entsel
    
15.                    "\nPick Firset Line: "
    
16.                    '((0 . "LWPOLYLINE,LINE"))
    
17.                  )
    
18.         )
    
19.         (setq pl1 (getpoints e1))
    
20.         (setq e2 (xdrx_entsel
    
21.                    "\nPick Second Line: "
    
22.                    '((0 . "LWPOLYLINE,LINE"))
    
23.                  )
    
24.         )
    
25.         (setq pl2 (getpoints e2))
    
26.         (setq p (apply 'inters (append pl1 pl2)))
    
27.       )
    
28.     (xdrx_circle_make p 10.)
    
29.   )
    
30.   (princ)
    
31. )

(defun c:tt (/ getpoints e1 e2 pl1 pl2 p)<br />   (defun Getpoints (e)<br />     (if        (= (xdrx_getpropertyvalue (car e) "IsA") "AcDbLine")<br />       (list (xdrx_curve_getstartpoint (car e))<br />             (xdrx_curve_getendpoint (car e))<br />       )<br />       (xdrx_polyline_getlinesegat<br />         (car e)<br />         (fix (apply 'xdrx_curve_getparamatpoint e))<br />       )<br />     )<br />   )<br />   (if (and<br />         (setq e1 (xdrx_entsel<br />                    "\nPick Firset Line: "<br />                    '((0 . "LWPOLYLINE,LINE"))<br />                  )<br />         )<br />         (setq pl1 (getpoints e1))<br />         (setq e2 (xdrx_entsel<br />                    "\nPick Second Line: "<br />                    '((0 . "LWPOLYLINE,LINE"))<br />                  )<br />         )<br />         (setq pl2 (getpoints e2))<br />         (setq p (apply 'inters (append pl1 pl2)))<br />       )<br />     (xdrx_circle_make p 10.)<br />   )<br />   (princ)<br /> )

lucas3

st788796 发表于 2014-9-10 20:04
看看用 xdrxapi 怎么写

厉害！{:soso_e142:} 虽然知道API厉害，但是由于要经常更新，还可能更改函数名，所以……， 对于编程者是方便很多，但对于我这样的使用者，就有点不方便了！

st788796

lucas3 发表于 2014-9-10 20:10
厉害！ 虽然知道API厉害，但是由于要经常更新，还可能更改函数名，所以……， 对于编程者是 ...

更简便应该这样

1. (defun c:tt (/ getpoints e1 e2 pl1 pl2 p)
   
2.   (defun Getpoints (msg / e)
   
3.     (if        (setq e (xdrx_entsel msg '((0 . "LWPOLYLINE,LINE"))))
   
4.       (if (= (xdrx_getpropertyvalue (car e) "IsA") "AcDbLine")
   
5.         (list (xdrx_curve_getstartpoint (car e))
   
6.               (xdrx_curve_getendpoint (car e))
   
7.         )
   
8.         (xdrx_polyline_getlinesegat
   
9.           (car e)
   
10.           (fix (apply 'xdrx_curve_getparamatpoint e))
    
11.         )
    
12.       )
    
13.     )
    
14.   )
    
15.   (if (and (setq pl1 (Getpoints "\nPick Firset Line: "))
    
16.            (setq pl2 (Getpoints "\nPick Second Line: "))
    
17.            (setq p (apply 'inters (append pl1 pl2)))
    
18.       )
    
19.     (xdrx_circle_make p 10.)
    
20.   )
    
21.   (princ)
    
22. )
    

(defun c:tt (/ getpoints e1 e2 pl1 pl2 p)<br />   (defun Getpoints (msg / e)<br />     (if        (setq e (xdrx_entsel msg '((0 . "LWPOLYLINE,LINE"))))<br />       (if (= (xdrx_getpropertyvalue (car e) "IsA") "AcDbLine")<br />         (list (xdrx_curve_getstartpoint (car e))<br />               (xdrx_curve_getendpoint (car e))<br />         )<br />         (xdrx_polyline_getlinesegat<br />           (car e)<br />           (fix (apply 'xdrx_curve_getparamatpoint e))<br />         )<br />       )<br />     )<br />   )<br />   (if (and (setq pl1 (Getpoints "\nPick Firset Line: "))<br />            (setq pl2 (Getpoints "\nPick Second Line: "))<br />            (setq p (apply 'inters (append pl1 pl2)))<br />       )<br />     (xdrx_circle_make p 10.)<br />   )<br />   (princ)<br /> )<br />