VBA与透明命令 请教

xxxx

我想在用getpoint取得点时，要透明运行移动视图然后再取点。如何实现?

efan2000

试着这种方法：
on error goto errtrap
dim pt as variant
pt=thisdrawing.utility.getpoint(,"选择点: ")

errtrap:
  if err.number=-2147352567 Then '可能是透明命令
    err.clear
    resume
  end if

mccad

你试着在VBA运行期间(如getpoint时)，直接在命令行中输入'zoom试试，这样才是有效的透明命令(但这种方法谁都觉得麻烦)。

河伯

zeuce

我正准备向各位请教，如何在捕捉点时用透明明令，搜索到这个方法，真是高，解决我的大问题。

zeuce

用这种方法在画直接和多义线等时，用ESC不能退出，可能透明命令的错误代码与此相同，这时用空格和右键退出就可以正常操作。

xh_ldh

没有中键怎么办？？

mccad

zeuce

很多时候要进行框选放大，这时中键及滑轮就没有办法了。