Skip to content

이혁진의 VBCAD

방명록


글 수 2,255
  • 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에는 나눔글꼴이 설치되어 있지 않습니다.

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

설치 취소