VBA关于面域explode后，元素的删除

清江幽月

CAD基于VBA二次开发，一个圆形面域explode后，我想通过编程，把面域删掉，留下圆，这个该怎么处理呢？求大神指教

清江幽月

程序如下
; E' ?; b3 u4 T2 iSub Explode()

Dim curves(0 To 0) As AcadCircle
' 创建形成面域边界的圆。
+ w+ b1 G/ P3 e" b1 SDim center(0 To 2) As Double
Dim radius As Double
center(0) = 2
0 @# {9 g  [: E2 d" r1 acenter(1) = 2
center(2) = 0
radius = 20

& m  h: `5 `* ]Set curves(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)

Dim regionObj As Variant    ' 创建面域
regionObj = ThisDrawing.ModelSpace.AddRegion(curves)

6 m1 _1 n; [" k& HOn Error Resume Next
Dim explodedObjects As Variant
* ?( s7 X- ^8 KexplodedObjects = regionObj.Explode
; V3 U: y- t$ ~& L4 U% H: M
End Sub

- Y5 d* T8 j" [6 r我想通过程序把面域删掉，该怎么做呢

woaishuijia

regionObj 是变体变量,创建面域后该变量就变成了一个对象数组。从你的代码上看,该数组只有一个元素(唯一一个面域).
explodedObjects = regionObj.Explode 这一行是错的,怎么能对一个数组使用 Explode 方法呢？
正确的方法是
5 o/ n, _; p/ }explodedObjects = regionObj(0).Explode
( L# i- Q3 S7 ~' A5 L) k' g9 w6 I$ C删除该面域的方法是
regionObj(0).Delete

清江幽月

woaishuijia 发表于 2013-6-8 12:43 static/image/common/back.gif
regionObj 是变体变量,创建面域后该变量就变成了一个对象数组。从你的代码上看,该数组只有一个元素(唯一一个 ...

* g& U" g' l+ m  \# P$ d9 q我把面域删除了，能不能在这圆内填充图案呢？特别是空间一层一层的环，怎么填充

woaishuijia

在本版区自行搜索有关填充的帖子
: ^1 R1 i8 ^# Z$ D/ n* j& I' u5 z
VBA:如何填充不规则区域？
( Y. ~0 Y0 B7 }& ^