Skip to content

이혁진의 VBCAD

방명록


글 수 2,253
  • Skin Info

 

문서 첨부 제한 : 0Byte/ 6.00MB
파일 제한 크기 : 6.00MB (허용 확장자 : *.*)
 
 
캐드에 대해 자세한 부분을 모르고 지냈는데 이곳에 오니까 리습쪽에도 욕심이 생기네요... 나날이 발전하시고,
유익한 정보 얻어갑니다.
^^ 리습에 욕심이 나실때 시작하십시오.
리습을 모르고 캐드를 한다는건, 컴퓨터로 계산하는 시대에 주판으로 연산하는 수준입니다.
비교가 어떨지는 모르지만, 리습을 하신다면 시간과 노력을 절반이상 줄여줍니다.
내가 만든 리습이 직원 10명이서 1시간씩만 줄여 줄 수 있다면 10시간은 그냥 벌은거죠?
지금 바로 해보시죠!!! ^^
반갑기도 하지만 무척 고맙습니다.
우연히 알게된 사이트에 회원가입은 했었지만, 한번도 방명록은 찾질 않았지요. 넷티켓의 기본예절을 제가 무시했었나 봅니다.  설계분야에 이제 막 입문한 초보자로서 캐드의 모르는 기능들을 많이 알게되었습니다.
나날이 발전하는 홈피가 되길 바라면서.....

즐거움이 가득한 하루가 되시길 바랍니다.
a^O^a
예..저도 반갑습니다.
요즘 더욱더 발전하는 홈피가 되어야 하는데,
갑자기 제가 바빠져서..답변을 일일이 잘 못하는군요
더욱 노력하겠습니다.
하하,,쥔장님 무서버,,
아주 급하게 1900장을 출력할일이있었는데
여기서 플을 다운받아서 정말 시간은 많이
다축했답니다,
넘 고맙고 넘 훌륭합니다,.,.
하하...제가 왜 무섭죠? ^^
많이 도움이 되었다니 좋군요...
ㅋㅋㅋ 낼아침에 또 잘난척 함서
업그레이드된걸
주변에 알려줘야겠네여 ..
매번 도움주셔서 감사하공
혁직님덕분에 손목통증이 줄어드네여
낼은 목에 힘좀 주고 혁진님 대신 좀 뻐기겠씀다...
존 하루 되시고여 ^^
^^ 그냥 있는 기능 알려드린건데요...모..
좋은 하루 되세요..^^
많은 도움 얻고 있습니다....감솨감솨~~
^^ 자주 놀러 오세요..^^
krst plot을 열심희 쓰고 있는 cad맨입니다. cad2005용도 하루 빨리 만들어 주셨으면 합니다. 꾸벅
예..알겠습니다...^^
그냥 가려면 앞으로 오지마소 땜시....
몇자 적고 갈렵니다.
저도 역시 설계쟁이~
그러나 전기설계쟁이 ^^

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에 있다는.....

앞으로 만들려고했던
젤앞에만 대문자...
단어마다 대문자...
까지 .....

쩝.... 그래도 기분은..... 좋습니다...
앞으로 더욱 발전하는 홈피가 되세요.....


수고하셨네요..^^
이제 저도 시간이 좀 나는군요.. 성과품을 제출해야 해서 밤도 많이 새고....모습이 말이 아닙니다.
앞으로 열심히 하셔서 다른 분들에게도 많은 도움 주세요..^^
안녕하세요..
가입하고 처음 남기는 글이네요
설계하는데 많은 도움을 받고있습니다
감사합니다
저도 설계하는데....^^
보다 편리한 설계를 위해서....노력하겠습니다...
안녕하세요
예전에 가끔 들렸었는데
오늘이야 가입합니다.
잘 부탁드립니다.
제가 더 잘 부탁드려요,...^^
자주 오셔서 다른 분들께도 좋은 정보 많이 공유해 주세요...
안녕하세요^^
오늘가입했어여~~
정말 유용한 정보가 많은것같습니다..
앞으로 많은 도움받으러 오겠습니다~
더 많은 정보를 드리려 노력은 하는데...
잘 안되는군요...^^ 자주 오세요...^^

Powered by Xpress Engine / Designed by hikaru100

abcXYZ, 세종대왕,1234

abcXYZ, 세종대왕,1234

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소