[VBA]请教一个棘手的问题

weibo0715 · 发表于 2006-7-3 11:35:00

情况：1.我新建一个装配体文件assem.iam; 2.使用载入零部件命令载入零件part1.ipt

问题是：我在载入以后只要鼠标左键在什么地方点击一下就会出现一个1.ipt；这是怎么回事，请高手详细讲解一下，好吗？是通过什么机制实现的，具体到vba里面是通过什么函数实现这个功能的呢？

我现在很急，这个事情我一定要搞的很清楚，很透彻，请陈老您帮大忙啊!

weibo0715 · 发表于 2006-7-3 11:48:00

没有人知道啊？

canyouzeng · 发表于 2006-7-3 11:49:00

正常的。Inventor装配中载入零部件时点一下便添加一个零部件文件，您要多少便点多少下，如只要一个便点一下后按右键选择“结束”。

fuzhan · 发表于 2006-7-3 11:52:00

楼主是想编个类似的小程序还是想研究该机制？如果是我编我会用一个循环的代码，截入过程先得到该零件，再询问插入点（即用鼠标点击），点击后插入（生成）该零件，再回到询问插入点。。。（循环），直至用户按下ESC键或右键快捷菜单退出结束整个载入过程。

weibo0715 · 发表于 2006-7-3 11:54:00

canyouzeng发表于2006-7-3 11:49:00正常的。Inventor装配中载入零部件时点一下便添加一个零部件文件，您要多少便点多少下，如只要一个便点一下后按右键选择“结束”。

那么请问是通过什么机制实现的呢？

特别是怎么通过VBA函数实现

这才是问题的关键

weibo0715 · 发表于 2006-7-3 11:55:00

fuzhan发表于2006-7-3 11:52:00楼主是想编个类似的小程序还是想研究该机制？如果是我编我会用一个循环的代码，截入过程先得到该零件，再询问插入点（即用鼠标点击），点击后插入（生成）该零件...

嗯

我也是这么想的，但是函数找了半天没有找到

canyouzeng · 发表于 2006-7-3 11:58:00

这个我不懂……

我会骑自行车，但我不会造自行车……

fuzhan · 发表于 2006-7-3 12:08:00

sub XX()

if 按下的键盘键=esc then

exit sub

else

插入零件

end if

回到询问插入点代码执行过程

end sub

用上面的思路大概可行

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