;;------------------------------------------------------------;;
;;  Author: cadmium                                           ;;
;;------------------------------------------------------------;;
;;  LT Faktor auf 1 TW  aus Forum                             ;;
;;------------------------------------------------------------;;
(defun C:NEWLTSCALE(/ AWS)
  (vl-load-com)
  (if(setq AWS(ssget))
    (mapcar
      '(lambda(X / Y)
        (if(and(setq Y(vlax-ename->vla-object(cadr X)))
                (setq LF(vl-catch-all-apply 'vla-get-linetypescale (list Y)))
            )    
          (vl-catch-all-apply 'vla-put-linetypescale (list Y (* LF 10)))
        )  
      )  
      (ssnamex AWS)
    )  
  )
) 
;;------------------------------------------------------------;;
;;                         End of File                        ;;
;;------------------------------------------------------------;;