반응형 substr3 문장 내부에 마지막 숫자만 무조건 1 증가; 감소 ;; 문장 안에 있는 마지막 숫자만 무조건 1 증가; 1감소;; AFC.1 을 'np' 명령으로 선택하면 AFC.2; 'nm' 명령으로 선택하면 AFC.0으로 수정.;; 날짜를 2025 .09. 04 를 선택하면 2025. 09. 05 또는 03 으로 수정함.;; 숫자가 중간에 있어도 가능 "평면도(3)" → "평면도(4)" | "평면도(2)";; 주의) 9 증가는 10 이 아니고 0 입니다; 0 감소는 -1 이 아니고 9 입니다.;; +- 1 The Last Numer(defun KM:POSASC ( _STR _N / str asc )(setq str _STR n _N)(setq asc (ascii (substr str n 1))))(defun KM:getNUM ( / )(setq strdxf (ent.. 2025. 9. 4. 대소문자 바꾸기 아스키 코드파일:attachment/1275273992_asciitable.gif 2열 이후의 코드들은 위키에서 사용할 수namu.wiki;; by ASCII(chr (+ (ascii "C") 32)) ;; "C" -->"c"(chr (- (ascii "c") 32)) ;; "c" --> "C";; by Lisp fuction(strcase "CcCc") ;; "CCCC"(strcase "CcCc" T) ;; "cccc";; 소문자는 대문자보다 ascii 10진법으로 32 크다.;; strcase 함수로 일괄 대소문자 변경.;; Changing the capitalize the first letter(defun KM:CAPI ( _STR / str0 str1 str2 str3 Nstr)(setq str0.. 2025. 9. 3. Fix Scale Exported DWG from rvt ;; 드디어 완료함. ^___^ 20240627.;; 레빗에서 추출한 DWG의 시트는 배치탭, 작도는 모형탭에 보임.;; 배치탭을 모형탭으로 추출하면 1:1로 작아지는데;; 1:100 도면을 100배 확대하면 길이는 정상이지만 치수가 모조리 문제.;; 이걸 해결하기 위해서 그동안 개발했는데, 문제는 한가지 치수스타일로만;; 조정된다는 거임.;; 이제 모든 치수유형에 초록색 문자와 숫자 크기를 3mm로 적용할 수 있음.;; 시트 선택 없이 알아서 원점배치, 스케일 찾아서 확대 함. 오토스크립트 적용 가능.;; 시트블록이름을 변수에 지정 (setq SheetBlockName "Sheet_Y1*") on 20260130;; 스케일 값이 "MTEXT" 인 경우, 파싱해서 스케일 값만 추출 on 20260130(.. 2024. 6. 27. 이전 1 다음 반응형