怎么用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
~# c# W8 K, P& b8 y
With ThisDrawing
& e! U- T9 O# B1 g9 | e
P2(0) = 10
3 d7 t# f6 x: k; L
Set firstLine = .ModelSpace.AddLine(P1, P2)4 V4 g6 I, x! B! m
Set firstCircle = .ModelSpace.AddCircle(P1, 5)
% t' r9 c |" d( T2 X: ~( ?: p5 q1 u
Set E(0) = firstLine
' L* p8 |5 k2 j8 u/ A4 O2 q7 \
Set E(1) = firstCircle
: S- C, j$ \3 G
Set SS = .SelectionSets.Add("SS")
/ T6 C" _2 A! s2 ^5 p6 U! x$ _
SS.AddItems E W' Z) H0 W' d4 Y1 f
'
. x2 T5 }; J, }7 B4 k+ h
'4 B1 }$ o5 J3 j+ d
'
4 K2 B) R" Q/ Z' u& f
SS.Delete: g- V8 n5 ]1 X" }
End With
- z0 B& i, W. w) w# G* o& N

复制代码

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

通知