[求助]Lisp如何取得屏幕分辨率？

wsp6 · 发表于 2003-12-25 09:19:00

请问Lisp如何取得屏幕分辨率？谢谢！

BDYCAD · 发表于 2003-12-25 09:30:00

(setq vw（getvar "viewres))

wsp6 · 发表于 2003-12-25 09:53:00

不好意思！是如何取得当前屏幕大小(如1024*768)？

luoyaya · 发表于 2003-12-26 11:16:00

去到注册表里找,肯定有,然后用读注册表函数就可以了
具体在哪里去别的网站上或是注册表找吧:)

lyb_dsa · 发表于 2003-12-26 12:32:00

可以做参考，取得绘图窗口坐标
(defun C:TT ()
  (command "_.UCS" "V")
  (setq CTR (getvar "VIEWCTR"))
  (setq SIZE (getvar "VIEWSIZE"))
  (setq SCREEN (getvar "SCREENSIZE"))
  (setq SCALE (/ (car SCREEN) (cadr SCREEN)))
  (setq XSIZE (* SCALE SIZE))
  (setq RT (list (+ (car CTR) (/ XSIZE 2)) (+ (cadr CTR) (/ SIZE 2))))
  (setq LB (list (- (car CTR) (/ XSIZE 2)) (- (cadr CTR) (/ SIZE 2))))
  (command "_.line" RT LB "")
  (command "_.UCS" &quot")
  (princ)
)

[求助]Lisp如何取得屏幕分辨率？

发表回复

精选推荐