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

清江幽月

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

清江幽月

程序如下
9 v4 _% m( m2 T- m, z9 H& P* y2 JSub Explode()

Dim curves(0 To 0) As AcadCircle
& a5 `3 ]7 T' w+ ^, ^' 创建形成面域边界的圆。
Dim center(0 To 2) As Double
Dim radius As Double
7 l- C$ z! {4 C2 K* icenter(0) = 2
& f% u4 ^$ x( j( c  A: lcenter(1) = 2
8 w( [+ Z' U2 qcenter(2) = 0
' }  p/ `; s" }3 kradius = 20

) r% f! P( r( ^, u2 PSet curves(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)

Dim regionObj As Variant    ' 创建面域
regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
) y2 Q  D; I5 A: A- A
1 Q! l. Y* Y2 f- Z& AOn Error Resume Next
Dim explodedObjects As Variant
- S7 f% ~( `$ g2 H; m2 B& n6 R; l+ ZexplodedObjects = regionObj.Explode

7 B' k6 l/ O4 LEnd Sub

; \6 _2 F: ]$ V/ j; e; ?我想通过程序把面域删掉，该怎么做呢

woaishuijia

regionObj 是变体变量,创建面域后该变量就变成了一个对象数组。从你的代码上看,该数组只有一个元素(唯一一个面域).
explodedObjects = regionObj.Explode 这一行是错的,怎么能对一个数组使用 Explode 方法呢？
7 K6 U' u! x3 v4 e2 n正确的方法是
# Q; v" g6 f" P; B, y/ rexplodedObjects = regionObj(0).Explode
删除该面域的方法是
regionObj(0).Delete

清江幽月

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

我把面域删除了，能不能在这圆内填充图案呢？特别是空间一层一层的环，怎么填充

woaishuijia

在本版区自行搜索有关填充的帖子
; j; N0 b, {, R. t- j
VBA:如何填充不规则区域？
# ]+ X9 T. ~3 h5 [1 R0 R. C