BCB5控制AutoCAD的问题
我在分析别人用BCB5控制AutoCAD的程序,其中使用的代码如下:
void AcadStart(void)
{
Variant CAD;
try {
CAD=GetActiveOleObject("AutoCAD.Application");
}
catch (...) {
CAD=CreateOleObject("AutoCAD.Application");
CAD.OleFunction("Visible",true);
}
}
首先请教下,这是用OLE打开CAD吗?
这段代码有什么毛病吗?我运行不出来,请指教。
[解决办法]
改一下,可以了(家里装了一个ACAD2005)
void AcadStart(void)
{
Variant CAD;
try {
CAD=GetActiveOleObject("AutoCAD.Application"); //如果进程中没有ACAD.exe,这里出错,转到下面
}
catch (...) {
CAD=CreateOleObject("AutoCAD.Application");
CAD.OlePropertySet("visible",true); //visible是个属性,不是方法,对应我上面贴中delphi的visable:=true;
}
}