怎么用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
   * d8 m5 U( s' Q/ f7 k/ d3 R0 f
2. With ThisDrawing
   + s1 i3 n. `2 O% h+ v+ T
3.     P2(0) = 10
   2 o" K  S# E+ m
4.     Set firstLine = .ModelSpace.AddLine(P1, P2)
   
5.     Set firstCircle = .ModelSpace.AddCircle(P1, 5)
   1 m6 C  I8 k/ B( P
6.     Set E(0) = firstLine
   0 Z/ v7 H- i' R; t
7.     Set E(1) = firstCircle
   6 {5 ]  B- C8 a, k- h9 q
8.     Set SS = .SelectionSets.Add("SS")
   3 `: |+ C( p4 w7 c
9.     SS.AddItems E
   
10.     '
    
11.     '
    0 p# N& E" k# \3 r( d
12.     '
    ( F8 r' E: S- ?9 ^0 F$ M& A
13.     SS.Delete
    
14. End With
    1 z5 }! L* Q# v* r

复制代码