스크립트 파일인데요
해석이 좀……
대충이라도 돌아가는 과정과 설명좀 부탁드립니다
(defun C:F-IN7 (/ L_P FHH LN FH ITEM RES)
(setq RES (vl-directory-files (getvar “DWGPREFIX”) “*.DWG” 1))
(setq L_P (strcat (getvar “DWGPREFIX”) “rep.scr”))
(setq FHH (open L_P “w”))
(WRITE-LINE “”)
(FOREACH ITEM RES (REP-1 ITEM FHH))
(close FHH)
(command “SCRIPT” L_P)