XD::GEOM:PIXEL-UNIT

newer

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

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