[VBA程序]：在VBA程序中使用getpoint时不能使用AutoCAD工具栏上的命令，怎么办？

凡子 · 发表于 2005-9-3 16:14:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我用VBA编写程序时，要用到getpoint方法，有时因为要缩放视图，就想用工具栏上的zoom，Pan等命令，可是一点这些图标，getpoint就返回空值了。但是AutoCAD自带的Bhatch命令就很好，点“拾取点”进入绘图界面后就可以随意使用zoom,pan等命令。真是郁闷！
不知哪位仁兄可以给予指点，在编程时能象透明命令一样使用这些zoom,pan命令而不影响getpoint 的使用？

雪山飞狐(lzh) · 发表于 2005-9-3 16:17:53

http://www.vba.cn/bbs/dispbbs.as ... ;ID=5682&page=1

凡子 · 发表于 2005-9-3 16:30:59

Very good！
我在其他论坛发的贴好久没人回，每想到在这里斑竹这么快就找到了，非常感谢！

另外，该程序有点小小瑕疵：case语句第二个值应为-2145320928，这是判断按了右键的err.number.

再次感谢！

ahlzl · 发表于 2005-9-3 17:43:47

如果在AutoCAD 2006 上运行，就可进行平移、缩放的透明操作了，getpoint正常！！

凡子 · 发表于 2005-9-3 21:43:50

这里讨论一下这个程序的问题，希望斑竹可以解惑：

'按了取消键或其它透明命令
varCancel = ThisDrawing.GetVariable("LASTPROMPT")
If InStr(1, varCancel, "*Cancel*") <> 0 And InStr(1, varCancel, "*取消*") <> 0 Then
      Err.Clear
      Resume Exit_Here
   Else
      Err.Clear
      Resume
   End If
上面if一句中为什么要用and连接两个条件呢？难道会有中英文的cancel提示同时出现吗？应该是中文版就出现“取消”，英文版就是“cancel”吧？

雪山飞狐(lzh) · 发表于 2005-9-4 09:08:50

看看18楼的代码

凡子 · 发表于 2005-9-4 23:45:24

TKS!
偶没看后面的贴，汗！

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：在VBA程序中使用getpoint时不能使用AutoCAD工具栏上的命令，怎么办？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子