|
|
楼主 |
发表于 2013-6-7 11:18:52
|
显示全部楼层
来自： 中国河北秦皇岛
程序如下
: ~ H2 Z# c/ @7 a' g. m9 [0 s& fSub Explode()
8 d$ s7 }5 X: o# _
- e3 t: b; m. g1 l' w6 pDim curves(0 To 0) As AcadCircle
4 e5 Z* s( d5 U: g5 O* J, v9 C" t$ M' 创建形成面域边界的圆。8 |+ s" g# q2 p/ g
Dim center(0 To 2) As Double
* l+ N* T% O' e2 T) X! f6 vDim radius As Double. D- ?4 f! e; ^) F1 N
center(0) = 2" m$ Q! U$ H4 q. q/ h& C: w" R' _4 P
center(1) = 2
- V! k }6 f }3 T- Pcenter(2) = 0
! \7 @' ^. W! |" X! mradius = 20
5 m& L, a& v+ W% y+ i! N4 ~$ w6 q! O+ c* E0 Y
Set curves(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)$ V; C( [3 u8 z1 p2 q+ w+ Y
- _+ m: i9 u& \6 L4 W KDim regionObj As Variant ' 创建面域% m! Y, W6 T$ p: c1 x) K8 u
regionObj = ThisDrawing.ModelSpace.AddRegion(curves)- Q% {& b' @8 A2 G
/ \8 g9 g! F& g
On Error Resume Next
9 r- [8 O1 ?2 K3 FDim explodedObjects As Variant! X2 ^5 a. p9 [" }% J
explodedObjects = regionObj.Explode9 X9 q2 b( R5 }/ M& {: ?
1 y4 X' |3 g8 rEnd Sub* W" Y2 B7 L8 s$ a1 X
; C; y4 x" X' X+ B3 f
我想通过程序把面域删掉，该怎么做呢 |
|
发表于 2013-6-7 10:00:59
发表于 2013-6-8 12:43:19