社区 › VB › R14中如何插入图形文件到图形中

china-hz 发表于 2003-3-23 10:39:00

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

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

HQ_2003 发表于 2003-3-23 12:54:00

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

china-hz 发表于 2003-3-24 08:18:00

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

nxy_918 发表于 2003-4-16 19:50:00

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

china-hz 发表于 2003-4-17 08:39:00

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

nxy_918 发表于 2003-4-18 15:51:00

忘了告诉你，r14下不支持

houlinbo 发表于 2006-6-5 15:37:00

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

houlinbo 发表于 2006-6-5 15:37:00

'插入块
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 发表于 2006-6-5 16:41:00

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",是文件的全路径

查看完整版本: R14中如何插入图形文件到图形中