关于屏幕显示与实际坐标对应的问题
如图所示,请问怎么将CAD屏幕上的四个角的坐标转化成实际的坐标系坐标?譬如我下次打开这幅图就可以直接zoom到这块区域了。请告诉我CAD下相关的object或者方法是???谢谢。Dim viewportObj As AcadViewport
ThisDrawing.SendCommand "_qsave "
Set viewportObj = ThisDrawing.ActiveViewport
viewportObj 记录着当前屏幕的中心点及长宽信息(前提是你得sendcommand“_qsave”,不然viewportobj是不会实时更新的);
ZoomWindow 可根据这个记录缩放至理想位置
页:
[1]