用vba的selectonscreen时使用缩放、平移命令会中断vba的选择，痛苦

Taoyimaier · 发表于 2003-4-18 19:50:00

写一个代码如下的程序(大致意思如下)，
public sub main()
set objsets = thisdrawing.selectsets
set objset = objsets.add("kkk")
objset.selectonscreen
msgbox objset.count
objset.clear
objset.delete
end sub
当我想多选择些实体时，用了pan,zoom，结果在命令行出现了*取消*
版主，我知道您是一个好人，也许您不是第一次回答这个问题，但...

myfreemind · 发表于 2003-4-18 20:10:00

public sub main()
on error goto err
set objsets = thisdrawing.selectsets
set objset = objsets.add("kkk")
objset.selectonscreen
msgbox objset.count
objset.clear
objset.delete
exit sub
err:
resume
end sub

Taoyimaier · 发表于 2003-4-18 21:27:00

我发现在用selectonscreen时使用一些透明命令pan,zoom时不会产生错误来触发错误机制，如果按你的意思的话，那么程序用了pan之后将继续执行后面的语句，而不能再继续选择，程序也变得没有任何意义（只要用了别的命令，选择集的count属性都成了0）,

Taoyimaier · 发表于 2003-4-18 22:57:00

版主，你的话太打击我的积极性了，上天为什么对我如此不公，刚改用vba就受到这个挫折，那我问问版主，如果你碰到了，怎么办啊，换语言？其实我得vlisp还好一些，但就是因为这个程序要有一些界面，难道非要学dcl,
还有一个问题，就是在用vba是，插入的textbox控件前总有几个字符的空位
这样看起来感觉不好，怎么解决的，
真的非常感谢我们的版主和我的同行myfreemind
thanks