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

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

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

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

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

copy


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

这问题建议看看>,上面有利用ObjectDbx技术在不打开dwg文件的前提下访问其他文件中的块、标注样式等信息,这样程序运行得效率更高！

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

发表回复

精选推荐

浏览过的版块