[LISP函数-显示]：像素/图形单位互转

eachy

2. 
   
3. ;;; Conversion pixel to drawing units
   
4. ;;像素转换到图形单位
   
5. (defun xd-PIX2UNITS (pix)
   
6.   (* pix (/ (getvar "VIEWSIZE") (cadr (getvar "SCREENSIZE"))))
   
7. )
   
8. 
   
9. ;;; Conversion drawing units to pixel
   
10. ;;图形单位转换到像素
    
11. (defun xd-UNITS2PIX (units)
    
12.   (* units
    
13.      (/ (cadr (getvar "SCREENSIZE")) (getvar "VIEWSIZE"))
    
14.   )
    
15. )

<br /> ;;; Conversion pixel to drawing units<br /> ;;像素转换到图形单位<br /> (defun xd-PIX2UNITS (pix)<br />   (* pix (/ (getvar "VIEWSIZE") (cadr (getvar "SCREENSIZE"))))<br /> )<br /> <br /> ;;; Conversion drawing units to pixel<br /> ;;图形单位转换到像素<br /> (defun xd-UNITS2PIX (units)<br />   (* units<br />      (/ (cadr (getvar "SCREENSIZE")) (getvar "VIEWSIZE"))<br />   )<br /> )

狂刀

建议：在没有发更多的帖子之前，应该对分类作一下约定，方便今后的归类与整理。也方便查找。
如：[LISP函数]：像素/图形单位互转　－》　[LISP函数－显示]：像素/图形单位互转
其他的：如
[LISP函数－表]
[LISP函数－反应器]
[LISP函数－特性]
[LISP函数－块]
[LISP函数－文字]
[LISP函数－标注]
等等，不一定按这个，怎么分，可以讨论商定