Vla-IntersectWith

st788796

改一下，那些 Mode 字符太长不好记，0 1 2 好记

1. ;|
   
2. 0 --- 都不延伸
   
3. 1 --- 延伸第一个实体
   
4. 2 --- 延伸第二个实体
   
5. 3 或任意值 --- 两个都延伸
   
6. |;
   
7. (defun ent:inters (obj1 obj2 mod / pts ptl)
   
8.   (if (setq pts        (vlax-invoke
   
9.                   obj1
   
10.                   'intersectwith
    
11.                   obj2
    
12.                   (cond
    
13.                     ((zerop mod)
    
14.                      AcExtendNone
    
15.                     )
    
16.                     ((= mod 1)
    
17.                      acExtendthisEntity
    
18.                     )
    
19.                     ((= mod 2)
    
20.                      acExtendOtherEntity
    
21.                     )
    
22.                     (t acExtendBoth)
    
23.                   )
    
24.                 )
    
25.       )
    
26.     (while pts
    
27.       (setq ptl        (cons (list (car pts) (cadr pts) (caddr pts)) ptl)
    
28.             pts        (cdddr pts)
    
29.       )
    
30.     )
    
31.   )
    
32.   ptl
    
33. )
    

;|<br /> 0 --- 都不延伸<br /> 1 --- 延伸第一个实体<br /> 2 --- 延伸第二个实体<br /> 3 或任意值 --- 两个都延伸<br /> |;<br /> (defun ent:inters (obj1 obj2 mod / pts ptl)<br />   (if (setq pts        (vlax-invoke<br />                   obj1<br />                   'intersectwith<br />                   obj2<br />                   (cond<br />                     ((zerop mod)<br />                      AcExtendNone<br />                     )<br />                     ((= mod 1)<br />                      acExtendthisEntity<br />                     )<br />                     ((= mod 2)<br />                      acExtendOtherEntity<br />                     )<br />                     (t acExtendBoth)<br />                   )<br />                 )<br />       )<br />     (while pts<br />       (setq ptl        (cons (list (car pts) (cadr pts) (caddr pts)) ptl)<br />             pts        (cdddr pts)<br />       )<br />     )<br />   )<br />   ptl<br /> )<br />

xyp1964

2. (defun ent:inters (obj1 obj2 mod / pts ptl)
   
3.   (if (setq pts (vlax-invoke obj1 'intersectwith obj2 mod))
   
4.     (while pts
   
5.       (setq ptl        (cons (list (car pts) (cadr pts) (caddr pts)) ptl)
   
6.             pts        (cdddr pts)
   
7.       )
   
8.     )
   
9.   )
   
10.   ptl
    
11. )

(defun ent:inters (obj1 obj2 mod / pts ptl)<br />   (if (setq pts (vlax-invoke obj1 'intersectwith obj2 mod))<br />     (while pts<br />       (setq ptl        (cons (list (car pts) (cadr pts) (caddr pts)) ptl)<br />             pts        (cdddr pts)<br />       )<br />     )<br />   )<br />   ptl<br /> )

newer

xyp1964 发表于 2013-11-24 22:54

mod 参数是什么呢？

xyp1964

newer 发表于 2013-11-24 23:02
mod 参数是什么呢？

mod= 0 1 2 3

xyp1964

newer 发表于 2013-11-24 23:02
mod 参数是什么呢？

mod= 0 1 2 3

st788796

vlax-invoke 支持 0 1 2 3， vla-intersectwith 是不支持的

/db_自贡黄明儒_

st788796 发表于 2013-11-24 23:30
vlax-invoke 支持 0 1 2 3， vla-intersectwith 是不支持的

好象支持吧，AcExtendNone返回值就是0,就是定义的一常数

xvjiex

感谢楼主分享Vla-IntersectWith！