求移动屏幕的软件

清风明月名字

很多软件都有一页一页地翻动的按钮，CAD就没有。我想请高手编一个移动屏幕按钮，呈左右一页一页地翻动，还可以上下一页一页地翻动。相邻移动区域之间重叠90%。
是上下移动较简单，因为屏幕高度可以从“viewsize”系统变量获得。我郁闷的就是无法获得屏幕当前的宽高度
屏幕宽度是指显示在当前屏幕的模型空间的宽度。
屏幕高度是指显示在当前屏幕的模型空间的高度。
哪位朋友能告诉我求在当前屏幕的模型空间的宽度的代码？

Gu_xl

根据screensize，Viewsize，viewctr 这几个系统变量换算一下即可！

llsheng_73

1. (defun ScreenWindow(/ h c);;返回当前屏幕左下角和右上角坐标
   
2.   (setq c(getvar'viewctr)
   
3.         h(*(getvar'viewsize)0.5)
   
4.         h(list(*(apply'/(getvar'screensize))h)h))
   
5.   (mapcar'(lambda(x)(mapcar x c h))'(- +)))

(defun ScreenWindow(/ h c);;返回当前屏幕左下角和右上角坐标<br />   (setq c(getvar'viewctr)<br />         h(*(getvar'viewsize)0.5)<br />         h(list(*(apply'/(getvar'screensize))h)h))<br />   (mapcar'(lambda(x)(mapcar x c h))'(- +)))

石井鱼

最近也遇到类似问题，求老大出手，给定一个距离，比如一个图框的尺寸，可以不用滚轮放大缩小平移，屏幕直接上移下移该尺寸，因为经常遇到相同位置的构件需要检查修改

mikewolf2k

石井鱼 发表于 2018-1-2 19:39
最近也遇到类似问题，求老大出手，给定一个距离，比如一个图框的尺寸，可以不用滚轮放大缩小平移，屏幕直接 ...

你这个要求不如获得图框的范围坐标，然后zoomwindow依次缩放到各个图框。移动指定距离的话，图框之间有间隔就不行了。