如何取得窗口坐标

lyb_dsa

如何取得绘图窗口的坐下电和右上角的坐标值？

王咣生

(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" "")
  (princ)
)

参考:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=12315

lyb_dsa

谢谢！