怎么用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
   / j1 U" S& t+ d3 g
2. With ThisDrawing
   * V! ^! ^0 O- E9 J& Y7 `
3.     P2(0) = 10
   
4.     Set firstLine = .ModelSpace.AddLine(P1, P2)
   
5.     Set firstCircle = .ModelSpace.AddCircle(P1, 5)
   3 {) j" Z% j& u! s9 M9 e
6.     Set E(0) = firstLine
   " |4 B2 v9 J' O3 m9 b7 x
7.     Set E(1) = firstCircle
   
8.     Set SS = .SelectionSets.Add("SS")
   ; E. A4 x' I) K
9.     SS.AddItems E
   ; V. L( K/ q  N8 |. S
10.     '
    0 A/ ?4 `7 ]  ^' M( p" }
11.     '
    % O  U2 l  X# }/ l; S+ {. [
12.     '
    8 t  n* ~  @  T1 T- K
13.     SS.Delete
    , p' Z. z2 A/ i$ A0 t) Q
14. End With
    

复制代码