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

浪迹天涯追月

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

浪迹天涯追月

Dim viewportObj As AcadViewport
ThisDrawing.SendCommand "_qsave "
Set viewportObj = ThisDrawing.ActiveViewport
viewportObj 记录着当前屏幕的中心点及长宽信息（前提是你得sendcommand“_qsave”，不然viewportobj是不会实时更新的）；
ZoomWindow 可根据这个记录缩放至理想位置