XICAD와 외부 프로그램을 자동 로드하고, 설치가 안되어있으면 안내해주는 리습 > 공유

캐드 프로그램 종류, 버전: zwcad2023

(setq a-path "C:\\xicad\\Lisp\\xi.zelx")
(setq b-path "C:\\설치경로\\프로그램.확장자")
 (if (and (findfile a-path) (findfile b-path))
    (progn
      (load a-path)
      (load b-path")
      (princ "\n XICAD와 프로그램 로드 완료."))
  (if (findfile a-path)
      (progn
        (load a-path)
        (princ "\n XICAD 로드 완료, 프로그램이 설치되어 있지 않습니다."))
    (if (findfile b-path)
        (progn
          (load b-path")
          (princ "\n 프로그램 로드 완료, XICAD가 설치되어 있지 않습니다."))
      (princ "\n XICAD와 프로그램이 설치되어 있지 않습니다."))))

필요에 따라 princ 대신 alert 함수를 사용하여 더욱 강경하게 안내를 할 수도 있을 것 같으나

설치하지 않고 사용시 매번 알림이 나오는 불편함이 있을 것 같아 princ로 작성하였습니다
ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

아래는 실제로 제가 사용하고있는 코드입니다

XICAD와 D&P라는 배관 그리는 확장 프로그램을 사용중입니다

파일 존재 여부를 확인하는 findfile 명령어는 찾았는데

zwcad에서 파일 디렉토리 존재 여부를 확인하는 명령어를 찾지 못해

코드가 조금 지저분합니다

(setq a-path "C:\\xicad\\Lisp\\xi.zelx")
(setq b-path "C:\\D&P\\")
(setq c-path "C:\\D&P\\ascy.lsp")
 (if (and (findfile a-path) (findfile c-path))
    (progn
      (load a-path)
      (load (strcat b-path "scy"))
      (princ "\n XICAD와 D&P 로드 완료."))
  (if (findfile a-path)
      (progn
        (load a-path)
        (princ "\n XICAD 로드 완료."))
    (if (findfile c-path)
        (progn
          (load (strcat b-path "scy"))
          (princ "\n D&P 로드 완료."))
      (princ "\n XICAD와 D&P가 로드되지 않았습니다."))))