【AutoCAD二次开发】工具分享1：批量创建块

前言

经常使用AutoCAD的小伙伴知道，绘图的工作的枯燥乏味。有时候，合适的小工具或者小插件可以大大提升我们的绘图效率。这节分享一个自制小工具，使用VBA宏编写的批量创建块的功能。

一、功能演示

【CAD二次开发】工具分享1：批量创建块

二、灵魂代码

VBA宏:
Private Declare PtrSafe Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer
Sub CBBK()
Const VK_ESCAPE = &H1B
Do While True
’ 检测ESC键状态
If GetAsyncKeyState(VK_ESCAPE) <> 0 Then
ThisDrawing.Utility.Prompt “已退出循环！” & vbCrLf
Exit Do
End If
Call CreateNumberedBlock(1)