浪迹天涯追月 发表于 2016-3-14 10:44:00

关于屏幕显示与实际坐标对应的问题

    如图所示,请问怎么将CAD屏幕上的四个角的坐标转化成实际的坐标系坐标?譬如我下次打开这幅图就可以直接zoom到这块区域了。请告诉我CAD下相关的object或者方法是???谢谢。

浪迹天涯追月 发表于 2016-4-22 11:52:49

Dim viewportObj As AcadViewport
ThisDrawing.SendCommand "_qsave "
Set viewportObj = ThisDrawing.ActiveViewport
viewportObj 记录着当前屏幕的中心点及长宽信息(前提是你得sendcommand“_qsave”,不然viewportobj是不会实时更新的);
ZoomWindow 可根据这个记录缩放至理想位置
页: [1]
查看完整版本: 关于屏幕显示与实际坐标对应的问题