R14中如何插入图形文件到图形中

china-hz

请问在R14中如何插入图形文件到图形中。查看的R14的有关帮助文件没有发现。但是在200?中用insertblock就可以。请问如何在R14中插入如c:\temp.dwg这样的文件。谢谢！

hq_2003

直接在命令行中输入insert命令，根据提示再输入所要插入的图形文件或图块的路径即可，如输入c:\temp.dwg

china-hz

我是说用VB在程序中插入，现在用insertblock方法只能插入图块，而不能插入图形文件。

nxy_918

Set t = acaddoc.Item(0).ModelSpace.InsertBlock(insertionPnt, bname, 1#, 1#, 1#, 0)
其中bname为要插入文件的路径

china-hz

在R200*中完全可以做到，但用我的R14却不行，你说的方法我试了，可还是不行。

nxy_918

忘了告诉你，r14下不支持

zhaoguo

houlinbo

nxy_918发表于2003-4-16 19:50:00回复：（nxy_918）很简单Set t = acaddoc.Item(0).ModelSpace.InsertBlock(insertionPnt, bname, 1#, 1#, 1#, 0)其中bname为要插入文件的路径

.Item(0).是什么意思？

houlinbo

'插入块
Dim blockRefObj As AcadBlockReference
Dim insertionPnt(0 To 2) As Double ' 定义块插入点坐标

insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0

Set blockRefObj = acadDoc.ModelSpace.InsertBlock(insertionPnt, "TZ624.dwg", 0.5, 0.5, 0.5, 0)

'Set T = acadDoc.Item(0).ModelSpace.InsertBlock(insertionPnt, bname, 1#, 1#, 1#, 0)

blockRefObj.Update
ZoomAll

为什么插入不进去

xinghesnak

Dim blockRefObj As AcadBlockReference
Dim insertionPnt(0 To 2) As Double

insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "e:\aa.dwg", 0.5, 0.5, 0.5, 0)

blockRefObj.Update
ZoomAll

调入没有问题

1. 不知道你的acadDoc声明的是什么东西，我用VBA调试的，所以就用Thisdrawing代替了，你用VB做，就用激活文件吧

2."e:\aa.dwg",是文件的全路径