怎么用VBA选中某些对象?

14373

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

woaishuijia

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

1. Dim firstLine As AcadLine, firstCircle As AcadCircle, P1(2) As Double, P2(2) As Double, E(1) As AcadEntity, SS As AcadSelectionSet
   
2. With ThisDrawing
   4 X6 g' l1 J+ k% W# r! W* W
3.     P2(0) = 10
   
4.     Set firstLine = .ModelSpace.AddLine(P1, P2)
   
5.     Set firstCircle = .ModelSpace.AddCircle(P1, 5)
   " H3 O0 H! H6 D. G% D5 X
6.     Set E(0) = firstLine
   4 M: F" N, ?3 F
7.     Set E(1) = firstCircle
   
8.     Set SS = .SelectionSets.Add("SS")
   ! u$ [, Q# o2 @5 ^9 O- a: o( b
9.     SS.AddItems E
   / q: g& Z# m1 l; N9 `
10.     '
    9 [0 t2 I9 W) A% m# V! L+ r
11.     '
    ! U+ n/ U2 ^4 v* h- S" O4 c
12.     '
    # p) j2 S7 }' z# H. O
13.     SS.Delete
    
14. End With
    / l- f, U  ?* e1 k" l

复制代码