AutoCAD VBA 发送键可打开/关闭大写锁定

Question

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

我可以使用什么来获得相同的结果？

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

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

Answer 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>: