[VBA程序]：一个vba小问题

gdptj

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

sdxylijian

将CAD图存到硬盘上，格式为dwg，然后使用上面的代码插入，当然文件名应改为dwg格式，你再试试看。

gdptj

这个方法是可以，但编程不太简洁