ObjectArx设置图面视图

admin

1. void SetView(AcGePoint2d Pt1, AcGePoint2d Pt2, double ex_ratio)
   
2. {
   
3.         AcGePoint2d CenterPt;
   
4.         if ((fabs(Pt1.x - Pt2.x) < 1e-6) || (fabs(Pt1.y - Pt2.y) < 1e-6))
   
5.         {
   
6.                 return;
   
7.         }
   
8.                
   
9.         //确保两个坐标点分别为左上角和右下角
   
10.         if (Pt1.x>Pt2.x)
    
11.         {
    
12.                 double tmp;
    
13.                 tmp = Pt1.x;
    
14.                 Pt1.x = Pt2.x;
    
15.                 Pt2.x = tmp;
    
16.         }
    
17.         if (Pt2.y>Pt1.y)
    
18.         {
    
19.                 double tmp;
    
20.                 tmp = Pt1.y;
    
21.                 Pt1.y = Pt2.y;
    
22.                 Pt2.y = tmp;
    
23.         }
    
24. 
    
25.         //获取当前DwgView的尺寸
    
26.         CRect CADrect;
    
27.         acedGetAcadDwgView()->GetClientRect(&CADrect);
    
28.         double width, height, ratio;
    
29.         ratio = (double)(CADrect.right - CADrect.left) / (double)(CADrect.bottom - CADrect.top);
    
30.         if (fabs(ratio) < 1e-6)
    
31.         {
    
32.                 return;
    
33.         }
    
34.         if ((Pt2.x - Pt1.x) / (Pt1.y - Pt2.y) > ratio)
    
35.         {
    
36.                 width = Pt2.x - Pt1.x;
    
37.                 height = width / ratio;
    
38.         }
    
39.         else
    
40.         {
    
41.                 height = Pt1.y - Pt2.y;
    
42.                 width = height * ratio;
    
43.         }
    
44. 
    
45.         //设置当前视图中心点
    
46.         CenterPt.x = (Pt1.x + Pt2.x) / 2;
    
47.         CenterPt.y = (Pt1.y + Pt2.y) / 2;
    
48. 
    
49.         //改变当前视图
    
50.         AcDbViewTableRecord pVwRec;
    
51.         pVwRec.setCenterPoint(CenterPt);
    
52.         pVwRec.setWidth(width * ex_ratio);
    
53.         pVwRec.setHeight(height * ex_ratio);
    
54.         acedSetCurrentView(&pVwRec, NULL);
    
55. }

复制代码