[讨论]：关于程序启动是关闭命令行对话框

easypower

有两个问题需要解决：
1.关闭命令行对话框

1. 
   
2.   [FONT=courier new]
   
3.                 CWnd *pWnd = acedGetAcadDockCmdLine();
   
4.                 if(pWnd)
   
5.                 {
   
6.                         pWnd = pWnd->GetParent();
   
7.                         if(pWnd)
   
8.                         {
   
9.                                 pWnd = pWnd->GetParent();
   
10.                                 if(pWnd)
    
11.                                 {
    
12.                                         pWnd->ModifyStyle(0,WS_VISIBLE|WS_OVERLAPPED);
    
13.                                         pWnd->ShowWindow(SW_HIDE);
    
14.                                         pWnd->RedrawWindow();
    
15.                                         acedGetAcadFrame()->RecalcLayout();
    
16.                                 }
    
17.                         }
    
18.                 }
    
19.   [/FONT]
    

复制代码

已经解决。

2.程序启动时起作用
最初以为直接在On_kInitAppMsg消息中运行上述代码即可，事实上不起作用，感觉关闭之后又显示出来了。（另外如果要在On_kInitAppMsg消息中控制视图zoom-e也不可以，控制视图代码如下）

1. 
   
2.   [FONT=courier new]
   
3. void CGlobalFuns::zoomExt()
   
4. {
   
5.         // get the extents of the drawing
   
6.         AcDbViewTableRecord view;
   
7.         AcGePoint3d max =
   
8.                 acdbHostApplicationServices()->workingDatabase()->extmax(),
   
9.                 min = acdbHostApplicationServices()->workingDatabase()->extmin();
   
10. 
    
11.         AcGePoint2d max_2d (max[X], max[Y]);
    
12.         AcGePoint2d min_2d (min[X], min[Y]);
    
13.         // now set the view centre point
    
14.         view.setCenterPoint (min_2d + (max_2d - min_2d) / 2.0);
    
15.         // now height and width of view
    
16.         view.setHeight(max_2d[Y] - min_2d[Y]);
    
17.         view.setWidth (max_2d[X] - min_2d[X]);
    
18.         // set the view
    
19.         acedSetCurrentView (&view, NULL);
    
20.         // updates the extents
    
21.         acdbHostApplicationServices()->workingDatabase()->updateExt(TRUE);
    
22. }
    
23.   [/FONT]
    

复制代码

于是只好用autocad2004doc.lsp实现，发现也不尽如人意，讨论一下。

xunix

想问下，楼主所说的 程序启动时起作用 的具体情况是什么？是启动CAD时加载的ARX起作用，还是CAD启动完毕后加载的ARX起作用？
如果是CAD启动完毕后加载ARX，在kInitAppMsg里可以执行ZOOME的命令：
extern "C" AcRx::AppRetCode acrxEntryPoint(AcRx::AppMsgCode msg,void *appId)
{
   switch(msg){
    case AcRx::kInitAppMsg:
       InitializeApp();
       break;
    //......
   }
   return AcRx::kRetOK;
}

void InitializeApp(void)
{
   //....
   acedCommand(RTSTR,"ZOOM",RTSTR,"E",RTNONE);
}

对于命令行，可能是加载的先后顺序有关，CAD会执行commandline这个命令来显示命令行，你可以在加载的程序里加一句提示，看是否是在该命令前就加载了。