[求助]如何从插入外部文件中的块(急)

rjh2001r

现在已经把若干个块定义在一个“ 块.dwg ”文件中，用什么方法能能调用其中的块，请高人指点，insertblock好象只能插入文件中的块或插入块文件。

rjh2001r

已解决：

原贴地址：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=12482&extra=&page=1

Sub InsBlock()
     Dim objDbx As AxDbDocument
     Dim objBlock(0) As Object
     Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
     objDbx.Open "c:\22.dwg"
     Set objBlock(0) = objDbx.Blocks("11")
     objDbx.CopyObjects objBlock, ThisDrawing.ModelSpace
     Set objDbx = Nothing
End Sub

cczjw

当运行到语句：
Dim objDbx As AxDbDocument  时报“用户定义类型未定义”错，请问是何原因？如何解决？谢谢！

wuyunpeng888

引用DBX对象

或将变量类型声明为object

cczjw

谢谢！已按此法改了，并且运行正常了。