利用dephi调用autocad!(200分)

用dephi开发一个图片管理系统
实现的功能是能随时的调用autocad来绘图,请专家帮助!如何实现.

到 delphi.yesite.com 找支持AutoCAD的控件

1、调用AutoCAD
winexec('c:/AutoCAD15/AutoCAD.exe',1);
2、把画好的图粘贴到你能保存它的地方。

用ActiveX Server 挺方便的，我刚在搞一个题目也我在Delphi中调用ACAD
我有这方面的资料，有兴趣的话可以专我联系。
Mail:Tim@edu.21cn.com

1、调用AutoCAD
winexec('c:/AutoCAD15/AutoCAD.exe',1);
2、把画好的图粘贴到你能保存它的地方

>>winexec('c:/AutoCAD15/AutoCAD.exe',1);
这种方法不好，如果已开了一个AutoCAD，则再开一个就太浪费资源了。unit

（AutoCAD 2000,支持多窗口)
ACADUnit;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,comObj,ActiveX;

var
ACAD_HWND:HWND;
ACAD:OleVariant;

function CreateACAD:Boolean;
function ShowACAD:boolean;

implementation


function ShowACAD:boolean;
begin
if ACAD_HWND<>0 then
try
ShowWindow(ACAD_HWND, SW_RESTORE);
SetForegroundWindow(ACAD_HWND);
Result:=true;
except
Result:=false;
end
else
Result:=false;
end;


function CreateACAD:boolean;
var
Title:string;
begin
Result:=true;
try
ACAD:=GetActiveOleObject('AutoCAD.Application.15');
ACAD.Visible:=True;
Title:=ACAD.Caption;
ACAD_HWND:=Findwindow(nil,Pchar(Title));
ShowACAD;
except
try
ACAD:=CreateOleObject('AutoCAD.Application.15');
ACAD.Visible:=True;
Title:=ACAD.Caption;
ACAD_HWND:=Findwindow(nil,Pchar(Title));
ShowACAD;
except
Result:=false;
end;
end;
end;

end.

我也想看这方面的资料

你的妹

>>

多人接受答案了。