XiCAD & etc...

함수설명

파일을 저장하거나 Wblock 등을 연속으로 만들 때, 파일 이름에 일련번호를 자동으로 붙이는 함수. 또한 기존 폴더에 동일한 이름의 파일이 있다면, 자동으로 번호를 건너 띄어서 이름을 반환

구성

(xi:FileNameAutoNum folder fixnum filename extention startnum)

    folder : 폴더 경로명

    fixnum : 숫자의 갯수, 2→01, 3→001

    filename : 파일 이름

    extention : 확장자

    startnum : 시작번호

    반환: 파일명.확장자

예제)

(if
   (and
      (setq filename "test")
      (setq filename (xi:FileNameAutoNum (getvar 'DWGPREFIX) 3 filename ".dwg" 1))
   )
   filename
)

반환:

같은 이름의 파일이 폴더에 없다면 : test_001.dwg

같은 이름의 파일이 폴더에 있는데, 그 파일이 test_001.dwg 라면 : test_002.dwg