;缩放选择名称的图块
(defun c:tt()
  (SETQ b1 (ENTSEL "\n请选择图块: ")

        i  0
        hh (getreal"输入新的缩放系数:  ")
  )
  (IF b1   
    (PROGN  
      (SETQ b2 (CAR b1)  
            b3 (ENTGET b2) 
            b4 (ASSOC 0 b3) 
            b5 (CDR b4) 
      )
     (IF (= b5 "INSERT") 
      (PROGN   
       (SETQ b6 (ASSOC 2 b3) 
             b7 (CDR b6) 
             b8 (SSGET (LIST b4 b6))
             b9 (SSLENGTH b8)
            
       )
       (alert (strcat b7 "  *  " (itoa b9)))
      )   
      (PRINC "\n对象不是块!!")
      )    
    )    
    (PRINC "\n没有选择图块!!") 
  )   
  (repeat  b9
     (setq bb(ssname b8 i) instp(cdr(assoc 10 (entget bb))))
     (command "scale" bb "" "non"instp hh )
     (setq i(1+ i))
   )
  (PRINC)
)