- 积分
- 1478
- 明经币
- 个
- 注册时间
- 2005-4-7
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
这些问题都是近来学用vba遇到的,不算什么新东西了。对自己这段时间的学习和应用做个总结吧。有些甚至不算bug,但是很容易弄错或忘掉。有些可能是因为不同的机器设置导致。因为我调试程序用过的电脑很多。 总之给大家提个醒吧,出了问题有可能会是出现以下情况。 小弟初发,欢迎大家指正!
1 关于选择集selectionset
1) 选择集只能选中目前视图中已有的东西。因此,如果用到 select方法,且mode为 acSelectionSetWindow 或acSelectionSetCrossing 最好先Zoom一下。比较准确。 如: ThisDrawing.Application.ZoomWindow corner2, corner1 ssetObj.Select acSelectionSetCrossing, corner1, corner2 有人问为什么不Zoom All. 我试了很多次发现,Zoom all后对于很大的图上选很小的区域会出现偏差。选不中或者选错都有。当时真是大晕。
2) 上述selectionset的cor1,cor2. 仔细看帮助文档后发现,它用到的点 一定要用 dim a(0 to 2 ) as double 的形式。 但是,很多时候vba里面取得图形的某点是用 variant 变量的。这个转化就不可少。
如:dim point1,point2 as variant dim p1(2) as double dim p2(2) as double Block1.GetBoundingBox point1, point2 p1(0)=point1(0) p1(1)=point1(1) p1(2)=point1(2) p2(0)=point2(0) p2(1)=point2(1) p2(2)=point2(2) ssetObj.Select acSelectionSetCrossing, p1, p2 2 常数 vba中有各种定义好的常数。如上例中的 acSelectionSetCrossing。我们一般不关心它究竟等于多少,直接写成上述形式就可以了。 但是,我就遇到过 跟踪器里显示acSelectionSetCrossing=0 的情况。 不知道为什么,vba系统没有把该常数转换成对应数值,而是当作未定义的变量来处理。所以大家还是稳妥点直接写数字为好。 类似情况见下文
3 关键字
同上,也会被当作变量处理。 例如 vb中有个语句 NAME 。对文件更改名称用的。 有次我发现vba将其看作变量,并赋值 "ACAD" 偶选择了无语。。。 4 顺便建议大家: vba里文件操作有两套手段。一套是用最早的basic的解决方法,全套语句。 如 打开是open,关闭 close。写入write,读出input等。 另一套是创建一个file的object.上述动作等转化为object对应的属性和方法。 前者简单,后者麻烦一点点。 但是还是建议用后者吧。出问题的可能性少很多。比如刚才的NAME......
5 Insertionpoint 问题 无论是BlockRef,还是Text,MText,都有一个Insertionpoint属性。记录了它在图形中的插入点坐标。 这个属性在编辑器里查看,都是 Insertionpoint-- Insertionpoint(0)=... Insertionpoint(1)=... Insertionpoint(2)=... 的形式。但是,千万不要以为它是数组。 试图用数组的形式调用它是无效的。必须定义一个variant变量。 dim a as variant a=Block1.InsertionPoint 顺便说下,vba里属性很多都要用variant类型的变量才能取得。而方法或者函数中的参数都要用double类型的数组。这个转换是必须进行的。
6 文档级事件 Endplot事件,在打印对话框选择"确定"与"取消"的情况下,都会被触发 而且,如果用命令行执行 "-plot",一路执行下去。 即使最后选择 “不继续打印”,打印相关的各个事件 startplot endplot startcommand endcommand 均触发。 请大家留意。
7 应用程序级事件 SysVarChanged 这个事件。在系统变量值改变时触发。 但是不是所有系统变量都触发该事件的。 只有人工改变系统变量值的行为才触发它。 同时,只要有“行为”,哪怕该值并没有真正改变,也会触发它。 |
|