怎么用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 e7 n. Z1 V" M+ a$ k
With ThisDrawing/ ]5 J; X+ a, \! w
P2(0) = 103 ^. M5 }. Y4 C0 L4 C, c# Y
Set firstLine = .ModelSpace.AddLine(P1, P2)
- ^" P: i3 L$ T
Set firstCircle = .ModelSpace.AddCircle(P1, 5)
3 v8 T0 b& ~" X/ m, Q* o
Set E(0) = firstLine
$ D4 S9 J( U# R" C( J
Set E(1) = firstCircle
: X5 g O. D& |+ u
Set SS = .SelectionSets.Add("SS")
$ Y: W0 E& q, `& D* t' V" g
SS.AddItems E
- Z+ q6 q, v6 ~! ~; Y) J) ^
'2 y8 u7 ]7 [% l ]7 d: E- G4 X
'
s4 ` O9 C- r+ r7 v
'
5 Z# x& N# p- |4 v- n! q5 B% H
SS.Delete! O5 ^. H, v- H8 L7 U7 d W# j: G
End With2 e* f6 J5 ^. |, y* `1 ^3 j e: ~

复制代码

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

通知