请问VBA中怎样在R14中插入dwg文件？

潇湘夜雨 · 发表于 2003-11-5 19:37:00

以下代码错在何处？
  Dim InsetPoint(0 To 2) As Double
  Dim ImporFile As String
  InsetPoint(0) = 0: InsetPoint(1) = 0: InsetPoint(2) = 0
  ImporFile = "文件名.dwg"
  ThisDrawing.Import ImporFile, InsetPoint, 1#

mccad · 发表于 2003-11-5 19:41:00

文件名必须带路径，不然就必须在当前目录存在，但当前目录有时会有不同，所以还是加上路径为好。

潇湘夜雨 · 发表于 2003-11-5 19:51:00

该文件名已是带上路径的全文件名，但是执行代码后什么也没有，既没见到
欲插入的图形文件，也没有提示错误，不知何故？

mccad · 发表于 2003-11-5 20:07:00

ThisDrawing.ModelSpace.InsertBlock InsetPoint, ImporFile, 1, 1, 0

efan2000 · 发表于 2003-11-5 20:22:00

RetVal = object.Import(FileName, InsertionPoint, ScaleFactor)
Object
Document
The object or objects this method applies to.
FileName
String; input-only
The name of the file to be imported.
InsertionPoint
Variant (three-element array of doubles); input-only
The 3D WCS coordinates location in the current drawing where the imported file is placed.
ScaleFactor
Double; input-only
The scale used to place the imported file.
RetVal
Object
In the case of importing a WMF file, a BlockReference object is returned. In all other cases, the return value is NULL.
最后一个的返回值介绍：
返回
导入WMF文件，返回块引用对象。其它情况，返回NULL值。

潇湘夜雨 · 发表于 2003-11-5 21:01:00

改成以下代码仍不行：
  Dim InsetPoint(0 To 2) As Double
  Dim ImporFile As String
  Dim ScaleFactor As Double
  Dim AnObj As Object
  InsetPoint(0) = 0: InsetPoint(1) = 0: InsetPoint(2) = 0
  ImporFile = "D:\123.dwg"
  ScaleFactor = 1#
  Set AnObj = ThisDrawing.Import(ImporFile, InsetPoint, ScaleFactor)
查了一下，是否 import 方法不支持 .dwg 文件？然则 .dwg 文件怎样插入？