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

cctv9527

% _! Z4 c& M! L4 j3 {% z

1. '主引线标记 为属性块
   
2.     'tukuang0C tukuang0A 为两个点坐标
   
3.    
   
4.     'A
   + ^7 `1 I) A. z2 l# A" ~2 I
5.     Dim adss As AcadSelectionSet
   " i5 Q" z4 n. G8 V4 c, ^7 I
6.     Dim fType(0 To 5) As Integer
   ! J$ ^! |& t  d' j# G
7.     Dim fData(0 To 5) As Variant
   # F$ F- V. ?3 P* G) E
8.     On Error Resume Next
   * [- \7 K) f0 [
9.     If Not IsNull(ThisDrawing.SelectionSets.Item("adSS")) Then
   6 F9 x+ V# c1 r7 E7 d+ P$ Z) t; o6 Z
10.     Set adss = ThisDrawing.SelectionSets.Item("adSS")
    4 m1 p' T. K$ b/ ?% V1 l
11.     adss.Delete
    7 I* i+ f: b- \0 W
12.     End If
    
13.     Set adss = ThisDrawing.SelectionSets.Add("adSS")
    
14.     '指定过滤机制
    
15.     fType(0) = 100: fData(0) = "acdbblockreference" '块参照
    $ }4 f. Y/ I1 v# F2 l7 S
16.     fType(1) = 2: fData(1) = "主引线标记" '块名
    3 o; u0 t- a2 _# B( u4 s, q$ X
17.     fType(2) = -4: fData(2) = ">,>,*"
    : k  F7 K+ }: c
18.     fType(3) = 10: fData(3) = tukuang0A
    ( b6 i; X5 R" g! Z3 B) Q* @
19.     fType(4) = -4: fData(4) = "<,<,*"
    
20.     fType(5) = 10: fData(5) = tukuang0C
    " p+ e' [% J) U& Q4 b" C
21.     adss.Select acSelectionSetAll, , , fType, fData
    : |& U' S( r7 [' \# Q* J8 |
22.     '测试
    
23.     MsgBox adss.Count
    
24.     adss(2).Erase
    6 H' m: u% @' |* G7 E
25.    
    
26.          
    
27.      'B
    . {/ L' [2 A, E+ m# C
28.     Dim adss1 As AcadSelectionSet
    & n: U5 d  C/ T8 [" \+ ?2 K
29.     Dim fType1(0 To 1) As Integer
    7 B; z  ^8 F$ F9 o* Y, B% a
30.     Dim fData1(0 To 1) As Variant
    
31.     On Error Resume Next
    
32.     If Not IsNull(ThisDrawing.SelectionSets.Item("adSS1")) Then
    9 A. c; h! F, [' c: _- ?1 E
33.     Set adss1 = ThisDrawing.SelectionSets.Item("adSS1")
    
34.     adss1.Delete
    ) B/ ?1 K  s( n% L) |0 i( `
35.     End If
    
36.     Set adss1 = ThisDrawing.SelectionSets.Add("adSS1")
    / k( l- C1 b. B! S& S$ o4 e
37.     '指定过滤机制
    / c* g, K+ P: d1 G
38.     fType1(0) = 100: fData1(0) = "acdbblockreference" '块参照
    ! e, k* M  r. m2 G8 E* I, {7 ^
39.     fType1(1) = 2: fData1(1) = "主引线标记" '块名
    5 N% S8 ~0 W) l% X! F
40.     adss1.Select acSelectionSetCrossing, tukuang0A, tukuang0C, fType, fData
    - \% @! w; [$ Z  Z" r1 ]2 V
41.     '测试
    % x% U3 d0 W* p6 ^0 L5 b  Z
42.     MsgBox adss1.Count
    
43.     adss1(4).Erase
    
44.   'C
    1 f. a: m, P; ~0 l" J! Y& k+ |
45.    
    . M% \- C7 n+ q, m; S
46.   'C1
    1 }0 g" ~2 @" ]4 r1 A* Y3 @
47.   ' Dim aref As AcadEntity
    / m: N" E( k# l* Q. `  y
48.   'C2
    # H% z' j: J; |, C  u
49.    Dim aref As AcadBlockReference
    
50.   'C3
    
51.   ' Dim aref As AcadAttributeReference
    
52.    
    
53.    Dim Bttreff As Variant
    ; ?* G) z' D0 w9 h0 J: s$ \
54.    Set aref = adss(2)
    / p/ S/ Q* J! w. g9 f# Q
55.    Bttreff = aref.GetAttributes
    
56.    MsgBox Bttreff(1)

复制代码

我用A 什么时候都能正确选择，  用B如果跟在A后面能正确选择，单独使用选择为空
/ F. ~( O& }* s) q* UC  选择不出东西来  哪儿写错了？  
7 e  _, i7 ?+ A" K; q' sC1　C２　C３有什么讲究吗？
( [- z' Y" G' L1 w- xWIN7 32位 + CAD 2006 32位


- S( B8 A" K/ ]4 y9 y4 k, g# P% c/ [+ I

woaishuijia

先说A段
A段中有一个错误

1. adss(2).Erase

复制代码

adss是选择集对象,adss(2)则是其中一个索引号为2的块参照对象,而块参照对象是没有Erase方法的.这显然是一个错误.
8 O) `1 D6 Z/ a. h; c这个错误在调试中没有被发现,原因在于

1. On Error Resume Next

复制代码

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

1. On Error GoTo 0

复制代码

它的用途是禁止当前过程中任何已启动的错误处理程序,也就是让On Error Resume Next在后面的代码中不再起作用.
: Z% t8 T% @" L4 F
# V; D( R8 [+ c! X3 TB段

1. Dim fType1(0 To 1) As Integer
   
2. Dim fData1(0 To 1) As Variant

复制代码

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

复制代码

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

1. Option Explicit

复制代码

这个语句的意义是要求变量必须显式声明.
如果没有这个语句,当程序运行到栏选这一行时,会自动声明两个新的变体变量:fType和fData,并没有使用你定义的选择集过滤器,导致选择失败.A段和B段连起来用时,这一行就会使用A段中定义的过滤器,所以正常.
+ m6 l$ \. D, X2 N. K; `提一个建议:在VBA编辑器的"工具"菜单下点"选项",在弹出的选项对话框的"编辑器"选项卡的"代码设置"框架中选中"要求变量声明"复选框.以后在新建模块窗口时,编辑器会在模块前面自动添加Option Explicit语句,这会让我们少犯错误.
9 I" E3 p$ h# e
C段

1. MsgBox Bttreff(1)

复制代码

错了

1. Bttreff = aref.GetAttributes

复制代码

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

1. MsgBox Bttreff(1).TagString

复制代码

或者

1. MsgBox Bttreff(1).TextString

复制代码

等等

C1,C2和C3
8 I/ ^' A! {( ?) ?' }. \C1和C2都对,C3错
AttributeReference是BlockReference(块参照对象)中的属性参照对象,是块参照对象的一个元素;BlockReference是Entity(CAD图元对象)的子集,而Entity又是Object(所有对象)的子集.
打个比方,BlockReference是"人",AttributeReference是"手",Entity是"动物"的统称,Object是"生物"的统称,"人"当然是"动物",也是"生物",但"人"不是"手","手"也不是"人"
如果你下一步要操作的是一个"人"对象,声明变量为"人",或者"动物",甚至"生物",对程序运行都没有影响.区别在于编辑代码时,如果VBA编辑器看到你前面声明的是"人",就会提示你所有"人"的属性,方法和事件;如果VBA编辑器看到你声明的是"动物",就只能提示"动物"共有的属性,方法和事件,如果你使用了"翅膀"这个鸟类动物的属性,VBA编辑器也不会发现你的错误,直到运行程序时才会报错.如果VBA编辑器看到你声明的是"生物",就什么提示也没有了,因为它根本不知道你要干什么.
: E. `2 E; z# R( e3 b