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.         }
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.         }
45.         //设置当前视图中心点
46.         CenterPt.x = (Pt1.x + Pt2.x) / 2;
47.         CenterPt.y = (Pt1.y + Pt2.y) / 2;
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. }

复制代码