怎么用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
   ' C( _3 _8 \) j# O; J
3.     P2(0) = 10
   2 p. M6 ?1 f: E  m, V  ?) ^8 ]% J" U
4.     Set firstLine = .ModelSpace.AddLine(P1, P2)
   
5.     Set firstCircle = .ModelSpace.AddCircle(P1, 5)
   
6.     Set E(0) = firstLine
   & F9 U7 y8 T/ p5 z
7.     Set E(1) = firstCircle
   % C( `7 s8 n2 T: v
8.     Set SS = .SelectionSets.Add("SS")
   ) I  t5 Q! S3 S  N5 M$ w
9.     SS.AddItems E
     c2 I" \& b' E/ o
10.     '
    $ c$ C8 w# x+ F" f2 q) ~
11.     '
    ; H* s/ x4 y, b0 W/ G
12.     '
    
13.     SS.Delete
    
14. End With
    

复制代码