|
|
楼主 |
发表于 2013-6-7 11:18:52
|
显示全部楼层
来自： 中国河北秦皇岛
程序如下
* l3 k2 l8 F" C q8 A! S% \5 M* y* Z7 pSub Explode()) e8 }) J \5 Z8 C! q1 D
. y; V( w5 Q$ k/ L. L! gDim curves(0 To 0) As AcadCircle+ F, U" `0 ?+ ~7 t$ V, h
' 创建形成面域边界的圆。
: y$ N- x+ B! R" [Dim center(0 To 2) As Double
! W3 q" v/ M+ ]2 i' ?/ e3 B4 RDim radius As Double6 ~" K; s* ?' d2 S) Y
center(0) = 2
5 `6 l0 M2 a# g' i6 fcenter(1) = 2
0 o/ p: H7 D2 y7 _center(2) = 0- U! R; c R% x# W5 L
radius = 20/ U* d0 B5 d8 v! O; s& n/ t) o
0 I; }. {7 F. g# bSet curves(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)4 R- f& y, u) |! \% p& d9 w
' C" b# O; C/ m s4 a1 VDim regionObj As Variant ' 创建面域# N% l; U6 w. ]) O
regionObj = ThisDrawing.ModelSpace.AddRegion(curves), c8 o' m+ X7 {" X
$ `/ q5 h/ A9 ]5 zOn Error Resume Next4 \) J& T9 e) o2 h& l C
Dim explodedObjects As Variant
4 G5 V |) L$ E1 w( H7 m, ^explodedObjects = regionObj.Explode
* T: b& f8 K+ K/ x& B! @) R; e# ^6 A8 x( r2 S9 n y! u' c0 U6 Y( K
End Sub, y- Y1 v/ p( D7 p# L: I. Z
* b- M( v. K- a我想通过程序把面域删掉，该怎么做呢 |
|
发表于 2013-6-7 10:00:59
发表于 2013-6-8 12:43:19