Auto Lisp으로 자동으로 FAS 컴파일하기

특별한 리습은 없지만 컴파일을 자주 사용하다보니 매번 변경으로 인한 귀차니즘으로 ...

리습의 vlisp-compile 함수를 사용하여 자동 Fas파일제작하기

(defun c:FAS ( / FilePath FileName LspName FasName RewFas)

   (setvar "cmdecho" 0)

   (setq FilePath "C:\\AutoCAD 2010\\My Lisp 2010\\")

   (setq FileName (getfiled "Select a Lisp File" FilePath "lsp" 8))

   (setq LspName (strcat FilePath FileName))

   (setq FasName (strcat FilePath (vl-filename-base FileName) ".FAS"))

   (if (not (findfile FasName))

      (vlisp-compile 'st LspName FasName)

      (progn

         (initget "Y N")

         (setq RewFas (getkword "\n Save Over Existing FAS? [Yes or No]<Yes>: "))

         (if (or (= RewFas "Y")(= RewFas nil))

            (vlisp-compile 'st LspName FasName)

            (alert "FAS Compiling Aborted...")

         )

      )

   )

   (princ)

)

 

리습의 폴더위치는 FilePath값을 조정하여서 사용하시면 됩니다.

리습폴더의 기본저장값은 C:\\AutoCAD 2010\\My Lisp 2010\\ 입니다

자신의 리습위치에 맞게 FilePath값을 수정하여서 사용하시기를 바랍니다.

 

리습을 로딩하여서 명령어는 FAS를 입력하시면 됩니다.

실행을 하시면 리습을 선택하는 창이 나옵니다.

리습파일을 선택하여주면 그 위치에 동일이름의 FAS파일이 생성됩니다.

만약에 동일이름의 FAS파일이 있을 경우

덮어쓰기를 할것인지 취소할것인지 입력을 받게 되어 있습니다.