大家来帮忙啊

谢跳 · 发表于 2004-7-15 20:02:00

有没有人可以告诉我，或者给段源代码，或者给个例子，
究竟怎么样才能满足以下要求
1、用VBA编写
2、在一新DRAWING中插入一外部图块，就是一某某目录图形文件（*.dwg）

jiazecheng · 发表于 2004-7-15 20:44:00

thisdrawing.modelspace.insertblock 方法

谢跳 · 发表于 2004-7-17 21:20:00

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

yulijin608 · 发表于 2004-8-3 10:51:00

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

大家来帮忙啊

发表回复

精选推荐