(setvar "cmdecho" 0)
(setvar "ZWCADLSPASDOC" 1)

(if (null (menugroup "TSDMOLD"))
  (command "menuload" "TSDMOLD.mns")
)
(menucmd "p12=+TSDMOLD.pop1")

(if (null m_draw)
  (if (findfile "moldfun1.zel")
    (progn
      (load "moldfun1.zel")
      (load "moldfun2.zel")
      (load "part1.zel")
      (load "part2.zel")
    )
    (progn
      (load "moldfun1.lsp")
      (load "moldfun2.lsp")
      (load "part1.lsp")
      (load "part2.lsp")
    )
  )
)

(defun tlf (tl_file_name)
  (setq tlpath (findfile "tsdmold.mns"))
  (setq tlpath (substr tlpath 1 (-(strlen tlpath) 11)))
  (strcat tlpath tl_file_name)
)

(princ)
