|
|
楼主 |
发表于 2013-6-7 11:18:52
|
显示全部楼层
来自： 中国河北秦皇岛
程序如下5 C: x, [' N. J- @: Z& \- Z" F
Sub Explode()9 o5 U) `- f6 ]8 a* R# R1 g
0 s; c6 D# H: } ^) M( }8 c+ Q$ ?9 R" VDim curves(0 To 0) As AcadCircle
) m& i5 S$ c0 L$ U! i' 创建形成面域边界的圆。
' ~' t& ^# T8 c+ U2 d* Q3 ZDim center(0 To 2) As Double, \7 l7 |, S) K/ v
Dim radius As Double
8 x3 k/ J( S; h# i( T. Q* Kcenter(0) = 2
4 w, Q R6 e _0 B" | O- o& ecenter(1) = 2$ a0 u; G. E% Q& ], w1 l; L
center(2) = 03 a. f! F" b# [) m
radius = 20
$ h6 X- {2 Q* \2 z# E. e& @/ H
6 [0 `" H9 L/ }; j) P0 \5 ySet curves(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)( Z- X$ O6 Z2 t9 m( A% h
8 _9 |. i1 }6 X. y9 K7 z: r3 g( dDim regionObj As Variant ' 创建面域
4 X. z: B. K4 z; }% [6 K# GregionObj = ThisDrawing.ModelSpace.AddRegion(curves)) D! o0 H3 J3 z, S8 m2 U
6 a+ p" ^0 f3 \( `( ]& n# r s
On Error Resume Next
( c2 m8 S( G& {! K! L! iDim explodedObjects As Variant* n4 v; z- P8 w$ V5 V& _
explodedObjects = regionObj.Explode! \ H2 M7 y/ ]0 ~
4 f1 G2 t$ }. f; iEnd Sub
/ C& u( |0 n/ u( V1 t! r6 u5 i7 h9 z* O, A) u$ |
我想通过程序把面域删掉，该怎么做呢 |
|
发表于 2013-6-7 10:00:59
发表于 2013-6-8 12:43:19