求助:如何取得当前屏幕的左下角和右上角坐标?

liu22737

哪位高人知道啊!

王咣生

(defun *ax:getEyeshot (/ $orr)  ;eyeshot(视野,视界)
  (setq rt    '()
 ptctr (getvar "viewctr") ; 视口中心点
 vph   (getvar "viewsize") ; 视口高度(以画图单位计算)
 vps   (getvar "screensize") ; 视口宽度和高度(以像素为单位)
 ratio (/ (car vps) (cadr vps))
 vpw   (* ratio vph)
  )
  ; 左下角点
  (setq ptlb
  (list
    (- (car ptctr) (/ vpw 2))
    (- (cadr ptctr) (/ vph 2))
  )
  )
  ; 右上角点
  (setq ptrt
  (list
    (+ (car ptctr) (/ vpw 2))
    (+ (cadr ptctr) (/ vph 2))
  )
  )
  ; 返回值
  (setq rt (list ptlb ptrt))
)

流动的清泉

明经多人才