lzq2k 发表于 2013-9-6 10:44:58

已有 18 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

ruirui999 发表于 2014-6-16 11:08:49

pick_pos 未定义。

鱼与熊掌 发表于 2015-1-29 12:50:40

赞。。。不错

shxm112233 发表于 2016-6-3 17:13:23

(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)
  )
页: [1]
查看完整版本: 用户坐标转换为绘图区域屏幕象数坐标(左上角为原点)