viewsize 只获取了视图的高度, 那么它的宽度如何获取?

chenxiy825

nyistjz 发表于 2023-9-5 09:41
(setq
        pix (getvar "screensize") ;当前视口宽高像素值
        sc (/ (car pix) (cadr pix)) ;当前视口宽高比
...

请教一下，怎么设置“screensize”这个变量的值呢？“screensize”是只读属性，不能设置

chenxiy825

chenxiy825 发表于 2024-11-2 20:48
请教一下，怎么设置“screensize”这个变量的值呢？“screensize”是只读属性，不能设置

已经解决~嚯嚯~~~

llsheng_73

1. (defun ScreenWin(/ h c);;当前屏幕对角坐标(wcs)
   
2.   (setq c(trans(getvar'viewctr)1 0)
   
3.         h(*(getvar'viewsize)0.5)
   
4.         h(list(*(apply'/(getvar'screensize))h)h))
   
5.   (mapcar'(lambda(x)(mapcar x c h))'(- +)))

(defun ScreenWin(/ h c);;当前屏幕对角坐标(wcs)<br />   (setq c(trans(getvar'viewctr)1 0)<br />         h(*(getvar'viewsize)0.5)<br />         h(list(*(apply'/(getvar'screensize))h)h))<br />   (mapcar'(lambda(x)(mapcar x c h))'(- +)))

(apply'command(cons"rectang"(SCREENWIN)));;绘制当前屏幕
(sssetfirst'nil(ssadd(entlast)))