- UID
- 215174
- 积分
- 286
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2005-1-29
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
// 1、以下程序在C++Builder5.5环境下编译通过;
// 2、程序用来启动AutoCAD,并加载需要加载的arx程序
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
DWORD lTime;
try
{
Application->Initialize();
Application->Title = "结构绘图程序";
TStartForm* AcadFlashForm = new TStartForm(Application);
AcadFlashForm->Show();
AcadFlashForm->Update();
lTime = GetTickCount();
//TIcon* AcadIcon =new TIcon();
//AcadIcon->LoadFromFile("E:\\Acad\\ZzpAcad.ico");
//Application->Icon =AcadIcon;
Variant Set_Options;
Variant my_AutoCAD;
bool can_run ;
try
{
//如果有打开的AutoCAD应用程序则获得
my_AutoCAD = Variant::GetActiveObject("Autocad.application");
can_run = true;
}
catch (...)
{
try
{
//如果没有打开的AutoCAD应用程序则打开AutoCAD应用程序
my_AutoCAD = Variant::CreateObject("Autocad.application");
can_run = true;
}
catch (...)
{
ShowMessage("无法打开AutoCAD应用程序");
can_run = false;
}
}
if(can_run)
{
//主窗口最大化
my_AutoCAD.OlePropertySet((Variant)"WindowState",(Variant)3);
//加载ARX应用程序
my_AutoCAD.OleFunction("LoadARX","D:\\InfraDraw\\arxbin\\StructDraw.arx");
//设置AutoCAD应用程序可见
my_AutoCAD.OlePropertySet((Variant)"Visible",(Variant)True);
//显示加载ARX程序的列表
my_AutoCAD.OleFunction("ListArx");
}
while((GetTickCount()-lTime)<3);
AcadFlashForm->Hide();
AcadFlashForm->Free();
Application->Run();
// delete AcadIcon;
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
} |
|