(defun TXT2HL (sExtension / I ssText oText)
  (if (setq ssText (ssget (list (cons 0 "TEXT"))))
    (progn
      (setq I 0)
      (repeat (sslength ssText)
	(setq oText (ssname ssText I))
	(setq I (1+ I))
	(seturl oText (strcat ".\\" (cdr (assoc 1 (entget oText))) sExtension))
      )
    )
  )
)

(defun C:TXT2HL_DWG ()
  (TXT2HL ".DWG")
)

(defun C:TXT2HL_PDF ()
  (TXT2HL ".PDF")
)