怎么用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 z+ \, i0 N$ v
With ThisDrawing/ m) p+ q& N, g) Q/ W+ S
P2(0) = 10. d: p1 ]! B' w3 f
Set firstLine = .ModelSpace.AddLine(P1, P2)
}$ P/ x5 L% Z6 ^2 ?
Set firstCircle = .ModelSpace.AddCircle(P1, 5)
" R3 e7 V+ ]1 f6 b* m- I L/ D: G: Z
Set E(0) = firstLine
, X- X% d+ W) {0 Q5 B
Set E(1) = firstCircle" K$ z1 _9 d8 m# p# R
Set SS = .SelectionSets.Add("SS")5 m: `8 s7 F. x) H; G, R; F9 p
SS.AddItems E
$ M( g& @" n/ D8 P
'+ ?7 J" A' y1 s) Z) i$ z
'; X' F& T4 J: G3 k% h$ Y
'3 l5 @2 S& ]: M- {. G/ S' p0 e
SS.Delete8 F# I0 |5 x" R
End With' T5 V+ Z, u% K9 f1 |

复制代码

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

通知