반응형 ASCII2 문장 내부에 마지막 숫자만 무조건 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. 이전 1 다음 반응형