已经连接了ACAD但是安装帮助imprt一个文件确总是不能成功,大家救命,有源码(100分)

我正在做一个程序,功能是在用户选定的DWG图片上叠加另一张DWG图.
问题在于使用import命令引入图片总是无效,请大侠指点

源代码如下
procedure TForm1.Button1Click(Sender: TObject);
var
p1 : OleVariant;
Acad, Doc: OleVariant;
scaleFactor:double;
importfile:string;
begin
try
acad := GetActiveOleObject('AutoCAD.Application');//get acad instance
except
on EOleSysError do
acad := CreateOleObject('AutoCAD.Application')
//create a new instance
end;
Acad.visible:= True
//show acad
doc:=Acad.ActiveDocument.Open('E:/4.dwg');//只是基本的dwg图
doc.Layers.Add('TEST');
p1 := VarArrayCreate([0,2], vardouble);
p1[0] := 0.0
p1[1] := 0.0
p1[2] := 0
//point (14330,400,0)
scaleFactor:=1;
importfile:='e:/try.wmf';//这是要叠加上去的图
doc.import (importfile,p1,scaleFactor);//应该是这个import命令
doc.saveas('E:/5.dwg');
acad.quit;
varclear(doc);
varclear(acad);
VarClear(p1);
end