Vla 选择集创建 Region

Free-Lancer

1. (defun addregion (space el tf / regions)
   
2.   (if (not
   
3.     (vl-catch-all-error-p
   
4.       (setq    regions    (vl-catch-all-apply
   
5.               'vla-addregion
   
6.               (list    space
   
7.                 (vlax-make-variant
   
8.                   (vlax-safearray-fill
   
9.                     (vlax-make-safearray
   
10.                       vlax-vbobject
    
11.                       (cons 0 (1- (length el)))
    
12.                     )
    
13.                     (mapcar 'vlax-ename->vla-object el)
    
14.                   )
    
15.                 )
    
16.               )
    
17.             )
    
18.       )
    
19.     )
    
20.       )
    
21.     (progn
    
22.       (safearray-value (variant-value regions))
    
23.       (if tf
    
24.     (mapcar 'entdel el)
    
25.       )
    
26.     )
    
27.   )
    
28. )

(defun addregion (space el tf / regions)<br />   (if (not<br />     (vl-catch-all-error-p<br />       (setq    regions    (vl-catch-all-apply<br />               'vla-addregion<br />               (list    space<br />                 (vlax-make-variant<br />                   (vlax-safearray-fill<br />                     (vlax-make-safearray<br />                       vlax-vbobject<br />                       (cons 0 (1- (length el)))<br />                     )<br />                     (mapcar 'vlax-ename->vla-object el)<br />                   )<br />                 )<br />               )<br />             )<br />       )<br />     )<br />       )<br />     (progn<br />       (safearray-value (variant-value regions))<br />       (if tf<br />     (mapcar 'entdel el)<br />       )<br />     )<br />   )<br /> )

bbswen

举个例子就好了，

marting

bbswen 发表于 2017-2-24 12:54

写格选择代码，然后带入函数就行了

(defun c:tt (/ ss el i)
  (if (setq ss (ssget '((0 . "*LINE,CIRCLE,ELLIPSE"))))
    (progn
      (setq i -1)
      (repeat (sslength ss)
        (setq el (cons (ssname ss (setq i (1+ i))) el))
      )
      (addregion (vla-get-ModelSpace
                   (vla-get-ActiveDocument (vlax-get-acad-object))
                 )
                 el
                 t
      )
    )
  )
  (princ)
)