XD::GEOM:PIXEL-UNIT
;; ------------------------------------------------------------------------
;;; 函数名称 / Function Name: XD::GEOM:PIXEL-UNIT
;;;
;;; 【功能说明 / Description】
;;; 计算当前视图中一个像素对应的单位长度，用于屏幕坐标与模型坐标的转换。
;;; 通过获取视图大小和屏幕分辨率，计算像素单位长度的最大值。
;;;
;;; 【参数说明 / Parameters】
;;; 无参数
;;;
;;; 【返回值 / Return Value】
;;; (float) 当前视图中一个像素对应的单位长度
;;;
;;; 【依赖函数 / Dependencies】
;;; - getvar : 获取系统变量（如视图大小、屏幕分辨率）
;;; - car, cadr : 获取列表元素
;;; - max, abs: 取最大值和绝对值
;;;
;;; 【备注 / Notes】
;;; - 该函数常用于图形界面编程，确保图形元素在不同分辨率下显示一致。
;;; - 计算结果为视图单位长度中对应一个屏幕像素的大小。
;;;
(defun XD::GEOM:PIXEL-UNIT (/ x y x1 y1)
(setq y (getvar "viewsize"))
(setq x1 (car (getvar "screensize")))
(setq y1 (cadr (getvar "screensize")))
(setq x (* y (/ x1 y1)))
(max (abs (/ y y1)) (abs (/ x x1)))
)
页:
[1]