怎么用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 AcadSelectionSet! _2 ?: e% M: |2 q
With ThisDrawing" t% C) I: k7 w Q, k4 f
P2(0) = 10! W: n! V B3 ?) v+ O
Set firstLine = .ModelSpace.AddLine(P1, P2). D5 G( Y2 e1 O
Set firstCircle = .ModelSpace.AddCircle(P1, 5)3 v8 T) z B- e, n) ^ l* f
Set E(0) = firstLine. g5 |. C5 V6 J$ x. F
Set E(1) = firstCircle
' C" p* B: _3 i4 f- |+ u* W4 d
Set SS = .SelectionSets.Add("SS")
+ c% j5 K) M. v3 ~. @7 S* v) q
SS.AddItems E
6 j5 [7 X" t0 X/ m" r% g' U+ T1 o' I
'
; |% m9 o3 g# G7 x
'
5 A( M: f( ^4 g! M7 D, S3 `2 z
'
; N/ P1 \' i$ T3 Z/ _4 |
SS.Delete
; _7 W- b) _/ A: Z3 X7 p
End With% F6 K& m0 F9 T$ h4 s: C- C

复制代码

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

通知