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

清江幽月

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

清江幽月

程序如下
$ D5 r& {0 e/ _9 KSub Explode()
5 Z% o" d+ ]" u9 F8 D. x/ e
Dim curves(0 To 0) As AcadCircle
' 创建形成面域边界的圆。
; k4 X0 ]/ t* N1 G+ F" F8 ^3 GDim center(0 To 2) As Double
) T$ j8 I4 Q9 \- f9 A( \. }Dim radius As Double
center(0) = 2
& K1 n& O' ~1 m: r8 P# q$ m+ Kcenter(1) = 2
center(2) = 0
radius = 20
) Y% Q( d9 \2 b% {, c
Set curves(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
0 _4 |5 {4 F% g$ x! D
) X4 p! _) P' X% M7 BDim regionObj As Variant    ' 创建面域
$ R3 |8 g8 {4 Y' y( QregionObj = ThisDrawing.ModelSpace.AddRegion(curves)

" `5 @! \% {; S" VOn Error Resume Next
Dim explodedObjects As Variant
explodedObjects = regionObj.Explode

$ T1 |' x4 Y$ s1 |( YEnd Sub
/ K$ t4 i0 R2 W3 Q/ }5 K8 U
/ m4 S3 M) j( E* t% K: A我想通过程序把面域删掉，该怎么做呢

woaishuijia

regionObj 是变体变量,创建面域后该变量就变成了一个对象数组。从你的代码上看,该数组只有一个元素(唯一一个面域).
explodedObjects = regionObj.Explode 这一行是错的,怎么能对一个数组使用 Explode 方法呢？
/ s+ d9 f9 T  G( |/ }: M) `正确的方法是
9 H" a1 c; D  dexplodedObjects = regionObj(0).Explode
: U! T; \0 `, X8 \# q& l8 @) L9 ?, |删除该面域的方法是
regionObj(0).Delete

清江幽月

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

6 `/ t1 s& `; J6 N/ w+ C6 j我把面域删除了，能不能在这圆内填充图案呢？特别是空间一层一层的环，怎么填充

woaishuijia

在本版区自行搜索有关填充的帖子

. c. c  s. ^( A% ^; _  rVBA:如何填充不规则区域？