캐드에서 도면 리스트 만드는 프로그램~

구닥다리 msdos 시절을 격은 분이면    단순하게  명령프롬프트에서      dir *.dwg> dwgname.txt
한줄만 사용해도  할 수 있는 단순한 작업입니다.

캐드상에서는  (command “sh” (strcat “dir “(getvar “DWGPREFIX”)”*.dwg/w>c:\dwgfile.txt”)) 로 쓸수 있으나  이 방법들은 폴더명이 길어지면 에러가 발생합니다.

리습으로도 간단히 구현됩니다.
(defun c:dwg_txt(/ file path f_list file_w n)
   (setq file (getfiled ” Select file”  (getvar “DWGPREFIX”) “dwg” 4))
   (setq path (vl-filename-directory file))
   (setq f_list (vl-directory-files path “*.dwg” 1))

   (setq file_w (open “c:\dwgfile.txt” “w”))
   (setq n 0)
   (while (setq txt (nth n f_list))
       (princ (strcat txt “n”) file_w)
       (setq n (1+ n))
   );while
   (close file_w)
);

저장파일 위치를 c:dwgfile.txt 로 한것 입니다.