[求助]：如何通过ACTIVEX创建一个REGION？

newer

如题，谢谢！

灯火

Creates a region from a set of entities. The given entities must form a closed coplanar region.

Signature

RetVal = object.AddRegion(ObjectList)

Object        ModelSpace Collection, PaperSpace Collection, Block
The object or objects this method applies to.
ObjectList        Array of Objects
The array of objects forming the closed coplanar face to be made into a region. This array may contain the following object types: Line, Arc, Circle, Elliptical Arc, LightweightPolyline, Spline.
RetVal        Variant
This method outputs an array of the newly created Region objects.

newer

最初由 灯火 发布
[B]Creates a region from a set of entities. The given entities must form a closed coplanar region.

Signature

RetVal = object.AddRegion(ObjectList)

Object        ModelSpace Collection, PaperSpace Collec... [/B]

谢谢斑竹！

在LISP里面，如何使用ACTIVEX呢？最好给出代码，再次谢谢！！！

EnjoyVba

下面是用LISP中利用ACTIVEX实现的代码，你参考下

2. 
   
3. (defun AddRegion ()
   
4.   (vl-load-com)
   
5.   (setq acadapp (vlax-get-Acad-Object)
   
6. acaddoc (vla-get-ActiveDocument acadapp)
   
7. mspace (vla-get-ModelSpace acaddoc)
   
8.   )
   
9.   (setq arcObj (vla-AddArc
   
10.    mspace
    
11.    (vlax-3d-point '(5.0 3.0 0.0))
    
12.    2.0
    
13.    0.0
    
14.    pi
    
15.         )
    
16.   )
    
17.   (setq arcClr (vla-Put-Color arcObj acYellow))
    
18.   (setq arcStrtPoint (vla-Get-StartPoint arcObj))
    
19.   (setq arcEndPoint (vla-Get-EndPoint arcObj))
    
20.   (setq lineObj (vla-AddLine mspace arcStrtPoint arcEndPoint))
    
21.   (setq lClr (vla-Put-Color lineObj acGreen))  (setq objArray (vlax-make-safearray vlax-vbObject '(0 . 1)))
    
22.   (vlax-safearray-fill objArray (list arcObj lineObj))
    
23.   (setq regionObjList (vla-AddRegion mspace objArray))
    
24.   (setq rSA (vlax-variant-value regionObjList))
    
25.   (setq regionList (vlax-safearray->list rSA))
    
26.   (setq regionObj (car regionList))
    
27.   (setq rClr (vla-Put-Color regionObj acMagenta))
    
28. ;;; Release the Objects:
    
29.   (if regionObj
    
30.     (if (null (vlax-object-released-p regionObj))
    
31.       (progn (vlax-release-object regionObj) (setq regionObj nil))
    
32.     )
    
33.   )
    
34.   (if arcObj
    
35.     (if (null (vlax-object-released-p arcObj))
    
36.       (progn (vlax-release-object arcObj) (setq arcObj nil))
    
37.     )
    
38.   )
    
39.   (if lineObj
    
40.     (if (null (vlax-object-released-p lineObj))
    
41.       (progn (vlax-release-object lineObj) (setq lineObj nil))
    
42.     )
    
43.   )
    
44.   (if mspace
    
45.     (if (null (vlax-object-released-p mspace))
    
46.       (progn (vlax-release-object mspace) (setq mspace nil))
    
47.     )
    
48.   )
    
49.   (if acaddoc
    
50.     (if (null (vlax-object-released-p acaddoc))
    
51.       (progn (vlax-release-object acaddoc) (setq acaddoc nil))
    
52.     )
    
53.   )
    
54.   (if acadapp
    
55.     (if (null (vlax-object-released-p acadapp))
    
56.       (progn (vlax-release-object acadapp) (setq acadapp nil))
    
57.     )
    
58.   )
    
59.   (princ)
    
60. )
    
61. (princ "\nAddRegion loaded. Enter (addregion) to run.")
    
62. (princ)
    

<br /> (defun AddRegion ()<br />   (vl-load-com)<br />   (setq acadapp (vlax-get-Acad-Object)<br /> acaddoc (vla-get-ActiveDocument acadapp)<br /> mspace (vla-get-ModelSpace acaddoc)<br />   )<br />   (setq arcObj (vla-AddArc<br />    mspace<br />    (vlax-3d-point '(5.0 3.0 0.0))<br />    2.0<br />    0.0<br />    pi<br />         )<br />   )<br />   (setq arcClr (vla-Put-Color arcObj acYellow))<br />   (setq arcStrtPoint (vla-Get-StartPoint arcObj))<br />   (setq arcEndPoint (vla-Get-EndPoint arcObj))<br />   (setq lineObj (vla-AddLine mspace arcStrtPoint arcEndPoint))<br />   (setq lClr (vla-Put-Color lineObj acGreen))  (setq objArray (vlax-make-safearray vlax-vbObject '(0 . 1)))<br />   (vlax-safearray-fill objArray (list arcObj lineObj))<br />   (setq regionObjList (vla-AddRegion mspace objArray))<br />   (setq rSA (vlax-variant-value regionObjList))<br />   (setq regionList (vlax-safearray->list rSA))<br />   (setq regionObj (car regionList))<br />   (setq rClr (vla-Put-Color regionObj acMagenta))<br /> ;;; Release the Objects:<br />   (if regionObj<br />     (if (null (vlax-object-released-p regionObj))<br />       (progn (vlax-release-object regionObj) (setq regionObj nil))<br />     )<br />   )<br />   (if arcObj<br />     (if (null (vlax-object-released-p arcObj))<br />       (progn (vlax-release-object arcObj) (setq arcObj nil))<br />     )<br />   )<br />   (if lineObj<br />     (if (null (vlax-object-released-p lineObj))<br />       (progn (vlax-release-object lineObj) (setq lineObj nil))<br />     )<br />   )<br />   (if mspace<br />     (if (null (vlax-object-released-p mspace))<br />       (progn (vlax-release-object mspace) (setq mspace nil))<br />     )<br />   )<br />   (if acaddoc<br />     (if (null (vlax-object-released-p acaddoc))<br />       (progn (vlax-release-object acaddoc) (setq acaddoc nil))<br />     )<br />   )<br />   (if acadapp<br />     (if (null (vlax-object-released-p acadapp))<br />       (progn (vlax-release-object acadapp) (setq acadapp nil))<br />     )<br />   )<br />   (princ)<br /> )<br /> (princ "\nAddRegion loaded. Enter (addregion) to run.")<br /> (princ)<br />