[教学]：Vla-AddRegion

eachy

[iframe h=600 w=100%]http://www.mjtd.com/object/acad2004/idh_addregion.htm[/iframe]

2. 
   
3. ;;闭合区域生成面域，保留原曲线
   
4. (defun c:tt (/ obj el var)
   
5.   (if (ssget)
   
6.     (progn
   
7.       (vlax-for        obj (vla-get-activeselectionset
   
8.                       (vla-get-activedocument (vlax-get-acad-object))
   
9.                     ) ;_ CURRENT 选择集可能会出错
   
10.         (setq el (cons obj el))
    
11.       )
    
12.       (setq var        (vlax-make-variant
    
13.                   (vlax-safearray-fill
    
14.                     (vlax-make-safearray
    
15.                       vlax-vbobject
    
16.                       (cons 0 (1- (length el)))
    
17.                     )
    
18.                     el
    
19.                   )
    
20.                 )
    
21.       )
    
22.       ;;AddRegion 会自动寻找所有闭合区域，这点和 Region 命令是不同的
    
23.       ;;Region 命令在给定的选择集时可能只形成一个后就退出。
    
24.       ;;AddRegion 返回值为 Variant，使用
    
25.       ;; (safearray-value (variant-value (vla-addregion ...)))
    
26.       ;;就返回一个 Region Object 列表
    
27.       (vla-addregion
    
28.         (vla-get-modelspace
    
29.           (vla-get-activedocument (vlax-get-acad-object))
    
30.         )
    
31.         var
    
32.       )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )

<br /> ;;闭合区域生成面域，保留原曲线<br /> (defun c:tt (/ obj el var)<br />   (if (ssget)<br />     (progn<br />       (vlax-for        obj (vla-get-activeselectionset<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     ) ;_ CURRENT 选择集可能会出错<br />         (setq el (cons obj el))<br />       )<br />       (setq var        (vlax-make-variant<br />                   (vlax-safearray-fill<br />                     (vlax-make-safearray<br />                       vlax-vbobject<br />                       (cons 0 (1- (length el)))<br />                     )<br />                     el<br />                   )<br />                 )<br />       )<br />       ;;AddRegion 会自动寻找所有闭合区域，这点和 Region 命令是不同的<br />       ;;Region 命令在给定的选择集时可能只形成一个后就退出。<br />       ;;AddRegion 返回值为 Variant，使用<br />       ;; (safearray-value (variant-value (vla-addregion ...)))<br />       ;;就返回一个 Region Object 列表<br />       (vla-addregion<br />         (vla-get-modelspace<br />           (vla-get-activedocument (vlax-get-acad-object))<br />         )<br />         var<br />       )<br />     )<br />   )<br />   (princ)<br /> )

对由一些曲线形成的闭合区域生成一个个Region，就可以先执行“交点断开”，然后对选择集进行 AddRegion 。

小菜

前面关于选择集的部分看不懂:(
能改写成这个形式么？(defun makeregion (ss / ....))，由其它函数传送一个选择集，然后生成面域。

xxsheng

2. 
   
3. ;;闭合区域生成面域，保留原曲线
   
4. (defun c:tt (a / acadspace n reg b)
   
5.   (vl-load-com)
   
6.   (setq acaddocument(vla-get-activedocument(vlax-get-acad-object)))
   
7.   (if (and(= (getvar "tilemode") 0)(= (getvar "cvport") 1))
   
8.       (setq acadspace (vla-get-paperspace acaddocument))
   
9.       (setq acadspace (vla-get-modelspace acaddocument))
   
10. )
    
11. (setq n -1)
    
12. (while (<(setq n(1+ n)) (sslength a))
    
13.   (setq b(cons (vlax-ename->vla-object(ssname a n)) b))
    
14. )
    
15. (vlax-invoke acadspace 'AddRegion b)
    
16. )

<br /> ;;闭合区域生成面域，保留原曲线<br /> (defun c:tt (a / acadspace n reg b)<br />   (vl-load-com)<br />   (setq acaddocument(vla-get-activedocument(vlax-get-acad-object)))<br />   (if (and(= (getvar "tilemode") 0)(= (getvar "cvport") 1))<br />       (setq acadspace (vla-get-paperspace acaddocument))<br />       (setq acadspace (vla-get-modelspace acaddocument))<br /> )<br /> (setq n -1)<br /> (while (<(setq n(1+ n)) (sslength a))<br />   (setq b(cons (vlax-ename->vla-object(ssname a n)) b))<br /> )<br /> (vlax-invoke acadspace 'AddRegion b)<br /> )

;这样应该可以了,呵呵,一楼的太复杂了点,返回的是新建立的面域的表.