AutoCAD VBA Sendkey 打开/关闭大写锁定答案

【问题标题】：AutoCAD VBA Sendkey turns on/off Caps LockAutoCAD VBA Sendkey 打开/关闭大写锁定
【发布时间】：2017-04-06 20:23:35
【问题描述】：

我在 AutoCAD 中使用了一些使用 SendKeys 命令的自定义命令。最近这开始打开和关闭我的 Caps Lock 和 Num Lock 并且有点不可预测，所以我正在寻找SendKeys 命令的替代方法。

我可以使用什么会产生相同的结果？

代码允许我复制一个对象并多次粘贴。

Sub CopyMultiple()
    SendKeys "MULTIPLE" & Chr(13) & "COPY" & Chr(13)
End Sub

【问题讨论】：

所以在 AutoCAD 中，您会键入 "MULTIPLE" [Enter] "COPY" [Enter] 来执行此操作（不是快捷方式）？通常，当您涉及换行/回车时，您是否应该在两者之间稍等一下？我以前使用 SendKey 来自动执行大量击键来调用软件进行备份。并且多次出现类似问题并解决它，我必须放慢速度 - 在预期弹出窗口时暂停。
对不起，我应该指定的。我点击了触发代码的 [C] [M] [SPACE]。它为我工作了一年，然后突然在一两个星期前开始弄乱我的大写锁定。还有一些我很少使用的带有快捷方式的其他命令也使用 SendKeys，因此我能够验证 Sendkeys 是问题所在。我部门中使用相同快捷方式的其他人没有问题。
你使用.AppActivate()吗？在 Windows 上使用相同的语言？您可以将 Shell 和 SendKeys 的这些行提取到新的 .vbs 文件中，然后在不考虑 AutoCAD 的情况下进行测试？
我不确定我是否听懂了你的意思。你的意思是在另一个使用 VBA 的程序中试试，比如 Excel？

标签： vba autocad sendkeys capslock

【解决方案1】：

此功能已内置在 AutoCAD 中：

要么将COPYMODE 系统变量设置为0，要么使用mOde 选项作为标准COPY 命令的一部分从命令中更改此系统变量：

Command: COPY
Select objects: 1 found    
Current settings:  Copy mode = Multiple
Specify base point or [Displacement/mOde] <Displacement>: O
Enter a copy mode option [Single/Multiple] <Multiple>:

【讨论】：