请问如用VBA将一DWG块文件插入当前CAD文件中，谢谢！！

shenfeng

[此贴子已经被作者于2002-8-27 16:05:49编辑过]

秋枫

ac.ActiveDocument.ModelSpace.InsertBlock insertionPnt, dwgfilefullpath, xscale, yscale, newrotation[br]可能这一条在r14下面不能正常运行。试用2002看。

2. 
   
3. Dim myApp As AcadApplication
   
4. Dim myDoc As AcadDocument
   
5. Dim blockRefObj As AcadBlockReference
   
6. Dim returnPnt
   
7. ' 下面这两句适用于vb而不是vba
   
8. ' Set myApp = GetObject(, "AutoCAD.Application")
   
9. ' Set myDoc = myApp.ActiveDocument
   
10. Set myDoc = thisdrawing
    
11. returnPnt = myDoc.Utility.GetPoint(, "Insert point: ")
    
12. Set blockRefObj = myDoc.ModelSpace.InsertBlock(returnPnt,
    
13. "c:\mydir\myblock.dwg", 1.0, 1.0, 0)
    

<br /> Dim myApp As AcadApplication<br /> Dim myDoc As AcadDocument<br /> Dim blockRefObj As AcadBlockReference<br /> Dim returnPnt<br /> ' 下面这两句适用于vb而不是vba<br /> ' Set myApp = GetObject(, "AutoCAD.Application")<br /> ' Set myDoc = myApp.ActiveDocument<br /> Set myDoc = thisdrawing<br /> returnPnt = myDoc.Utility.GetPoint(, "Insert point: ")<br /> Set blockRefObj = myDoc.ModelSpace.InsertBlock(returnPnt,<br /> "c:\mydir\myblock.dwg", 1.0, 1.0, 0)<br />

Hope this helps

[此贴子已经被作者于2002-8-27 17:02:45编辑过]

[此贴子已经被作者于2002-8-27 17:05:18编辑过]

syk070205

这问题建议看看&lt;&lt;AutoCAD VBA开发精彩实例教程&gt;&gt;,上面有利用ObjectDbx技术在不打开dwg文件的前提下访问其他文件中的块、标注样式等信息,这样程序运行得效率更高！