求移动屏幕的软件

清风明月10 · 发表于 2014-2-16 14:34:13

本帖最后由清风明月10 于 2014-2-16 15:17 编辑

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

哪位朋友能告诉我求在当前屏幕的模型空间的宽度的代码？

st788796 · 发表于 2014-2-16 14:34:14

本帖最后由 st788796 于 2014-2-16 16:11 编辑

清风明月10 发表于 2014-2-16 14:58
我也知道较简单，尤其是上下移动，因为屏幕高度可以从“viewsize”系统变量获得。我郁闷的就是无法获得屏 ...

适用 ODCL 8.0 以上，左右移动不需要高度

(defun c:xpan (/ string)
(defun _panview (p mod / size scl dis str)
(setq size (getvar "viewsize")
scl (dcl-control-gettext npan/form1/textbox1)
)
(if (not (zerop (distof scl)))
(progn
(setq dis (trans p 0 1))
(if mod
(setq str (strcat (vl-princ-to-string (car dis)) ",0,0"))
(setq str (strcat "0," (vl-princ-to-string (cadr dis)) ",0"))
)
(dcl-sendstring
(strcat "_-Pan 0,0,0 "
str
"\n"
)
)
)
)
)
(defun c:npan/form1/lpan#OnClicked ()
(_panview (list (* -1
(distof scl)
(getvar "viewsize")
)
0
)
t
)
)
(defun c:npan/form1/rpan#OnClicked ()
(_panview (list (* (distof scl)
(getvar "viewsize")
)
0
)
t
)
)
(defun c:npan/form1/upan#OnClicked ()
(_panview (list 0(* (distof scl)
(getvar "viewsize")
)
)
nil
)
)
(defun c:npan/form1/bpan#OnClicked ()
(_panview (list 0(* -1 (distof scl)
(getvar "viewsize")
)
)
nil
)
)
(setq string
'("YWt6A+skAABlxuF1BuKT6QESajtquaHLqcyudOoWStw3b2pc6CBlUgnuHrshHiU0JZ3x+liKpMUs"
"xmArJVf6ejIyWjwcf3v3wR3cd9/+9/4isitbT2RtnUFY1rpmZT77fN+sHjXXkbOgk7DCw6XFaCQs"
"za2nlwCZw4fPRZHNTUkblqRuulAJZiTecLyefP5hWX4y2mVKsoy8Ao6dm7+sdXE8f1L+HI7fUL6k"
"bIIh8QkLFnPc2370ztqkfkreu/WBAyZNIWEW9gRyHgWMcNy7+cCqHW+Eq/dg9a40CyCqP08gQwSH"
"j9BmBYv27/TPEXEy/mKU6ljk/Wmie+R1TF7oruqLRtL9ad5nharA+xcPNbI71XhJNjelUsRslzHi"
"14hLGleIF9jD+wrYNRMBqsp1A+aXXTIBuIorDUAarhhUcZ1gpi7HjCqThFSTRdtgykcYQSXXo14a"
"ucVviAnmAPeX8zJxTwPsl4sykR8ERa2nUCtxTgVFreSUUWjnoDJgKweGXMWDz7arDOsA2Km9PPY5"
"C1/m3y52j2hN32y1OV56M2YaFTu2FCcSyHmnkkTnQL6KANg9uNT0K6yoTKMS0uDV8dwQY83RHwRl"
"lcG5BmXEwBiE9VZEsaThPRAaQ/XLwR6wOaZt/u1/JMI0+JhcM8Gsqk224NNSKDiwjP9zpF94oNlS"
"jllPsz9yVQOYKD5zmp3LZGlO+gGHjlbo8947sseKrqLM7H0DeZejEqKlMoUD2inmpDEE0Y9Ui4DY"
"5UQ2xLSKwfmKJ3iQw9gDf6fp5aQ5xPIDXrTn0B6EN9iH+RxIBUCXvS/06X+kKtTP/KhIEq6kYq4y"
"QwTeQ3MorljzLa6Y/nSkVM55028qroy/YEpMtt77n1j/OFNYLbNCcCQIx0aarkUwAg43bGicrpwY"
"0SB0bQQZQjJ4SMt6ECTmNh8/4WITUJUpdHUEHkdSyP7EktW+AKfhfQunEfnPI4gCrMeS9ZwCf+tR"
"3r78OML7qhzw+4hquC1Fyrxsoh+krT7d7lP5+Rd34wD48M41lq7S0GXtQi0ZvAsenRuN7k7Ea2wC"
"I5nMmTSLywP++wd/rYnNj/FNUx9XzuPfQhnYecEGxgaNMtFV5ZOfa4XlepHjDn2ei88ncX2YGTcN"
"Bi2/RAfqH4vNgMlMg3Ktf9hHkhFNwwzy8T0/C0KdDuQ1K6i9F0vSrnHZXUE4U3yVgKYlTUDxLzU/"
"e8VqkvEvfzZ+0HPsCf30GnPykwCUe7UAFI1FWmBisJHuSgkflB90V1UWm919pJekj3ckvP3XcxZz"
"3vxYPoOh/iiQ/hiUat4vHfTgeC9Pb6Kro0dFIIFfkaMQpnkb4Sn7JH80jt7G2vw0NFve4abYuFDp"
"9jCu8e1SAxc37zaas+Nj394Blz1AXd2Clr2J07DmrsfYks+9+UQBQYeNodnFi4KPeZEfVRXto8UI"
"HgOKpq/gwbDOgpToM0Z0jTmZw8VEUOJFFbOhAQ1i08yNuMiZ4SaSg5PpbelQ4MmYITGCWoWdMq5H"
"BJI2oUHDJgHHiWy1GTCDX4WdgykhOtCKI7goBvH//IkMuGSngdNJCJTR0B2FFSaIiYGlx5FtiqeI"
"tLUmwGYk80sSgIwm/f0pJeXlzhJ10b/MtyH12/PBQMTLYudBFeaubU3ADqMUI3bD7AdksAwY03Ix"
"B4oacexS25ExGntizGLMuPZSo9nV1bW44S/O0gqfzPlpZ3UP3baU9DiL8oO1LTTntkdkM5c4Gntj"
"zGLMOMB5t08XkfH+zubJX1VfWEgal62uveAf7BKxzLBBGzSh4bYUCrYMtmR3J2YdvVxVMwHIbc/7"
"zqfNCgyLrKT0kSccTAQwbeimgq2mzk6DebRLkvg="
)
)
(dcl-project-import string)
(dcl-form-show npan/form1)
(princ)
)

(defun c:xpan (/ string) 
  (defun _panview (p mod / size scl dis str) 
    (setq size (getvar "viewsize") 
          scl  (dcl-control-gettext npan/form1/textbox1) 
    ) 
    (if        (not (zerop (distof scl))) 
      (progn 
        (setq dis (trans p 0 1)) 
        (if mod 
          (setq str (strcat (vl-princ-to-string (car dis)) ",0,0")) 
          (setq str (strcat "0," (vl-princ-to-string (cadr dis)) ",0")) 
        ) 
        (dcl-sendstring 
          (strcat "_-Pan 0,0,0 " 
                  str 
                  "\n" 
          ) 
        ) 
      ) 
    ) 
  ) 
  (defun c:npan/form1/lpan#OnClicked () 
    (_panview (list (* -1 
                       (distof scl) 
                       (getvar "viewsize") 
                    ) 
                    0 
              ) 
              t 
    ) 
  ) 
  (defun c:npan/form1/rpan#OnClicked () 
    (_panview (list (* (distof scl) 
                       (getvar "viewsize") 
                    ) 
                    0 
              ) 
              t 
    ) 
  ) 
  (defun c:npan/form1/upan#OnClicked () 
    (_panview (list 0(*  (distof scl) 
                       (getvar "viewsize") 
                    ) 
                     
              ) 
              nil 
    ) 
  ) 
  (defun c:npan/form1/bpan#OnClicked () 
    (_panview (list 0(* -1 (distof scl) 
                       (getvar "viewsize") 
                    ) 
                     
              ) 
              nil 
    ) 
  ) 
  (setq        string 
         '("YWt6A+skAABlxuF1BuKT6QESajtquaHLqcyudOoWStw3b2pc6CBlUgnuHrshHiU0JZ3x+liKpMUs" 
           "xmArJVf6ejIyWjwcf3v3wR3cd9/+9/4isitbT2RtnUFY1rpmZT77fN+sHjXXkbOgk7DCw6XFaCQs" 
           "za2nlwCZw4fPRZHNTUkblqRuulAJZiTecLyefP5hWX4y2mVKsoy8Ao6dm7+sdXE8f1L+HI7fUL6k" 
           "bIIh8QkLFnPc2370ztqkfkreu/WBAyZNIWEW9gRyHgWMcNy7+cCqHW+Eq/dg9a40CyCqP08gQwSH" 
           "j9BmBYv27/TPEXEy/mKU6ljk/Wmie+R1TF7oruqLRtL9ad5nharA+xcPNbI71XhJNjelUsRslzHi" 
           "14hLGleIF9jD+wrYNRMBqsp1A+aXXTIBuIorDUAarhhUcZ1gpi7HjCqThFSTRdtgykcYQSXXo14a" 
           "ucVviAnmAPeX8zJxTwPsl4sykR8ERa2nUCtxTgVFreSUUWjnoDJgKweGXMWDz7arDOsA2Km9PPY5" 
           "C1/m3y52j2hN32y1OV56M2YaFTu2FCcSyHmnkkTnQL6KANg9uNT0K6yoTKMS0uDV8dwQY83RHwRl" 
           "lcG5BmXEwBiE9VZEsaThPRAaQ/XLwR6wOaZt/u1/JMI0+JhcM8Gsqk224NNSKDiwjP9zpF94oNlS" 
           "jllPsz9yVQOYKD5zmp3LZGlO+gGHjlbo8947sseKrqLM7H0DeZejEqKlMoUD2inmpDEE0Y9Ui4DY" 
           "5UQ2xLSKwfmKJ3iQw9gDf6fp5aQ5xPIDXrTn0B6EN9iH+RxIBUCXvS/06X+kKtTP/KhIEq6kYq4y" 
           "QwTeQ3MorljzLa6Y/nSkVM55028qroy/YEpMtt77n1j/OFNYLbNCcCQIx0aarkUwAg43bGicrpwY" 
           "0SB0bQQZQjJ4SMt6ECTmNh8/4WITUJUpdHUEHkdSyP7EktW+AKfhfQunEfnPI4gCrMeS9ZwCf+tR" 
           "3r78OML7qhzw+4hquC1Fyrxsoh+krT7d7lP5+Rd34wD48M41lq7S0GXtQi0ZvAsenRuN7k7Ea2wC" 
           "I5nMmTSLywP++wd/rYnNj/FNUx9XzuPfQhnYecEGxgaNMtFV5ZOfa4XlepHjDn2ei88ncX2YGTcN" 
           "Bi2/RAfqH4vNgMlMg3Ktf9hHkhFNwwzy8T0/C0KdDuQ1K6i9F0vSrnHZXUE4U3yVgKYlTUDxLzU/" 
           "e8VqkvEvfzZ+0HPsCf30GnPykwCUe7UAFI1FWmBisJHuSgkflB90V1UWm919pJekj3ckvP3XcxZz" 
           "3vxYPoOh/iiQ/hiUat4vHfTgeC9Pb6Kro0dFIIFfkaMQpnkb4Sn7JH80jt7G2vw0NFve4abYuFDp" 
           "9jCu8e1SAxc37zaas+Nj394Blz1AXd2Clr2J07DmrsfYks+9+UQBQYeNodnFi4KPeZEfVRXto8UI" 
           "HgOKpq/gwbDOgpToM0Z0jTmZw8VEUOJFFbOhAQ1i08yNuMiZ4SaSg5PpbelQ4MmYITGCWoWdMq5H" 
           "BJI2oUHDJgHHiWy1GTCDX4WdgykhOtCKI7goBvH//IkMuGSngdNJCJTR0B2FFSaIiYGlx5FtiqeI" 
           "tLUmwGYk80sSgIwm/f0pJeXlzhJ10b/MtyH12/PBQMTLYudBFeaubU3ADqMUI3bD7AdksAwY03Ix" 
           "B4oacexS25ExGntizGLMuPZSo9nV1bW44S/O0gqfzPlpZ3UP3baU9DiL8oO1LTTntkdkM5c4Gntj" 
           "zGLMOMB5t08XkfH+zubJX1VfWEgal62uveAf7BKxzLBBGzSh4bYUCrYMtmR3J2YdvVxVMwHIbc/7" 
           "zqfNCgyLrKT0kSccTAQwbeimgq2mzk6DebRLkvg=" 
          ) 
  ) 
  (dcl-project-import string) 
  (dcl-form-show npan/form1) 
  (princ) 
)

st788796 · 发表于 2014-2-16 14:41:02

本帖最后由 st788796 于 2014-2-16 14:47 编辑

可以用ODCL做个 Modeless 按钮, 执行 PAN 命令很简单的

CAD 默认有这个图标菜单的，移动距离是 0.2 * viewsize

清风明月10 · 发表于 2014-2-16 14:58:36

st788796 发表于 2014-2-16 14:41
可以用ODCL做个 Modeless 按钮, 执行 PAN 命令很简单的

CAD 默认有这个图标菜单的，移动距离是 0.2 * ...

我也知道较简单，尤其是上下移动，因为屏幕高度可以从“viewsize”系统变量获得。我郁闷的就是无法获得屏幕当前的宽高度。

st788796 · 发表于 2014-2-16 16:08:36

本帖最后由 st788796 于 2014-2-16 16:53 编辑

CAD 菜单是这样定义左移屏的
^P'_-pan (trans (list (* 0.2 (getvar "viewsize")) 0) 0 1) ;^P
左移

(defun c:ttl (/ xmax xmin xv)
(setq xmax (car (getvar "vsmax"))
xmin (car (getvar "vsmin"))
vx (* -0.01 (- xmax xmin))
)
(vl-cmdf ".-pan"
'(0. 0. 0.)
(list vx 0. 0.)
)
(princ)
)

屏幕 BOX
(apply 'xdrx_points_box (list (getvar "vsmin") (getvar "vsmax")))

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=668860&extra=page%3D7%26filter%3Dsortid%26sortid%3D1

账号		自动登录	找回密码
密码			立即注册

[已解决] 求移动屏幕的软件

最佳答案

相关帖子

点评

点评

浏览过的版块