还是选择集,求前辈们指教下

cctv9527

; |: g3 D- [, b# N: y

1. '主引线标记 为属性块
   
2.     'tukuang0C tukuang0A 为两个点坐标
   
3.    
   
4.     'A
   , t8 \4 J% Y. T4 F
5.     Dim adss As AcadSelectionSet
   6 P' R) g6 E5 `) v2 Y( K
6.     Dim fType(0 To 5) As Integer
   
7.     Dim fData(0 To 5) As Variant
   
8.     On Error Resume Next
   
9.     If Not IsNull(ThisDrawing.SelectionSets.Item("adSS")) Then
   
10.     Set adss = ThisDrawing.SelectionSets.Item("adSS")
    4 R+ n0 b) \2 o
11.     adss.Delete
      c- i2 p' W  n/ ?* B5 ~
12.     End If
    " l$ M- `) ]' r/ X; \4 ?! t
13.     Set adss = ThisDrawing.SelectionSets.Add("adSS")
    
14.     '指定过滤机制
    : }$ z- \- }1 H. p
15.     fType(0) = 100: fData(0) = "acdbblockreference" '块参照
    5 G& W7 ?3 O4 T' k8 l# e6 C* Z
16.     fType(1) = 2: fData(1) = "主引线标记" '块名
    # w& J- O1 D) z3 I. L8 M
17.     fType(2) = -4: fData(2) = ">,>,*"
    
18.     fType(3) = 10: fData(3) = tukuang0A
    
19.     fType(4) = -4: fData(4) = "<,<,*"
    0 O) @- Y3 E4 k9 H& }
20.     fType(5) = 10: fData(5) = tukuang0C
    
21.     adss.Select acSelectionSetAll, , , fType, fData
    ; P- H* ]( A8 n- a* W  z
22.     '测试
      C% L+ j; y! B$ q; u
23.     MsgBox adss.Count
    . ]# {  `# T+ \+ T  S
24.     adss(2).Erase
    
25.    
    & H# k: S  g2 f. |1 z8 f# F
26.          
    
27.      'B
    
28.     Dim adss1 As AcadSelectionSet
    ! c" ]6 c/ A$ Y- Q0 }
29.     Dim fType1(0 To 1) As Integer
    / h( k: d0 C! a: Z: Q$ z% c1 ]5 |
30.     Dim fData1(0 To 1) As Variant
    
31.     On Error Resume Next
    ' F; I& q8 H3 Y) T2 i. T+ f
32.     If Not IsNull(ThisDrawing.SelectionSets.Item("adSS1")) Then
    ' I4 p  A3 T9 S7 h6 q$ _, a1 P
33.     Set adss1 = ThisDrawing.SelectionSets.Item("adSS1")
    ) u0 p( O- O7 W
34.     adss1.Delete
    - j6 |: q' l4 U1 H0 _
35.     End If
    6 _7 S# j( \6 F. W
36.     Set adss1 = ThisDrawing.SelectionSets.Add("adSS1")
    8 a0 q; Z2 ~3 A$ T5 r
37.     '指定过滤机制
    
38.     fType1(0) = 100: fData1(0) = "acdbblockreference" '块参照
    
39.     fType1(1) = 2: fData1(1) = "主引线标记" '块名
    
40.     adss1.Select acSelectionSetCrossing, tukuang0A, tukuang0C, fType, fData
    / V, r# A# E/ p* \( G  j& M3 G- o  l
41.     '测试
    % q/ u5 |. t( }( n& ~' ~6 X
42.     MsgBox adss1.Count
    / C! Q. P3 {( L7 W+ Z) e8 j# F
43.     adss1(4).Erase
    
44.   'C
    4 G5 T1 |* C1 |" Z) n8 _
45.    
    7 ^& f& k' @2 i0 `2 `
46.   'C1
    , n; X$ t7 g# I/ c$ T1 B
47.   ' Dim aref As AcadEntity
    , c, u: l# V$ E' g
48.   'C2
    0 \$ E2 X$ o5 i% ?& P
49.    Dim aref As AcadBlockReference
    
50.   'C3
    4 J. ]) u0 A+ s1 N9 K
51.   ' Dim aref As AcadAttributeReference
    ! u4 Q2 e1 H% n; `% @# P
52.    
    ' g( Y" h5 }- I& P. S% V0 G/ C* \
53.    Dim Bttreff As Variant
    0 r' ^' O- H5 p
54.    Set aref = adss(2)
    6 ?' P; {1 \" b8 K+ K
55.    Bttreff = aref.GetAttributes
    
56.    MsgBox Bttreff(1)

复制代码

我用A 什么时候都能正确选择，  用B如果跟在A后面能正确选择，单独使用选择为空
C  选择不出东西来  哪儿写错了？  
C1　C２　C３有什么讲究吗？
  M: X% ^1 j* ]/ Q3 J1 R- J* T0 wWIN7 32位 + CAD 2006 32位

woaishuijia

先说A段
1 i; k' R3 R, l7 Q- L( [A段中有一个错误

1. adss(2).Erase

复制代码

adss是选择集对象,adss(2)则是其中一个索引号为2的块参照对象,而块参照对象是没有Erase方法的.这显然是一个错误.
. v( O# }0 q6 s6 y3 i/ N这个错误在调试中没有被发现,原因在于

1. On Error Resume Next

复制代码

On Error Resume Next使得程序在遇到错误时跳过去执行下一行.这本来是为查找同名选择集用的,可它在代码后面仍然在发挥作用,掩盖了后面的错误.
合理的方法是在查找同名选择集后,在代码中写入一行

1. On Error GoTo 0

复制代码

它的用途是禁止当前过程中任何已启动的错误处理程序,也就是让On Error Resume Next在后面的代码中不再起作用.

B段

1. Dim fType1(0 To 1) As Integer
   ! @' |; |& g0 t6 \# _, m2 l; i% P" Q
2. Dim fData1(0 To 1) As Variant

复制代码

1. adss1.Select acSelectionSetCrossing, tukuang0A, tukuang0C, fType, fData

复制代码

你的模块通用声明部分应该是缺少这一行

1. Option Explicit

复制代码

这个语句的意义是要求变量必须显式声明.
2 r& O8 C& R- {4 @! c5 t( N$ N如果没有这个语句,当程序运行到栏选这一行时,会自动声明两个新的变体变量:fType和fData,并没有使用你定义的选择集过滤器,导致选择失败.A段和B段连起来用时,这一行就会使用A段中定义的过滤器,所以正常.
+ X; N5 R) B1 g& J: _+ E1 @% e提一个建议:在VBA编辑器的"工具"菜单下点"选项",在弹出的选项对话框的"编辑器"选项卡的"代码设置"框架中选中"要求变量声明"复选框.以后在新建模块窗口时,编辑器会在模块前面自动添加Option Explicit语句,这会让我们少犯错误.
/ n# f/ @2 J$ d8 K( s
C段

1. MsgBox Bttreff(1)

复制代码

错了

1. Bttreff = aref.GetAttributes

复制代码

Bttreff是包含该块参照中所有属性参照的数组,Bttreff(1)则是其中一个数组下标为1的属性参照对象;而MsgBox的第一个参数是你想在消息框上显示的字符串,它不能显示一个CAD对象
可以这样写

1. MsgBox Bttreff(1).TagString

复制代码

或者

1. MsgBox Bttreff(1).TextString

复制代码

等等
, q) |' C. T# j  f4 i- t. \" f. w
C1,C2和C3
6 A  X' q8 @: q1 h: g7 }C1和C2都对,C3错
7 M* [6 ~# ]8 a- OAttributeReference是BlockReference(块参照对象)中的属性参照对象,是块参照对象的一个元素;BlockReference是Entity(CAD图元对象)的子集,而Entity又是Object(所有对象)的子集.
打个比方,BlockReference是"人",AttributeReference是"手",Entity是"动物"的统称,Object是"生物"的统称,"人"当然是"动物",也是"生物",但"人"不是"手","手"也不是"人"
如果你下一步要操作的是一个"人"对象,声明变量为"人",或者"动物",甚至"生物",对程序运行都没有影响.区别在于编辑代码时,如果VBA编辑器看到你前面声明的是"人",就会提示你所有"人"的属性,方法和事件;如果VBA编辑器看到你声明的是"动物",就只能提示"动物"共有的属性,方法和事件,如果你使用了"翅膀"这个鸟类动物的属性,VBA编辑器也不会发现你的错误,直到运行程序时才会报错.如果VBA编辑器看到你声明的是"生物",就什么提示也没有了,因为它根本不知道你要干什么.
/ R! ~3 X$ p' ?. @: k