大家来帮忙啊

谢跳

有没有人可以告诉我，或者给段源代码，或者给个例子，


究竟怎么样才能满足以下要求


1、用VBA编写


2、在一新DRAWING中插入一外部图块，就是一某某目录图形文件（*.dwg）

jiazecheng

thisdrawing.modelspace.insertblock 方法

谢跳

晕！这个方法我知道啊！但是这个块要先定义啊！AUTOCAD的例子看了N次了，没用！我的情况是这样，现在已经有一独立文件（*dwg）比如：c:\...\MM.dwg我需要用VBA编程，达到直接将此文件插入一新文件的目的，而且是在配合VBA窗口按钮的点击下自动完成。就象LISP中的COMMOND“INSERT”“.....”一样啊！到底该怎么办？

yulijin608

你可以试一下下面的程序，应当可以 Sub dk()
Dim a As AcadDocument
Set a = ThisDrawing.Application.Documents.Open("d:/ls.dwg", w)
End Sub