知识库 / Delphi开发 / 详情
如何实现文档坐标到视区坐标的转换?
如何实现文档坐标到视区坐标的转换?
Delphi开发|黄洪辉|2018-05-15 09:14
回答:
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;

相关问题
得到当前已经选择的实体
得到图上所有PL线,然后再PL线打碎,变成直线,
判断一个点是否在pl线组成的闭合区域内
遍历图中的所有实体,找到块名为A23TIT_KH的图
如何向块中增加一个属性文字 C#代码 ?
如何提示输入一个点坐标?
如何实现自定义实体?
如何设置动态提示?
如何设置光标矩形框大小?
如何设置光标长度?
梦想CAD是专业的CAD插件(控件),可轻松在网页、手机及BS/CS程序中浏览编辑DWG文件,不需安装AutoCAD即可运行。经十余年累积已非常稳定可靠,有关键的空间搜索算法,并使用汇编优化,可同时处理50万级实体,有非常高的图形显示和处理效率。
技术服务
TEL:400-888-5703
185-8173-1060
客服I QQ: 3570505660
技术I QQ: 827867134
技术II QQ:6884123
产品购买
TEL:156-8136-8971
QQ:710714273
用户交流
控件QQ交流群1:73281982
控件QQ交流群2:112199959
MxCAD软件群 1:515771658
技术I:QQ
827867134
客服I:QQ
3570505660
销售QQ
710714273
联系电话400-888-5703