방명록
글 수 2,255
그냥 가려면 앞으로 오지마소 땜시....
몇자 적고 갈렵니다.
저도 역시 설계쟁이~
그러나 전기설계쟁이 ^^
VBCAD님의 강좌에 나온 대소문자 바꾸는 리습 만들기에 숙제에 도전.... 끙끙끙....
한나절 반이나 걸려서 .....
(DEFUN C:CHS() ; 대문자를 소문자로
(SETQ CHM 0 )
(SETQ P (SSGET))
(IF P ; 조건문1] 시작
(PROGN ; 조건문1] 참그룹 시작
(SETQ CONT T)
(SETQ L 0)
(SETQ N (SSLENGTH P))
(WHILE (< L N) ; 순환문1] 시작 : L < N
(SETQ E (ENTGET (SSNAME P L)))
(IF (= "TEXT" (CDR (ASSOC 0 E))) ; 조건문2] E에 객체속성 중 객체코드 0인 객체종류가 TEXT인가?
(PROGN ; 조건문2] 이 참일때 실행하는 그룹
(SETQ CHF NIL)
(SETQ AS (ASSOC 1 E)) ; E의 문자열코드만 AS에
(SETQ S (CDR AS)) ; 문자열 코드중 코드 번호를 빼고 내용만
(SETQ CH1 (STRCASE S T)) ; <STRING>을 대문자 또는 소문자로 응답한다.
(SETQ E (SUBST (CONS 1 CH1) AS E))
(ENTMOD E)
(SETQ CHM (1+ CHM))
) ; 조건문2] 참일때의 그룹을 종료
) ; 조건문2] 종료
(SETQ L (1+ L)) ; 비교값 L을 증가시킴.
) ; 순환문1] 리턴
) ; 조건문1] 참일때의 그룹 종료
) ; 조건문1] 종료
(PRINC "CHANGED ")
(PRINC CHM)
(PRINC " TEXT LINES.")
(TERPRI)
)
(DEFUN C:CHD() ; 소문자를 대문자로
(SETQ CHM 0 )
(SETQ P (SSGET))
(IF P ; 조건문1] 시작
(PROGN ; 조건문1] 참그룹 시작
(SETQ CONT T)
(SETQ L 0)
(SETQ N (SSLENGTH P))
(WHILE (< L N) ; 순환문1] 시작 : L < N
(SETQ E (ENTGET (SSNAME P L)))
(IF (= "TEXT" (CDR (ASSOC 0 E))) ; 조건문1] E에 객체속성 중 객체코드 0인 객체종류가 TEXT인가?
(PROGN ; 조건문1] 이 참일때 실행하는 그룹
(SETQ CHF NIL)
(SETQ AS (ASSOC 1 E)) ; E의 문자열코드만 AS에
(SETQ S (CDR AS)) ; 문자열 코드중 코드 번호를 빼고 내용만
(SETQ CH1 (STRCASE S )) ; <STRING>을 대문자 또는 소문자로 응답한다.
(SETQ E (SUBST (CONS 1 CH1) AS E))
(ENTMOD E)
(SETQ CHM (1+ CHM))
) ; 조건문2] 참일때의 그룹을 종료
) ; 조건문2] 종료
(SETQ L (1+ L))
) ; 순환문1] 리턴
) ; 조건문1] 참일때의 그룹 종료
) ; 조건문1] 종료
(PRINC "CHANGED ")
(PRINC CHM)
(PRINC " TEXT LINES.")
(TERPRI)
)
------------------------------
요까지.....
물론 강좌도 보고 다른사람이 만들어 놓은 문자바꾸는 리습도 보고....
다 만든후 옆직원에게 자랑했더니....
헉...... EXPRESS TOOL에 있다는.....
앞으로 만들려고했던
젤앞에만 대문자...
단어마다 대문자...
까지 .....
쩝.... 그래도 기분은..... 좋습니다...
앞으로 더욱 발전하는 홈피가 되세요.....
몇자 적고 갈렵니다.
저도 역시 설계쟁이~
그러나 전기설계쟁이 ^^
VBCAD님의 강좌에 나온 대소문자 바꾸는 리습 만들기에 숙제에 도전.... 끙끙끙....
한나절 반이나 걸려서 .....
(DEFUN C:CHS() ; 대문자를 소문자로
(SETQ CHM 0 )
(SETQ P (SSGET))
(IF P ; 조건문1] 시작
(PROGN ; 조건문1] 참그룹 시작
(SETQ CONT T)
(SETQ L 0)
(SETQ N (SSLENGTH P))
(WHILE (< L N) ; 순환문1] 시작 : L < N
(SETQ E (ENTGET (SSNAME P L)))
(IF (= "TEXT" (CDR (ASSOC 0 E))) ; 조건문2] E에 객체속성 중 객체코드 0인 객체종류가 TEXT인가?
(PROGN ; 조건문2] 이 참일때 실행하는 그룹
(SETQ CHF NIL)
(SETQ AS (ASSOC 1 E)) ; E의 문자열코드만 AS에
(SETQ S (CDR AS)) ; 문자열 코드중 코드 번호를 빼고 내용만
(SETQ CH1 (STRCASE S T)) ; <STRING>을 대문자 또는 소문자로 응답한다.
(SETQ E (SUBST (CONS 1 CH1) AS E))
(ENTMOD E)
(SETQ CHM (1+ CHM))
) ; 조건문2] 참일때의 그룹을 종료
) ; 조건문2] 종료
(SETQ L (1+ L)) ; 비교값 L을 증가시킴.
) ; 순환문1] 리턴
) ; 조건문1] 참일때의 그룹 종료
) ; 조건문1] 종료
(PRINC "CHANGED ")
(PRINC CHM)
(PRINC " TEXT LINES.")
(TERPRI)
)
(DEFUN C:CHD() ; 소문자를 대문자로
(SETQ CHM 0 )
(SETQ P (SSGET))
(IF P ; 조건문1] 시작
(PROGN ; 조건문1] 참그룹 시작
(SETQ CONT T)
(SETQ L 0)
(SETQ N (SSLENGTH P))
(WHILE (< L N) ; 순환문1] 시작 : L < N
(SETQ E (ENTGET (SSNAME P L)))
(IF (= "TEXT" (CDR (ASSOC 0 E))) ; 조건문1] E에 객체속성 중 객체코드 0인 객체종류가 TEXT인가?
(PROGN ; 조건문1] 이 참일때 실행하는 그룹
(SETQ CHF NIL)
(SETQ AS (ASSOC 1 E)) ; E의 문자열코드만 AS에
(SETQ S (CDR AS)) ; 문자열 코드중 코드 번호를 빼고 내용만
(SETQ CH1 (STRCASE S )) ; <STRING>을 대문자 또는 소문자로 응답한다.
(SETQ E (SUBST (CONS 1 CH1) AS E))
(ENTMOD E)
(SETQ CHM (1+ CHM))
) ; 조건문2] 참일때의 그룹을 종료
) ; 조건문2] 종료
(SETQ L (1+ L))
) ; 순환문1] 리턴
) ; 조건문1] 참일때의 그룹 종료
) ; 조건문1] 종료
(PRINC "CHANGED ")
(PRINC CHM)
(PRINC " TEXT LINES.")
(TERPRI)
)
------------------------------
요까지.....
물론 강좌도 보고 다른사람이 만들어 놓은 문자바꾸는 리습도 보고....
다 만든후 옆직원에게 자랑했더니....
헉...... EXPRESS TOOL에 있다는.....
앞으로 만들려고했던
젤앞에만 대문자...
단어마다 대문자...
까지 .....
쩝.... 그래도 기분은..... 좋습니다...
앞으로 더욱 발전하는 홈피가 되세요.....