[求助]用LISP怎么获取屏幕的大小？

sym123321

用LISP怎么获取屏幕的大小？

 

就是屏幕的左下角坐标和右上角坐标。

 

我用vsmin vsmax 变量取得的坐标不对

 

用viewsize 变量只能取得屏幕的高度，宽度怎么得到呢？

 

希望朋友们指定一下，谢谢

cjs

再加上

VIEWCTR 系统变量

就可以了算出来了

sym123321

只能通过计算，没有直接获取的办法？

 

用vsmin 和 vsmax 求高宽比，再跟 viewsize 得取宽度？

 

依据 viewctr 求得屏幕角点？

 

我还是搜搜看好了，谢谢大家的回答

utopio

http://bbs.mjtd.com/forum.php?mo ... amp;_dsign=7e7bb1b4

wzg356

;;;通用函数  获取当前绘图区域比例（acad尺寸 比 像素）
(defun ZL-GET-SCREEN-SC        ()
    (/ (getvar "VIEWSIZE") ;_当前视口高度
       (cadr (getvar "SCREENSIZE"))
    )
)


;;;通用函数  获取当前绘图区域左上角坐标
(defun ZL-GET-SCREEN-PT7 (/ PT0 X0 Y0 H W)
    (setq PT0 (getvar "VIEWCTR") ;_视口中心坐标（UCS下）
          X0  (car PT0)
          Y0  (cadr PT0)
    )
    (setq H (getvar "VIEWSIZE") ;_当前视口高度
          W (* H
               (/ (car (getvar "SCREENSIZE"))
                  (cadr (getvar "SCREENSIZE"))
               )
            ) ;_当前视口宽度
    )
    ;;返回
    (list (+ X0 (* -0.5 W)) (+ Y0 (* 0.5 H)))
)