怎么用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
   - ?# G( E- G+ R) h- p4 P7 y
2. With ThisDrawing
   7 c) \2 Y' R3 `) h8 [6 x
3.     P2(0) = 10
   
4.     Set firstLine = .ModelSpace.AddLine(P1, P2)
   / a: {! P) O2 r, i- C0 V5 z! q
5.     Set firstCircle = .ModelSpace.AddCircle(P1, 5)
   9 x6 c& G% I4 f* N& R* Z
6.     Set E(0) = firstLine
   
7.     Set E(1) = firstCircle
   , W) T. i+ L: v, w0 i3 ?1 }
8.     Set SS = .SelectionSets.Add("SS")
   + z6 l2 }& i! p4 ?* v" i0 Z
9.     SS.AddItems E
   
10.     '
    
11.     '
    
12.     '
    
13.     SS.Delete
    5 \, e, I) |4 q  G
14. End With
    & {) U  d- w5 j8 A' v; D5 y8 S. ~

复制代码