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