可以在vba的文档或者在中望cad界面键盘按F1弹出帮助文档，里面搜
InsertBlock示例
Sub InsDwg() Dim BlockRef As AcadBlockReference Dim insertionPnt(0 To 2) As Double insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0# FileToInsert = "C:\Documents and Settings\Mala Singh\Desktop\Test.dwg" Set BlockRef = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, FileToInsert, 1#, 1#, 1#, 0) End Sub
这个是把外部文件当作整个块插入了，有没有插入外部文件中的一个块的
“Dim BlockRef As AcadBlockReference”应该改为：“Dim BlockRef As ZcadBlockReference”，不然会报错。