调用antocad

[d0551]

可以在c++ build 5.0 中调用auotcad 吗？用object arx.

[icwin]

我听说好像有这么一个控件可以用

[liux330]

//调用acad
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
Variant vAcadApp;
try
{
vAcadApp = Variant::CreateObject("AutoCAD.Application");
}
catch(...)
{
MessageBox(0, "启动 Acad 出错, 可能是没有安装Acad.",
"导出...", MB_OK | MB_ICONERROR);
vAcadApp = Unassigned;
return;
}
// 显示acad界面 = true //隐藏acad界面 = false
vAcadApp.OlePropertySet("Visible", true);
// 打开一个dwg文件
vAcadApp.OlePropertyGet("Documents").OleFunction("Open","dwg文件路径");




}
//---------------------------------------------------------------------------


怎么用object arx，我也在期待中．．．

[jimly]

OBJECT ARX 据说是根据 vc的类库定义的,bcb用不了

[d0551]

请高人指点

[d0551]

Variant CAD,obj1,obj2;
Variant pt;
double tmp;
pt=VarArrayCreate(OPENARRAY(int,(0,2)),varDouble);
tmp=3.0;
pt.PutElement(&tmp,0);
tmp=4.0;
pt.PutElement(&tmp,1);
tmp=5.0;
pt.PutElement(&tmp,2);
CAD=GetActiveOleObject( "AutoCAD.Application");
obj1=CAD.OleFunction("ActiveDocument");
obj2=obj1.OleFunction("ModelSpace");
obj2.OleProcedure("AddPoint",VarArrayRef(pt));
//CAD.OleFunction("Quit");
程序执行到obj1=CAD.OleFunction("ActiveDocument");提示出错,找不到成员 ;