rjh2001r 发表于 2009-2-3 13:36:00

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

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

rjh2001r 发表于 2009-2-4 22:38:00

<p>已解决：</p><p>原贴地址：<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=12482&extra=&page=1">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=12482&extra=&page=1</a></p><p>Sub InsBlock()<br/>&nbsp;&nbsp;&nbsp;&nbsp; Dim objDbx As AxDbDocument<br/>&nbsp;&nbsp;&nbsp;&nbsp; Dim objBlock(0) As Object<br/>&nbsp;&nbsp;&nbsp;&nbsp; Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")<br/>&nbsp;&nbsp;&nbsp;&nbsp; objDbx.Open "c:\22.dwg"<br/>&nbsp;&nbsp;&nbsp;&nbsp; Set objBlock(0) = objDbx.Blocks("11")<br/>&nbsp;&nbsp;&nbsp;&nbsp; objDbx.CopyObjects objBlock, ThisDrawing.ModelSpace<br/>&nbsp;&nbsp;&nbsp;&nbsp; Set objDbx = Nothing<br/>End Sub<br/></p>

cczjw 发表于 2009-2-6 21:38:00

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

wuyunpeng888 发表于 2009-2-6 21:48:00

<p>引用DBX对象</p><p>或将变量类型声明为object</p>

cczjw 发表于 2009-2-6 23:11:00

<p>谢谢！已按此法改了，并且运行正常了。</p>
页: [1]
查看完整版本: [求助]如何从插入外部文件中的块(急)