Question

AutoCad 的VBA代码问题。高手进，高分

在CAD中如何用VBA插入一个外部参照块。假设这个块在VBA工程文件夹下，名为1.dwg

Answer 1

不多说了，直接上代码：
Sub InsertBlock()
ThisDrawing.SendCommand "(command)" '取消其他指令，相当于ESC键
ThisDrawing.SendCommand "(command)" '取消其他指令，相当于ESC键
ThisDrawing.SendCommand "(command)" '取消其他指令，相当于ESC键

Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 100
insertionPnt(1) = 100
insertionPnt(2) = 0
BlockName = ThisDrawing.path & "\1.dwg"
ThisDrawing.ModelSpace.InsertBlock insertionPnt, BlockName, 1#, 1#, 1#, 0
End Sub