用户坐标转换为绘图区域屏幕象数坐标(左上角为原点)

ruirui999

pick_pos 未定义。

鱼与熊掌

赞。。。不错

shxm112233

(defun scrn_coord ( pick_pos / view_width view_center scrn_x scrn_y s x y)
  ;;用户坐标转换为绘图区域屏幕象数坐标(左上角为原点),
  ;;用于对话框显示坐标参数需加上绘图区域左上角偏移
  (setq        scrn_x (car (getvar "screensize"))
        scrn_y (cadr (getvar "screensize"))
        view_height (getvar "viewsize")
        view_center (trans (getvar "viewctr") 1 2)
        view_width (* view_height (/ scrn_x scrn_y))
        view_x0 (- (car  view_center) (/ view_width  2.0))
        view_y0 (+ (cadr view_center) (/ view_height 2.0))
        
        pick_pos (trans pick_pos 1 2)
        s (/ view_width scrn_x)

        x (fix (/ (- (car  pick_pos) view_x0) s))
        y (fix (/ (- view_y0 (cadr pick_pos)) s))
        
  )
  (list x y)
  )