|
|
楼主 |
发表于 2013-6-7 11:18:52
|
显示全部楼层
来自： 中国河北秦皇岛
程序如下- J. \( C) x I9 n3 _9 ]
Sub Explode()% O% ^; y' H0 O+ z
+ p. c+ v: \$ b+ r* B0 E. L$ P
Dim curves(0 To 0) As AcadCircle" i- C9 G% ]# z8 s! m* _) u( {
' 创建形成面域边界的圆。
$ l9 Q2 Y2 _5 V$ H- V0 EDim center(0 To 2) As Double
: x6 p) c* m/ y4 A4 TDim radius As Double
5 k* a4 B r4 rcenter(0) = 2. w9 |8 _: Z* a
center(1) = 24 n4 U2 T6 y' K! q* y& W$ ?6 v) C/ X
center(2) = 0/ V0 Q, j! {* H9 t1 f6 @# ^" G
radius = 200 y- P( x3 R9 Y2 G+ G' Y2 C _
4 s U$ M: \' o8 v( f/ [& j
Set curves(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)" `1 K5 N7 F$ I2 ^
( V" u% j! f1 E$ d3 B2 Y! g
Dim regionObj As Variant ' 创建面域
# k, s4 o8 x, P3 |( q& S: _% zregionObj = ThisDrawing.ModelSpace.AddRegion(curves)6 i, }: ?9 X% o. E
. ^& J& W7 a6 M4 V5 v% M
On Error Resume Next% R# ^0 H( Y4 K2 ]8 B3 l
Dim explodedObjects As Variant6 ]' C: Z6 z' j( [ `# s
explodedObjects = regionObj.Explode% \9 X4 E8 X% l5 i. [6 I) G
; T" r2 q/ Z. [* m8 W+ GEnd Sub
- M2 I& q- a# D( q3 T% s3 @( E7 V: p5 t
我想通过程序把面域删掉，该怎么做呢 |
|
发表于 2013-6-7 10:00:59
发表于 2013-6-8 12:43:19