[讨论]：求两实体交点表最精简代码

陌生人

求两实体交点表最精简代码。
这个论题应该是很多的了，不过现在拿出来是想总结一下。
把你认为最精简的代码贴出来吧。
只要最简洁的！
格式举例：
(defun xint (e1 e2 / )
....
)
有交点返回交点表，无交点返回nil

lsjjm

最好先把你认为最简单的那个贴出来！

aeo

最初由 lsjjm 发布
[B]最好先把你认为最简单的那个贴出来！ [/B]

真理:)




"最精简代码",没必要，应该是写最快速度的.长一点又何妨!

陌生人

现在计算机这么快，如果都用了vl函数，运行的效率应该没多大区别吧？百分之1秒？（除非程序中绕太多弯子，不过一般来说，绕太多弯子程序也会相应增长）

xcajcj

天呀，晓东CAD空间也有......

陌生人

最初由 lsjjm 发布
[B]最好先把你认为最简单的那个贴出来！ [/B]

先贴个通常的写法

2. 
   
3. (defun x_intlst (obj1 obj2 param / intlst1 intlst2 ptlst)
   
4.   (if (= 'ENAME (type obj1))(setq obj1 (vlax-ename->vla-object obj1)))
   
5.   (if (= 'ENAME (type obj2))(setq obj2 (vlax-ename->vla-object obj2)))
   
6.   (setq intlst1 (vlax-variant-value (vla-intersectwith obj1 obj2 param)))
   
7.   (if (< 0 (vlax-safearray-get-u-bound intlst1 1))  
   
8.     (progn
   
9.       (setq intlst2 (vlax-safearray->list intlst1))
   
10.       (while (> (length intlst2) 0)                 
    
11.         (setq ptlst (cons (list (car intlst2)(cadr intlst2)(caddr intlst2)) ptlst)
    
12.               intlst2 (cdddr intlst2))
    
13.       )             
    
14.   ) )
    
15. ptlst
    
16. )
    

<br /> (defun x_intlst (obj1 obj2 param / intlst1 intlst2 ptlst)<br />   (if (= 'ENAME (type obj1))(setq obj1 (vlax-ename->vla-object obj1)))<br />   (if (= 'ENAME (type obj2))(setq obj2 (vlax-ename->vla-object obj2)))<br />   (setq intlst1 (vlax-variant-value (vla-intersectwith obj1 obj2 param)))<br />   (if (< 0 (vlax-safearray-get-u-bound intlst1 1))  <br />     (progn<br />       (setq intlst2 (vlax-safearray->list intlst1)) <br />       (while (> (length intlst2) 0)                 <br />         (setq ptlst (cons (list (car intlst2)(cadr intlst2)(caddr intlst2)) ptlst)<br />               intlst2 (cdddr intlst2))<br />       )              <br />   ) )<br /> ptlst <br /> )<br />

hhjj9898

我期望还有更好的！！！！

陌生人

当然，我也等着大伙出招呢