 ; Ltl - Reload all linetypes in a drawing.
 ; Copyright 2003 by Rocket Software Ltd.
 ; Suzanne says: "Dancing Cat." 
 (DEFUN C:LTL (/ rew curlt)
  (setvar "cmdecho" 0)
  (setq rew t)
  (while (setq curlt (tblnext "ltype" rew))
         (setq curlt (cdr (assoc 2 curlt)))
         (setq rew ())
         (if (not (member curlt '("CONTINUOUS")))
             (command "linetype" "load" curlt "acad" "" "")))
  (command "regen")
 (princ))