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在程序中插入

我是说用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下不支持

zhaoguo 发表于 2003-4-24 18:01:00

r14.01简体中文版是支持的

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

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

<BR>.Item(0).是什么意思？

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

<P><BR>'插入块<BR>Dim blockRefObj As AcadBlockReference<BR>Dim insertionPnt(0 To 2) As Double ' 定义块插入点坐标</P>
<P>insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0</P>
<P>Set blockRefObj = acadDoc.ModelSpace.InsertBlock(insertionPnt, "TZ624.dwg", 0.5, 0.5, 0.5, 0)</P>
<P>'Set T = acadDoc.Item(0).ModelSpace.InsertBlock(insertionPnt, bname, 1#, 1#, 1#, 0)</P>
<P>blockRefObj.Update<BR>ZoomAll</P>
<P>为什么插入不进去</P>

xinghesnak 发表于 2006-6-5 16:41:00

<P>Dim blockRefObj As AcadBlockReference<BR>Dim insertionPnt(0 To 2) As Double </P>
<P>insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0</P>
<P>Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "e:\aa.dwg", 0.5, 0.5, 0.5, 0)</P>
<P>blockRefObj.Update<BR>ZoomAll</P>
<P>调入没有问题</P>
<P>1. 不知道你的acadDoc声明的是什么东西，我用VBA调试的，所以就用Thisdrawing代替了，你用VB做，就用激活文件吧</P>
<P>2."e:\aa.dwg",是文件的全路径</P>
页: [1]
查看完整版本: R14中如何插入图形文件到图形中