[ARX程序]：发个用TAB键移动视图的程序

zhang2380

自己用SDK中pretranslate的例子写了一个移动视图的程序,挺简单的,发上来看有没有人用得着.一方面为自己赚点积分,,二来看看有没有人把它改得更专业一点.

附上工程中唯一的CPP文件,用它来替代SDK下pretranslate中的CPP文件再编译即可

//////////////////////////////////////////////////////////////
//
// Includes
//
//////////////////////////////////////////////////////////////
#define _AFX_NOFORCE_LIBS // we do not want to link to MFC DLLs or libs
#ifdef _DEBUG
#define WAS_DEBUG
#undef _DEBUG
#endif

#include "afxwin.h"  // need this because rxmfcapi.h needs windows header.

#ifdef WAS_DEBUG
#undef WAS_DEBUG
#define _DEBUG
#endif

#include "aced.h"
#include "adslib.h"
#include "rxmfcapi.h"
#include <windef.h>
#include<accmd.h> //acedCommand
#include<acedads.h> //acedSetVar
#include<adscodes.h>
#include<adsdef.h> //resbuf
#include <rxmfcapi.h>
#include<dbsymtb.h> //AcDbViewTableRecord
#include<gepnt3d.h> //AcGePoint3d
#include<dbapserv.h> //acdbHostApplicationServices
#include<gepnt2d.h> //AcGePoint2d


//////////////////////////////////////////////////////////////
//
// Standard C Test function
//
//////////////////////////////////////////////////////////////

void snapTAB();                   // ARX callbacks
//void zoomExtents();
//void zoomExtents();
void moveview();
BOOL filterTAB(MSG *pMsg);      // hook function for capsing.


// preventing from inserting the same hook twice.
static BOOL TABDone = FALSE;
static long px=0;
static long py=0;

/*static struct resbuf wcs, ucs;*/ // 转换坐标时使用的坐标系统标记
//////////////////////////////////////////////////////////////
//
// Rx interface
//
//////////////////////////////////////////////////////////////


void initApp()
{
////snapTAB();
  acedRegCmds->addCommand( "MKEvents",      // Group name
                           "caps",      // Global function name
                           "caps",          // Local function name
                           ACRX_CMD_MODAL,    // Type
                           &snapTAB );         // Function pointer
  
  //acutPrintf( ".OK!\n" );

}

void unloadApp()
{
  
  if (TABDone == TRUE)
      acedRemoveFilterWinMsg(filterTAB);


}


//////////////////////////////////////////////////////////////
//
// Entry point
//
//////////////////////////////////////////////////////////////

extern "C" AcRx::AppRetCode acrxEntryPoint( AcRx::AppMsgCode msg, void* pkt)
{
  switch( msg )
  {
    case AcRx::kInitAppMsg:
      //initApp();
                snapTAB();
                acrxUnlockApplication(pkt);
                acrxDynamicLinker->registerAppMDIAware(pkt);
                acutPrintf( ".OK!\n" );
      break;
    case AcRx::kUnloadAppMsg:
      unloadApp();
      break;
    default:
      break;
  }
  return AcRx::kRetOK;
}



//////////////////////////////////////////////////////////////

BOOL filterTAB(MSG *pMsg)
{   
    // Change All lowercase to caps!!
    if (pMsg->message == WM_CHAR && pMsg->wParam == 9)//TAB键
        {

        moveview();

        }else if (pMsg->message == WM_MOUSEMOVE || pMsg->message == WM_LBUTTONDOWN
                || pMsg->message == WM_LBUTTONUP){
                                        px=LOWORD(pMsg->lParam);
                                        py=HIWORD(pMsg->lParam);
                }
    return FALSE; // continue
}




void snapTAB()
{
    if (TABDone == TRUE) // already has the hook??
      return;
    acutPrintf( "Capsing...\n" );
    if (acedRegisterFilterWinMsg(filterTAB) == FALSE)
        acutPrintf("Can't register Windows Msg hook - Lower->upper\n");
    else
      TABDone = TRUE;
}

void moveview()
{
//acutPrintf("移动视口!\n");
//本函数用来移动视口
        struct resbuf wcs, ucs; // 转换坐标时使用的坐标系统标记
        wcs.restype = RTSHORT; wcs.resval.rint = 0;
        ucs.restype = RTSHORT; ucs.resval.rint = 1;
        double screenx,screeny,vscal;// 1/2 屏幕 宽高 比例：像素/图形单位
        struct resbuf viewctr1 ;
        double vhight,vwidth;
        ads_point  ptCurrent;

        AcGePoint2d center_2d,ocenter_2d;//前一个为待移动的中心点 后一个为当前中心点
        acedGetVar("screensize",&viewctr1);//二维点 以像素为单位存储当前视口的大小
        screenx=viewctr1.resval.rpoint[X]/2;// 1/2 屏幕 宽
        screeny=viewctr1.resval.rpoint[Y]/2;// 1/2 屏幕 高
       
        acedGetVar("viewsize",&viewctr1);//类型：实数 按图形单位存储当前视口的高度。
        vhight=viewctr1.resval.rreal;//当前视口的高度 类型：实数
        vscal=screeny/vhight*2;//比例：像素/图形单位
        vwidth= screenx/vscal ;//当前视口的宽度 类型：实数

        //*********************************************************************
        acedGetVar("viewctr",&viewctr1);
        //类型：三维点 存储当前视口中视图的中心点。该值用 UCS 坐标表示。
        ocenter_2d[X]=viewctr1.resval.rpoint[X];
        ocenter_2d[Y]=viewctr1.resval.rpoint[Y];
        //*************************************************************
        ptCurrent[X]=(px-screenx)/vscal+ocenter_2d[X];
        ptCurrent[Y]=(screeny-py)/vscal+ocenter_2d[Y];
        acedTrans(ptCurrent,  &ucs, &wcs, 0, ptCurrent);
        center_2d[X]=ptCurrent[X];
        center_2d[Y]=ptCurrent[Y];

        AcDbViewTableRecord view ;// view2;
        view.setCenterPoint (center_2d);

view.setHeight(vhight);//设定图形单位高
view.setWidth(vwidth);//设定图形单位宽

//acutPrintf("调用!x:%lf Y:%lf\n" ,vwidth,vhight);
acedSetCurrentView (&view, NULL);//NULL

acdbHostApplicationServices()->workingDatabase()->updateExt(TRUE);//TRUE
}

RedCAD

很感谢，这是个不错的功能，以前在VBA中也做过的。如果好我就将它加入到软件中去。

yoursmile

晕，下不来呀！

fylinwater

好像江苏没法下载晓东空间的东西了

missyou0515

这个还是第一次见,试了几次下不下来，麻烦给我发一份missyou0515@yahoo.com.cn

yoursmile

楼上武汉的老兄也下不下来嘛，看来不仅是江苏嘛！我也要:yoursmile4_19@163.com

lcfun

下载不了啊，楼主给发一个吧。谢了！
2004100122@163.com

zhang2380

楼上三位,邮件已发送.

lcfun

邮件已收到，非常感谢！

heluyuan

我也是下不了，只好请求楼主也发一份了，
heluyuan@geostar.com.cn

gui_cx

请给我发一个，gui_cx@163.com

zhang2380

楼上二位,,邮件已发送
其实代码不大,那位帮忙把那个CPP文件贴上就行了

gui_cx

邮件已收到,谢谢!

liujiping

重新上传一下吧

whishtwj

谢谢共享。再在找这个东西呢