本帖最后由 chenxiy825 于 2024-11-2 20:53 编辑
nyistjz 发表于 2023-9-5 09:41
(setq
pix (getvar "screensize") ;当前视口宽高像素值
sc (/ (car pix) (cadr pix)) ;当前视口宽高比
...
请教一下，怎么设置“screensize”这个变量的值呢？“screensize”是只读属性，不能设置
chenxiy825 发表于 2024-11-2 20:48
请教一下，怎么设置“screensize”这个变量的值呢？“screensize”是只读属性，不能设置
已经解决~嚯嚯~~~
本帖最后由 llsheng_73 于 2024-11-3 13:09 编辑
(defun ScreenWin(/ h c);;当前屏幕对角坐标(wcs)
(setq c(trans(getvar'viewctr)1 0)
h(*(getvar'viewsize)0.5)
h(list(*(apply'/(getvar'screensize))h)h))
(mapcar'(lambda(x)(mapcar x c h))'(- +)))
(apply'command(cons"rectang"(SCREENWIN)));;绘制当前屏幕
(sssetfirst'nil(ssadd(entlast)))