0 Members and 1 Guest are viewing this topic.
(defun c:LISP2FAS ( / str1 num1 str2) (setq str1 (getfiled "LISP file..." "" "LSP" 2)) (setq num1 (strlen str1)) (setq str2 (strcat (substr str1 1 (- num1 4)) ".fas")) (vlisp-compile 'st str1 str2))