“放缩”VIEWPORT的ARX代码...

XDSoft

1. 
   
2. SCALING VIEWPORTS
   
3. Product AUTOCAD  Author SZILVASY,ALBERT
   
4. Date 12-MAY-98  Document ID 7138
   
5. Expiration date    Attachments  
   
6. Keywords ARX
   
7. 
   
8. Developer Consulting Group technical solution. Autodesk confidential, for ADN members only. Please read the disclaimer
   
9. 
   
10. Question
    
11. 
    
12. 
    
13. I want to scale my floating model space viewports. How can I do this with
    
14. ObjectARX?
    
15. 
    
16. 
    
17. Answer
    
18. 
    
19. 
    
20. You can calculate this scale of a floating paper space viewport (VIEWPORT
    
21. entity) based on the:
    
22. - "View height" (DXF group code: 1040).
    
23. - "Height" (DXF group code: 41).
    
24. 
    
25. Scale = Height/View height
    
26. (see the AutoCAD Customization Guide for details about dxf codes)
    
27. 
    
28. Using this equation, here's how you can set up the scale of the floating
    
29. viewport (current viewport).
    
30. 
    
31. 
    
32. void test()
    
33. {
    
34.     double scale;
    
35.     if (ads_getreal("Enter scale:", &scale) != RTNORM)
    
36.      return;
    
37.     AcDbObjectId idVp;
    
38.     if ((idVp=acdbGetCurViewportObjectId())==AcDbObjectId::kNull){
    
39.      ads_printf("No current viewport. (tilemode=1?)\n");
    
40.      return;
    
41.     }
    
42.     AcDbViewport* pVp;
    
43.     Acad::ErrorStatus es;
    
44.     if ((es=acdbOpenObject(pVp,idVp,AcDb::kForWrite))==Acad::eOk){
    
45.      double height = pVp->height();
    
46.      AcDbViewTableRecord view;
    
47.      AcGePoint2d max = acdbCurDwg()->limmax(),
    
48.                     min = acdbCurDwg()->limmin();      
    
49.      //set up the AcDbViewTableRecord with the appropriate parameters
    
50.      view.setCenterPoint( min + (max - min) / 2.0 );
    
51.      view.setHeight( height/scale );
    
52.      view.setWidth(0); //make sure that width is smaller than height
    
53.      //set the view to the current floating viewport   
    
54.      if ((es=acdbSetCurrentView( &view, pVp))==Acad::eOk)
    
55.         ads_printf("Scale set to %f.\n",scale);
    
56.      else
    
57.         ads_printf("Failed to set scale.\n");
    
58.      pVp->close();
    
59.     }
    
60.     if (es!=Acad::eOk)
    
61.      ads_printf("ERROR: es = %s\n",acadErrorStatusText(es));
    
62. }
    
63. 
    
64. Disclaimer
    
65. 
    
66. This information is derived from a response to a specific question sent to the Developer Consulting Group at Autodesk, and thus given its nature, is subject to change without notice. The information is provided to you on an "as is" basis, and you may use it only at your own risk. Autodesk is not responsible for its quality, nor shall it be liable for any damage or loss caused by your use of this information.
    
67. 
    
68. Top
    

复制代码

风中的沙粒

((idVp=acdbGetCurViewportObjectId())==AcDbObjectId::kNull){
     ads_printf("No current viewport. (tilemode=1?)\n");
tilemode 这个系统变量到底应取多少呢？一旦运行，总会找不到curvieport,而显示tilemode=1?,如果改为零，试图纸空间也不行。文提出在那呢？

XDSoft

最初由 风中的沙粒 发布
[B]((idVp=acdbGetCurViewportObjectId())==AcDbObjectId::kNull){
     ads_printf("No current viewport. (tilemode=1?)\n");
tilemode 这个系统变量到底应取多少呢？一旦运行，总会找不到curvieport,而显示tilem... [/B]

给你一个函数，判断是否在“图纸空间”下

1. 
   
2. BOOL purePaperSpace()
   
3. 
   
4. {
   
5. 
   
6. struct resbuf res;
   
7. 
   
8. int tilemode, cvport;
   
9. 
   
10. acedGetVar("tilemode", &res);
    
11. 
    
12. tilemode = res.resval.rint;
    
13. 
    
14. acedGetVar("cvport", &res);
    
15. 
    
16. cvport = res.resval.rint;
    
17. 
    
18. if(tilemode == 0 && cvport == 1)
    
19. 
    
20. return TRUE;
    
21. 
    
22. else
    
23. 
    
24. return FALSE;
    
25. 
    
26. }
    

复制代码

风中的沙粒

实际上，我的目的是，在是R14中实现 自己控制的real zoom and pan 方法，而且你刚才领会错了我的意思，我并不想判断是不是在图纸空间，tilemode这个系统变量为0时，不就是图纸空间吗，一可以在r14下试一下你提供test
经明白是怎么一回事了，另外我想知道，autocad 的新闻组，我只能订阅，不能提问题，怎么注册

XDSoft

最初由 风中的沙粒 发布
[B]实际上，我的目的是，在是R14中实现 自己控制的real zoom and pan 方法，而且你刚才领会错了我的意思，我并不想判断是不是在图纸空间，tilemode这个系统变量为0时，不就是图纸空间吗，一可以在r14下试一下你提供test... [/B]

其中一个问题你是问得TILMODE如何取值啊：）
关于判断是否在图纸空间的，TILEMODE＝0不一定是唯一条件，还得判断cvport是否等于1，两个同时满足，才一定是在图纸空间下。

论坛上提供过ARX得ZOOM和PAN得实现代码，搜索搜索

风中的沙粒

看了你发的一片贴子,讲在模型空间,要通过读取系统变量,得到视图的信息,焦点坐标是什么系统变量

XDSoft

最初由 风中的沙粒 发布
[B]看了你发的一片贴子,讲在模型空间,要通过读取系统变量,得到视图的信息,焦点坐标是什么系统变量 [/B]

你去看下面这篇帖子,关于ARX的ZOOM方法,关于视图的信息的系统变量都在这个里面

http://www.xdcad.net/forum/showthread.php?postid=3600#post3600

风中的沙粒

缩放,是一个相对的放大,你的这片贴子是直接选窗口,设置当前视口的属性,并没提到当前是口的高,宽从那得到,你的那片贴自又是讲,纸空间的,实际上纸空间,和模型空间,获得这种信息的方式是不同的.这你也提到过.望再进行答复

XDSoft

最初由 风中的沙粒 发布
[B]缩放,是一个相对的放大,你的这片贴子是直接选窗口,设置当前视口的属性,并没提到当前是口的高,宽从那得到,你的那片贴自又是讲,纸空间的,实际上纸空间,和模型空间,获得这种信息的方式是不同的.这你也提到过.望再进行答... [/B]

系统变量:

viewsize----当前视口的高度
screensize---当前视口的X,Y最大值(象素),表,根据它可以得到X,Y比值
viewctr-----当前视口的中心的WCS座标

根据上面上面3个变量,就可以很容易的得到屏幕四个角点的座标

风中的沙粒

我心中有一个疑问,一直困扰着我.
我在编一个缩放的程序,
目标:
以鼠标位置为中心,放大model视图

实施过程:
先得到当前视图的高度,宽度,中心点
通过消息得到鼠标的位置, CPoint cPnt(pMsg->lParam) ; acedCoordFromPixelToWorld (cPnt, cpt) ;
这样得到cpt,即cad的显示坐标,再把此座标设置为,视图的中心点
再把视图的高度乘一定的系数
再把视图设为当前视图.

1问题:
这样应当程序运行的第一次,视口放大移动,时的鼠标所在位
置位应于视口中央,以后不断以正中间放大,实际上不是这样,鼠
标所在位并不会移到正中央,会有偏移,越来越大,直至鼠标位
置移出视口.

2问题:
在你zoom的arx代码中,把很多视口参数,读出来,并没做改变的又写进去
是干什么?如果这些参数不重写,系统不是会默认以前的当前窗口的参
数吗?
实际你改写的参数不是只有,centerpoint,height,width
吗?
关键部分代码:
ads_getvar("viewsize", &b1);
height=b1.resval.rreal/scal ;
view.setHeight( height);
ads_getvar("screensize", &b2);
width=b2.resval.rpoint[1]*height/b2.resval.rpoint[0];
view.setWidth(width);
CPoint cPnt(pMsg->lParam) ;
acedCoordFromPixelToWorld (cPnt, cpt) ;
AcGePoint2d cenPt(cpt[0],cpt[1]);
view.setCenterPoint( cenPt );

XDSoft

最初由 风中的沙粒 发布
[B]我心中有一个疑问,一直困扰着我.
我在编一个缩放的程序,
目标:
以鼠标位置为中心,放大model视图

实施过程:
先得到当前视图的高度,宽度,中心点
通过消息得到鼠标的位置, CPoint cPnt(pMsg->lParam) ; a... [/B]

你的意思是先用鼠标点一个点，然后以这点作为屏幕的中心，然后围绕这个中心“缩放”？

如果是这样，那你需要先把鼠标的点移动到屏幕中心，然后在缩放，这个过程需要构造“转换矩阵”，先构造“平移”矩阵，transForm后，得到的点，然后在构造“缩放矩阵”，在transFrom，当然也可以直接就利用ARX的AcGeMatrx3d或者AcGeMatrix2d构造出最终的（把用矩阵运算，把平移和缩放合并，这里要注意矩阵相乘的顺序）转换矩阵，然后transFrom你的鼠标点。因为鼠标点（屏幕中心）不是坐标系的原点，所以你的缩放会偏移。

这样就不会出现鼠标点越来越偏离了。

XDSoft

最初由 风中的沙粒 发布
[B]我心中有一个疑问,一直困扰着我.
我在编一个缩放的程序,
目标:
以鼠标位置为中心,放大model视图

实施过程:
先得到当前视图的高度,宽度,中心点
通过消息得到鼠标的位置, CPoint cPnt(pMsg->lParam) ; a... [/B]

下面的是XDRX_API中的我写过的函数，以指定点为中心，给定高度和宽度进行ZOOM，你可以借鉴下，你的工作就是要得到不同时候的宽度和高度，带入这个函
数就可以。

该函数考虑了模型空间和图纸空间，考虑了R14和A2K+上acedSetCurrentView名字的变化，在你的工程设置中，加入ADS=14或者15，就可以分别在R14和A2K+下，编译了。

1. 
   
2. void XdDbUtils::arxZoom(AcGePoint3d cenPt,double width,double height,BOOL zflag)
   
3. {
   
4.         AcDbViewTableRecord view;
   
5.         struct resbuf rb;
   
6.         struct resbuf wcs, dcs, ccs;         // ads_trans coord system flags
   
7.         ads_point vpDir;
   
8.         ads_point wmin, wmax;             // min and max corners of the zoom window
   
9.         ads_point wdcsmax, wdcsmin;   // windows corners in device coords
   
10.         AcGeVector3d viewDir;
    
11.        
    
12.         ads_real    lenslength,
    
13.                 viewtwist,
    
14.                 frontz,
    
15.                 backz;
    
16.        
    
17.         ads_point target;
    
18.        
    
19.         int viewmode,
    
20.                 tilemode,
    
21.                 cvport;
    
22.        
    
23.         // Get window to zoom to:
    
24.         wmax[X]=cenPt.x+width/2.0;
    
25.         wmin[X]=cenPt.x-width/2.0;
    
26.         wmax[Y]=cenPt.y+height/2.0;
    
27.         wmin[Y]=cenPt.y-height/2.0;
    
28.        
    
29.        
    
30.         wmax[Z] = 0.0;
    
31.         wmin[Z] = 0.0;
    
32.        
    
33.         wcs.restype         = RTSHORT;         // WORLD coord system flag
    
34.         wcs.resval.rint = 0;
    
35.         ccs.restype         = RTSHORT;         // CURRENT coord system flag
    
36.         ccs.resval.rint = 1;
    
37.         dcs.restype         = RTSHORT;         // DEVICE coord system flag
    
38.         dcs.resval.rint = 2;
    
39.        
    
40.         // Get the 'VPOINT' direction vector
    
41.         ads_getvar("VIEWDIR", &rb);
    
42.         ads_trans(rb.resval.rpoint, &ccs, &wcs, 0, vpDir);
    
43.         viewDir.set(vpDir[X], vpDir[Y], vpDir[Z]);
    
44.        
    
45.        
    
46.         if (!zflag)
    
47.         {
    
48.                 double len=(width>height)?height:width;
    
49.                 wmax[X]+=0.025*len;
    
50.                 wmax[Y]+=0.025*len;
    
51.                 wmin[X]-=0.025*len;
    
52.                 wmin[Y]-=0.025*len;
    
53.         }
    
54.         // convert upper right window corner to DCS
    
55.         ads_trans(wmax, &ccs, &dcs, 0, wdcsmax);
    
56.        
    
57.         // convert lower left window corner to DCS
    
58.         ads_trans(wmin, &ccs, &dcs, 0, wdcsmin);
    
59.         // calculate and set view center point
    
60.         AcGePoint2d cenPt1(cenPt.x,cenPt.y);
    
61.         view.setCenterPoint(cenPt1);
    
62.        
    
63.         // set view height and width and direction
    
64.         view.setHeight(fabs(wdcsmax[Y] - wdcsmin[Y]));
    
65.         view.setWidth(fabs(wdcsmax[X] - wdcsmin[X]));
    
66.         view.setViewDirection(viewDir);
    
67.        
    
68.         // get and set other properties
    
69.         ads_getvar("LENSLENGTH", &rb);
    
70.         lenslength = rb.resval.rreal;
    
71.         view.setLensLength(lenslength);
    
72.        
    
73.         ads_getvar("VIEWTWIST", &rb);
    
74.         viewtwist = rb.resval.rreal;
    
75.         view.setViewTwist(viewtwist);
    
76.        
    
77.         ads_getvar("FRONTZ", &rb);
    
78.         frontz = rb.resval.rreal;
    
79.        
    
80.         ads_getvar("BACKZ", &rb);
    
81.         backz = rb.resval.rreal;
    
82.        
    
83.         ads_getvar("VIEWMODE", &rb);
    
84.         viewmode = rb.resval.rint;
    
85.        
    
86.         view.setPerspectiveEnabled(viewmode & 1);
    
87.         view.setFrontClipEnabled(viewmode & 2);
    
88.         view.setBackClipEnabled(viewmode & 4);
    
89.         view.setFrontClipAtEye(!(viewmode & 16));
    
90.        
    
91.         ads_getvar("TILEMODE", &rb);
    
92.         tilemode = rb.resval.rint;
    
93.         ads_getvar("CVPORT", &rb);
    
94.         cvport = rb.resval.rint;
    
95.        
    
96.         // Paperspace flag
    
97.         Adesk::Boolean paperspace =
    
98.                 ((tilemode == 0) && (cvport == 1)) ? Adesk::kTrue:Adesk::kFalse;
    
99.         view.setIsPaperspaceView(paperspace);
    
100.        
     
101.         if (Adesk::kFalse == paperspace)
     
102.         {
     
103.                 view.setFrontClipDistance(frontz);
     
104.                 view.setBackClipDistance(backz);
     
105.         }
     
106.         else
     
107.         {
     
108.                 view.setFrontClipDistance(0.0);
     
109.                 view.setBackClipDistance(0.0);
     
110.         }
     
111.        
     
112.         ads_getvar("TARGET", &rb);
     
113.         ads_trans(rb.resval.rpoint, &ccs, &wcs, 0, target);
     
114.         view.setTarget(AcGePoint3d(target[X], target[Y], target[Z]));
     
115.        
     
116.         // update view
     
117. #if (ADS>14)
     
118.         acedSetCurrentView( &view, NULL );
     
119. #else
     
120.         acdbSetCurrentView( &view, NULL );
     
121. #endif
     
122. 
     
123. }
     

复制代码

风中的沙粒

我有一点不明白，view.setCenterPoint( cenPt );中的参数，到底是用户坐标系的点还是世界坐标系的点，acedCoordFromPixelToWorld (cPnt, cpt) ; 函数中的两个参数，有是那个坐标系的点，CPoint cPnt(pMsg->lParam），这里得到的点有算是什么，而且你的这个函数，我看过很多变，我上一贴的第二个问题也请你回答。
你数的矩阵转换不就是用ads_trans(wmin, &ccs, &dcs, 0, wdcsmin);
这个函数么，可你转的不就是从用户坐标系到显示坐标系吗，我用的acedCoordFromPixelToWorld (cPnt, cpt)
本是不就是已经把鼠标的位置点转道显示坐标系了吗？

XDSoft

最初由 风中的沙粒 发布
[B]我有一点不明白，view.setCenterPoint( cenPt );中的参数，到底是用户坐标系的点还是世界坐标系的点，acedCoordFromPixelToWorld (cPnt, cpt) ; 函数中的两个参数，有是那个坐标系的点，CPoint cPnt(pMsg->lParam）?.. [/B]

setCenterPoint的点是显示坐标系的点，见下面帮助

void
setCenterPoint(

    const AcGePoint2d& center);

center        Input desired center point for the view (in DCS coordinates)

This function sets the TableRecord to use center (in DCS coordinates ) as the center point of the view.
The center point value is used for DXF group code 10 in the AcDbViewTableRecord class and group code 12 in the AcDbViewportTableRecord class.

ads_trans函数是把你的点，在不同的坐标系转换。不要把这个和 缩放混淆了。
pMsg->lParam(..)这个得到的是WINDOWS的应用程序的象素坐标系的点，原点在“窗口”的左上。

我说的转换过程，是图形学的平移缩放的算法，也就是高数中的矩阵转换过程。

如果你的鼠标位置点的是“坐标系”的原点，把“原点”设置到屏幕中心，那么你直接缩放，不会出现任何问题。

如果你鼠标的点不是原点，大多数情况是这样，那么你就需要先用“平移”矩阵把点给移动到“原点”上。然后在缩放，因为“缩放”的计算，在图形学和ACAD中都是对原点缩放的，也就是转换矩阵的4x4矩阵的(0,0),)(1,1)(2,2)的位置的值是缩放的比例系数，这个是围绕“原点”的矩阵，你的点不在原点，那么就需要先构造“平移”矩阵，平移到原点处，然后和这个缩放矩阵相乘，进行缩放，缩放后，再给移回去。

XDSoft

最初由 风中的沙粒 发布
[B]我有一点不明白，view.setCenterPoint( cenPt );中的参数，到底是用户坐标系的点还是世界坐标系的点，acedCoordFromPixelToWorld (cPnt, cpt) ; 函数中的两个参数，有是那个坐标系的点，CPoint cPnt(pMsg->lParam）?.. [/B]

你可以做个实验，在原点处画个矩形框，框的中心是原点，

再任意画个框。

然后你一原点为基点缩放他们，看看效果，任意那个肯定是位置原来越远（或近），在原点那个框不变。