|
|
发表于 2014-7-18 05:48:15
|
显示全部楼层
来自: 中国辽宁营口
先说A段
" ^% J# c6 j1 ]! f$ M$ ~, BA段中有一个错误adss是选择集对象,adss(2)则是其中一个索引号为2的块参照对象,而块参照对象是没有Erase方法的.这显然是一个错误.' \9 _' V3 x _5 x4 Y" B+ k$ m
这个错误在调试中没有被发现,原因在于On Error Resume Next使得程序在遇到错误时跳过去执行下一行.这本来是为查找同名选择集用的,可它在代码后面仍然在发挥作用,掩盖了后面的错误.' E6 W( ~, D/ e8 a& H% [
合理的方法是在查找同名选择集后,在代码中写入一行它的用途是禁止当前过程中任何已启动的错误处理程序,也就是让On Error Resume Next在后面的代码中不再起作用.& q& n; B1 }( o' g2 X! |* S- ^% e
1 L# e* R; K7 \% d k
B段- Dim fType1(0 To 1) As Integer
$ e% f8 h. J5 ?+ i4 q - Dim fData1(0 To 1) As Variant
复制代码- adss1.Select acSelectionSetCrossing, tukuang0A, tukuang0C, fType, fData
复制代码 你的模块通用声明部分应该是缺少这一行这个语句的意义是要求变量必须显式声明.
( ]. g" x7 }3 |# L" g, x如果没有这个语句,当程序运行到栏选这一行时,会自动声明两个新的变体变量:fType和fData,并没有使用你定义的选择集过滤器,导致选择失败.A段和B段连起来用时,这一行就会使用A段中定义的过滤器,所以正常.7 B) | \, [) j. G- W7 z% h
提一个建议:在VBA编辑器的"工具"菜单下点"选项",在弹出的选项对话框的"编辑器"选项卡的"代码设置"框架中选中"要求变量声明"复选框.以后在新建模块窗口时,编辑器会在模块前面自动添加Option Explicit语句,这会让我们少犯错误.
9 m8 [) U) a0 v n2 f9 {& m& _1 ~' C- Y& m3 x; @
C段错了- Bttreff = aref.GetAttributes
复制代码 Bttreff是包含该块参照中所有属性参照的数组,Bttreff(1)则是其中一个数组下标为1的属性参照对象;而MsgBox的第一个参数是你想在消息框上显示的字符串,它不能显示一个CAD对象 7 N9 e% @, H+ Y) r( @# z
可以这样写- MsgBox Bttreff(1).TagString
复制代码 或者- MsgBox Bttreff(1).TextString
复制代码 等等
' y* L& c: @) p: y0 w. o( c) u/ \2 V) p% A5 v
C1,C2和C3
( r9 f8 F, |( RC1和C2都对,C3错
+ k! O* A8 Y" KAttributeReference是BlockReference(块参照对象)中的属性参照对象,是块参照对象的一个元素;BlockReference是Entity(CAD图元对象)的子集,而Entity又是Object(所有对象)的子集.% m! o9 r6 g) t+ R& i* w
打个比方,BlockReference是"人",AttributeReference是"手",Entity是"动物"的统称,Object是"生物"的统称,"人"当然是"动物",也是"生物",但"人"不是"手","手"也不是"人"5 f ~( y- |" z7 Y2 C( V5 c' Y
如果你下一步要操作的是一个"人"对象,声明变量为"人",或者"动物",甚至"生物",对程序运行都没有影响.区别在于编辑代码时,如果VBA编辑器看到你前面声明的是"人",就会提示你所有"人"的属性,方法和事件;如果VBA编辑器看到你声明的是"动物",就只能提示"动物"共有的属性,方法和事件,如果你使用了"翅膀"这个鸟类动物的属性,VBA编辑器也不会发现你的错误,直到运行程序时才会报错.如果VBA编辑器看到你声明的是"生物",就什么提示也没有了,因为它根本不知道你要干什么.3 [% z/ c6 L) w8 f2 }
|
|