gdptj 发表于 2006-11-1 17:22:00

一个小问题[VBA]

我在AUTOCAD里把图保存为dxf格式的块， <BR>在VB里怎么样才能把它插入到现有图形里？ <BR>尝试使用用AUTOCAD2002帮助里的代码： <BR>Dim importFile As String <BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim InsertPoint(0 To 2) As Double <BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim scalefactor As Double <BR>&nbsp;&nbsp;&nbsp;&nbsp;importFile = "C:\my documents\DXFExprt.dxf" ' Adjust path for your system <BR>&nbsp;&nbsp;&nbsp;&nbsp;InsertPoint(0) = 0#: InsertPoint(1) = 0#: InsertPoint(2) = 0# <BR>&nbsp;&nbsp;&nbsp;&nbsp;scalefactor = 2# <BR>&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;' Import the file <BR>&nbsp;&nbsp;&nbsp;&nbsp;ThisDrawing.Import importFile, InsertPoint, scalefactor <BR>是可以插入，但不能定位，即使把insertpoint的数值改了， <BR>如insertpoint(0)=300:insertpoint(1)=100 <BR>插入后仍然在0,0,0处，请问是什么原因？

亿涓网 发表于 2006-11-12 09:20:00

我也不懂

tnt1095 发表于 2006-11-13 00:30:00

<P>图形左下脚的坐标是不是就是（３００，２００）呢，我估计该是的</P>

mccad 发表于 2006-11-13 07:30:00

<P>插完再移不行吗？</P>
<P>本来就是这个的，设置基点对此类插入是无效的。</P>

tcsl9621 发表于 2006-11-13 23:00:00

我估计你建块时源点不是原来的原点。就会出现这个错误。记住新建块时一个要修改座标到原点为0,0点。再用插入点座标就好了。

wyj7485 发表于 2006-11-14 17:48:00

同意楼上的，我也是这么做的
页: [1]
查看完整版本: 一个小问题[VBA]