怎么用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
   ! t6 `( x: j6 d  B$ y/ b
2. With ThisDrawing
   9 g% `2 t9 B& f% r% s
3.     P2(0) = 10
   
4.     Set firstLine = .ModelSpace.AddLine(P1, P2)
   1 a# b9 t& G3 h
5.     Set firstCircle = .ModelSpace.AddCircle(P1, 5)
   
6.     Set E(0) = firstLine
   & K# o( h. A) I
7.     Set E(1) = firstCircle
   
8.     Set SS = .SelectionSets.Add("SS")
   + D2 [, B; G  y* k6 z
9.     SS.AddItems E
   
10.     '
    % [0 }( k! a" h8 l7 M$ V7 k5 e  k8 W
11.     '
    . p( R0 B+ [- [: L/ P3 R! \) G
12.     '
    
13.     SS.Delete
    % ~* R" w6 f& c2 H
14. End With
    ! f% T! Z# q  ?  i3 M( I: u- ~' Z& e) \

复制代码