清风明月名字 发表于 2014-2-16 14:33:31

求移动屏幕的软件

本帖最后由 清风明月名字 于 2014-2-16 15:18 编辑

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

Gu_xl 发表于 2014-2-16 16:22:20

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

llsheng_73 发表于 2015-10-25 03:51:15

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

石井鱼 发表于 2018-1-2 19:39:51

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

mikewolf2k 发表于 2018-1-4 14:10:11

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

你这个要求不如获得图框的范围坐标，然后zoomwindow依次缩放到各个图框。移动指定距离的话，图框之间有间隔就不行了。
页: [1]
查看完整版本: 求移动屏幕的软件