shenfeng 发表于 2002-8-27 16:05:00

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

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

秋枫 发表于 2002-8-27 17:06:00

ac.ActiveDocument.ModelSpace.InsertBlock insertionPnt, dwgfilefullp

本帖最后由 作者 于 2002-8-27 17:06:32 编辑

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

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


Hope this helps



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



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

syk070205 发表于 2010-8-1 16:45:00

这问题建议看看<<AutoCAD VBA开发精彩实例教程>>,上面有利用ObjectDbx技术在不打开dwg文件的前提下访问其他文件中的块、标注样式等信息,这样程序运行得效率更高！
页: [1]
查看完整版本: 请问如用VBA将一DWG块文件插入当前CAD文件中，谢谢！！