VBA与透明命令 请教
我想在用getpoint取得点时，要透明运行移动视图然后再取点。如何实现? 试着这种方法：on error goto errtrap
dim pt as variant
pt=thisdrawing.utility.getpoint(,"选择点: ")
errtrap:
if err.number=-2147352567 Then '可能是透明命令
err.clear
resume
end if 你试着在VBA运行期间(如getpoint时)，直接在命令行中输入'zoom试试，这样才是有效的透明命令(但这种方法谁都觉得麻烦)。
我正准备向各位请教，如何在捕捉点时用透明明令，搜索到这个方法，真是高，解决我的大问题。 用这种方法在画直接和多义线等时，用ESC不能退出，可能透明命令的错误代码与此相同，这时用空格和右键退出就可以正常操作。 没有中键怎么办？？ 很多时候要进行框选放大，这时中键及滑轮就没有办法了。
页:
[1]