请教下，关于交点的函数

niqiu8

如果，多段线的交点函数，感觉有BUG.如果交点位于一根多段线的拐点附近。返回值是2个坐标点，有的时候又会为空。感觉CAD内置交点函数有BUG呢。

1. (defun obj_int (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)
   
2.    (setq ax_ent_1 (vlax-ename->vla-object ent1)
   
3.          ax_ent_2 (vlax-ename->vla-object ent2)
   
4.    )
   
5.    (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
   
6.    (setq intpoints (vlax-variant-value intpoints))
   
7.    (setq i 0)
   
8.    (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
   
9.      (repeat (/ (+ 1
   
10.                (- (vlax-safearray-get-u-bound intpoints 1)
    
11.                   (vlax-safearray-get-l-bound intpoints 1)
    
12.                )
    
13.             )
    
14.             3
    
15.          )
    
16.        (setq points (append points (list (list
    
17.          (vlax-safearray-get-element intpoints i)
    
18.          (vlax-safearray-get-element intpoints (+ i 1))
    
19.          (vlax-safearray-get-element intpoints (+ i 2))
    
20.        )))
    
21.        )
    
22.        (setq i (+ 3 i))
    
23.      )
    
24.    )
    
25.    points
    
26. )

(defun obj_int (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)<br />    (setq ax_ent_1 (vlax-ename->vla-object ent1)<br />          ax_ent_2 (vlax-ename->vla-object ent2)<br />    )<br />    (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))<br />    (setq intpoints (vlax-variant-value intpoints))<br />    (setq i 0)<br />    (if (> (vlax-safearray-get-u-bound intpoints 1) 0)<br />      (repeat (/ (+ 1<br />                (- (vlax-safearray-get-u-bound intpoints 1)<br />                   (vlax-safearray-get-l-bound intpoints 1)<br />                )<br />             )<br />             3<br />          )<br />        (setq points (append points (list (list<br />          (vlax-safearray-get-element intpoints i)<br />          (vlax-safearray-get-element intpoints (+ i 1))<br />          (vlax-safearray-get-element intpoints (+ i 2))<br />        )))<br />        )<br />        (setq i (+ 3 i))<br />      )<br />    )<br />    points<br /> )

烟盒迷唇

焦点函数存在的问题，以前已经讨论过了吧，可以搜索看看。

niqiu8

烟盒迷唇 发表于 2020-6-10 09:35
焦点函数存在的问题，以前已经讨论过了吧，可以搜索看看。

好的，，谢谢。

ntwison

不知道把捕捉关掉会不会有用呢。