[LISP程序]：一个更换尺寸单位的Vlisp小程序

lsjjm

一个更换尺寸单位的Vlisp小程序:
此vlisp code可以批量将以mm为单位的尺寸转换成inch.
稍加修改, 可用于不同精度的其他单位制的转换.

2. 
   
3. (defun mmtoinch ()      
   
4.   (vl-load-com)
   
5.   (princ "\nSelect Dimension:")
   
6.   (setq ents (ssget) )
   
7.   (if ents
   
8.     (repeat (sslength ents)
   
9.       (setq ent (vlax-ename->vla-object (ssname ents n)))
   
10.       (setq dim (vlax-get-property ent 'measurement))
    
11.       (setq dim (rtos (/ dim 25.4) 2 3))
    
12.       (vlax-put-property ent 'textoverride dim)
    
13.     );
    
14.   );
    
15. );defun

<br /> (defun mmtoinch ()       <br />   (vl-load-com)<br />   (princ "\nSelect Dimension:")<br />   (setq ents (ssget) )<br />   (if ents<br />     (repeat (sslength ents)<br />       (setq ent (vlax-ename->vla-object (ssname ents n)))<br />       (setq dim (vlax-get-property ent 'measurement))<br />       (setq dim (rtos (/ dim 25.4) 2 3))<br />       (vlax-put-property ent 'textoverride dim)<br />     );<br />   );<br /> );defun

lgw

能不能把他改为R14版的。