请教delphi控制AutoCAD问题

wmz

我用VB写了一段代码,望能将其转换成delphi代码,如下:
Sub AddPath()
  dim AcadApp as Object
  dim CurPath As Variant
  dim Path as string
  Path="c:\wmz"
 set AcadApp=CreatObject("AutoCAD.Application.16)
     AcadApp.Visible=True
  AcadApp.Application.Preferences.Files=Path & ";" &  AcadApp.Application.Preferences.Files
     AcadApp.Quit
end Sub
注:以上代码是将路径为"c:\wmz"的加到AutoCAD的支持路径的最前面中去

wmz

在网上搜索了一下,终于找到可以和前面VB代码有相同作用的delphi代码了,不知可不可行:

procedure TForm1.Button1Click(Sender: TObject);
  var

    MyReg : TRegistry;
    f:string;
begin

  MyReg := TRegistry.Create;

  MyReg.RootKey := HKEY_CURRENT_USER;

  try

   if  MyReg.OpenKey('\Software\Autodesk\AutoCAD\R16.0\ACAD-201:804\Profiles\<<未命名配置>>\General',true) then
       begin
        f:= 'c:\wmz;' + MyReg.ReadString('ACAD');
        MyReg.WriteString('ACAD',f);
        MyReg.CloseKey;
       end;
  finally

    MyReg.Free;

  end;

spshchen

我这里有一段给你参考吧

procedure TForm1.Button4Click(Sender: TObject);
var
    vCadApp:Variant;
    vActiveDoc:Variant;
    sfilename,cmdsfile:string;
    i : integer;
begin
    sfilename := ParamStr(1); //取运行参数,也就是带处理的dwg文件
    vCadApp := CreateOleObject('autoCad.Application');
    vCadApp.Visible := true;
    vActiveDoc :=  vCadApp.ActiveDocument;

    cmdsfile := ExtractFileDir(Application.ExeName)+'\zn_main_s.fas';
    cmdsfile := StringReplace(cmdsfile,'\','\\', [rfReplaceAll]);
    vActiveDoc.SendCommand('(load "'+cmdsfile+'")'+#13);
    vActiveDoc.SendCommand('(print "\n欢迎使用室内分布系统CAD辅助画图软件,版权属于50868,\nEmail:050868@163.com,陈海容2006年11月11日"  )'+#13);
    cmdsfile := ExtractFileDir(Application.ExeName);
    cmdsfile := StringReplace(cmdsfile,'\','\\', [rfReplaceAll]);
    vActiveDoc.SendCommand('(zn_main_s_t "'+cmdsfile + '")'+#13);
    vActiveDoc.SendCommand('(repeat 400(print  ))'+#13);
 end;

wmz

非常感谢,就本问题而言,我只要下面这两句就够了

 vActiveDoc :=  vCadApp.ActiveDocument;

 vActiveDoc.SendCommand('(load "'+cmdsfile+'")'+#13);