[日积月累]：缩放线形比例

eachy

2. 
   
3. (defun c:tt (/ ss scl i e el l)
   
4.   (if (and (setq ss (ssget)) (setq scl (getdist "\nScale: ")))
   
5.     (progn
   
6.       (setq ssl        (sslength ss)
   
7.             i        -1
   
8.       )
   
9.       (repeat ssl
   
10.         (setq e         (ssname ss (setq i (1+ i)))
    
11.               el (entget e)
    
12.         )
    
13.         (if (not (setq l (cdr (assoc 48 el))))
    
14.           (setq l 1.)
    
15.         )
    
16.         (entmod (append el (list (cons 48 (* l scl)))))
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

<br /> (defun c:tt (/ ss scl i e el l)<br />   (if (and (setq ss (ssget)) (setq scl (getdist "\nScale: ")))<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (repeat ssl<br />         (setq e         (ssname ss (setq i (1+ i)))<br />               el (entget e)<br />         )<br />         (if (not (setq l (cdr (assoc 48 el))))<br />           (setq l 1.)<br />         )<br />         (entmod (append el (list (cons 48 (* l scl)))))<br />       )<br />     )<br />   )<br />   (princ)<br /> )