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

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

请问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" "P")
(princ)
)
页: [1]
查看完整版本: [求助]Lisp如何取得屏幕分辨率？