假设外部块是一个文件名为 bbb.dwg,可以带路径。VBA代码如下
Sub ttt()
Dim insertionPnt(0 To 2) As Double
Dim blockRefObj As AcadBlockReference
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
blockRefObj =ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "bbb.dwg", 1#, 1#, 1#, 0)
end sub
把文件A.DWG作为块插入到图形，再删块。那么A.DWG中的所有块都会在本图形中定义。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024