怎么用VBA选中某些对象?

14373 · 发表于 2011-12-10 08:52:57

您需要登录才可以下载或查看，没有帐号？注册

x

比如其中已命名的两个对象:firstLine和firstCircle,请指点,谢谢!

woaishuijia · 发表于 2011-12-10 21:48:11

SelectionSet 对象的 AddItems 方法,参数是要添加到选择集中的对象数组.

Dim firstLine As AcadLine, firstCircle As AcadCircle, P1(2) As Double, P2(2) As Double, E(1) As AcadEntity, SS As AcadSelectionSet1 N. w' y! L8 M j$ {
With ThisDrawing& ^( `' _* a. G2 Q, p, g
P2(0) = 10' W0 N# T$ g* r0 [7 a: v6 Z- K0 x$ V
Set firstLine = .ModelSpace.AddLine(P1, P2). [$ [0 v V! r6 U# W; }
Set firstCircle = .ModelSpace.AddCircle(P1, 5)
9 n; A+ ^% e$ X; }8 B
Set E(0) = firstLine
) u! Y% Q* ?' I B- G
Set E(1) = firstCircle
5 p" @% `9 ]. {" X
Set SS = .SelectionSets.Add("SS")
( n% V) _! m5 O& T/ X) v6 l' M
SS.AddItems E
8 Z3 V5 s! q3 w' B9 z
'
L6 b. q2 r( i4 i/ f$ d
'
: n f" j7 {8 [' p# k% {6 @
'* v) T7 h8 H$ Q0 a6 ^7 N
SS.Delete5 N$ b- U6 i% V5 L1 }) R
End With
: _6 G F( Q6 ]( ?: [

复制代码

		自动登录	找回密码
密码			注册

通知