乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 260|回复: 13

Autocad。激活或Autocad。设置焦点

[复制链接]
329

1

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 2007-10-4 11:33:41 | 显示全部楼层 |阅读模式
我不知道这是否可以做到,我相信它可以 我想做的只是在调试/测试期间,我想进入sub,我想让autocad成为焦点 我设置了断点,因此代码将停止 我的问题是,有时当我单步执行代码时,VBA希望我选择一些东西,当我尝试切换到该窗口时,我最终选择了其他地方
我知道如果我想获取excel,我可以使用[代码但是我正试图在IDE中实现它
回复

使用道具 举报

0

主题

14

帖子

7

银币

初来乍到

Rank: 1

铜币
15
发表于 2007-10-16 12:42:03 | 显示全部楼层

不确定你想做什么
回复

使用道具 举报

0

主题

13

帖子

6

银币

初来乍到

Rank: 1

铜币
13
发表于 2007-10-19 09:52:41 | 显示全部楼层
当Im调试时,使用F8单步遍历代码,当它到达拾取点或选择对象时,我希望将焦点发送到acad,而无需单击它(这有时会导致错误拾取,从而在代码Im调试中触发错误检查)
回复

使用道具 举报

0

主题

9

帖子

4

银币

初来乍到

Rank: 1

铜币
11
发表于 2007-10-19 10:20:08 | 显示全部楼层

好的,我现在明白了,这很有趣;我只花了几分钟的时间研究它,一定有一种方法可以用代码回到绘图环境中
假设这就是你想要的
我们用于从VBA访问ACAD的蓝色按钮会触发宿主文档文件名
那么,我们如何将其转化为代码呢?这是一个问题……我注意到有一个Acadview对象,但我不确定我是否在正确的轨道上。如果我稍后有时间,我一定会尝试给你一个答案
标记
回复

使用道具 举报

0

主题

8

帖子

4

银币

初来乍到

Rank: 1

铜币
10
发表于 2007-10-23 16:27:54 | 显示全部楼层

我想这可能就是你要找的东西。在让用户做出选择之前,把这是你的代码
  1. Application.VBE.MainWindow.Visible = False
标记
回复

使用道具 举报

0

主题

9

帖子

3

银币

初来乍到

Rank: 1

铜币
9
发表于 2007-10-23 19:37:54 | 显示全部楼层
我不知道'我看这没什么用 如果您单步执行代码,则一次执行一行代码 如果在选择之前的行上更改焦点,则可以#039;t点击F8进入选择 如果是下一行,您可以#039;t单步执行,直到选择 这将是令人敬畏的,但在我看来,这就像一个谜给一个谜 可能是一个外部应用程序,当它等待选择时会将焦点切换到autocad,但我不&35;039;我不知道。
回复

使用道具 举报

0

主题

12

帖子

6

银币

初来乍到

Rank: 1

铜币
13
发表于 2007-10-24 09:34:01 | 显示全部楼层

是的
我不'我不知道;我确信我理解确切的需求,但这一行代码肯定会引起关注;无需单击任何内容即可访问ACAD
可能你可以写一个子函数或函数,如果发生这种情况,那么
  1. Application.VBE.MainWindow.Visible = False  'Give focus to ACAD
如果不确定,则结束标记
回复

使用道具 举报

0

主题

6

帖子

5

银币

初来乍到

Rank: 1

铜币
7
发表于 2007-10-24 09:34:29 | 显示全部楼层

对不起,我的意思是,我没有完全理解
回复

使用道具 举报

0

主题

4

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2007-10-24 12:47:21 | 显示全部楼层
我认为Bob说得最好,VBA怎么知道我是否按F8键;我认为这是做不到的 哦,好吧
回复

使用道具 举报

0

主题

11

帖子

5

银币

初来乍到

Rank: 1

铜币
12
发表于 2007-10-24 14:04:02 | 显示全部楼层

坚持住,伙计;让我们试试一件愚蠢的小事
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 08:16 , Processed in 1.584265 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表