CAD实现文档坐标到视区坐标的转换（com接口Delphi语言）

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

procedure TForm1.Button1Click(Sender: TObject);    var   pRet: MxDrawResbuf;   h, w: double;   ptMin        : IMxDrawPoint;   ptMax       : IMxDrawPoint;   ptOle        : OleVariant;   begin   if dlgSave1.Execute then   begin     pRet := MxDrawResbuf(MxDrawX1.Call('Mx_GetMcDbDatabaseBound', ''));       if pRet.AtString(0) = 'Ok' then     begin       ptMin :=  CoMxDrawPoint.Create();       ptMin.Set_x(pRet.AtDouble(1));       ptMin.Set_y(pRet.AtDouble(2));       ptOle := MxDrawX1.DocToViewCoord(ptMin);       ptMin:=IMxDrawPoint(IDisPatch(ptOle));         ptMax :=  CoMxDrawPoint.Create();       ptMax.Set_x(pRet.AtDouble(3));       ptMax.Set_y(pRet.AtDouble(4));       ptOle := MxDrawX1.DocToViewCoord(ptMax);       ptMax:=IMxDrawPoint(IDisPatch(ptOle));           MxDrawX1.ViewColor := clWhite;       w := ptMax.Get_x();       w := w - ptMin.Get_x() + 1;       h := ptMax.Get_y();       h := ptMin.Get_y() - h  + 1;         if not MxDrawX1.SaveJpgFile(dlgSave1.FileName, Round(w), Round(h),0) then         Showmessage('失败')       else         Showmessage('成功');     end;   end;   end;