함수설명

파일을 저장하거나 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

 

'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글

각도 정리 xi:FixAngle  (0) 2023.03.09
파일 목록의 정렬 xi:FileSort  (0) 2023.03.08
객체 삭제하기 xi:Erase  (0) 2023.03.05
동일 선상의 점 판단 xi:Colinear-p  (0) 2023.03.01
객체 선택 xi:Entsel  (0) 2023.03.01