(defun c:primedwg ()
  (c:txtlayr)
  (c:inslayr)
  (c:txtof)
  (c:insof)
  (setq laynm (tblnext "layer" T))
  (while (setq laynm (tblnext "layer" nil))
    (if	(and (assoc 62 laynm) (eq (cdr (assoc 62 laynm)) 13))
      (command ".layer" "off" (cdr (assoc 2 laynm)) "")
    )
  )
)