|
|
|
|
|
|
 뷰어다운로드 |
|
|
|
|
|
|
|
 |
 dwg 1개 파일에 여러장의 도면 출력 한번에 하기 - 리습 |
|
 |
|
|
|
|
 |
|
 |
 |
| 키워드 : cad, lisp, 출력, 리습 |
|
|
| 소개글 |
1개의 DWG 파일에 여러장의 도면을 그리는 분들이 많죠.
이렇게 도면을 작성하면 편집하고 보기는 편한데 출력할때 매번 마우스로 도곽을
찍어 주는 불편함이 있습니다. 몇백장 되면 거의 출력만 하루 종일 해야 하죠.
이런 불편함을 해소하고자 만든 리습을 공개 합니다. |
| 요약 |
사용법을 알려 드립니다.
좌측으로 길게 배열 되어 있는 도면을 클릭 1회, 도면장수 입력으로 출력 됩니다.
< QQ 명령어 사용 방법>
1. 명령어 qq 입력
2. 첫번째 도면의 좌측 하단 시작점 클릭
3. 우측으로 배열된 도면의 장 수 입력
4. 1열 도면 출력 완료
<실행 조건>
그림으로 보면 아래와 같은 조건 입니다.
클릭위치 선택하고, 숫자 3 입력하면 추가 입력 없이 도면이 3장 모두 출력 됩니다.
단, 최초 클릭하는 도면의 좌측 하단점은 0,0 혹은 x,y 사분면 좌표 내에 있어야 합니다.
(x 혹은 y 좌표가 마이너스인 경우 실행되지 않습니다.)
<사용 전 수정 필수 사항>
리습 프로그램 내에서 필수로 수정 하셔야 합니다.
"캐드 명령어 창에 vlide 입력 - 파일 열기 - 다운로드 받은 리습 파일 열기"
파일 열기 후 아래 사항을 수정하고, 저장 - 닫기 하시고, 캐드를 재 시작 하세요.
아래는 lisp 전문 입니다.
색깔이 있는 글씨를 수정 해야만 사용 가능합니다.
( defun c:QQ()
( princ " 도면의 좌측 하단 클릭 + 페이지 숫자 = 출력 " )
( setq os ( getvar "osmode"))
( setvar "osmode" 1)
( setvar "cmdecho" 0)
( setq stp (getpoint "n 시작점을 선택하세요 .. :"))
( princ stp)
( setq page (getreal "n 페이지 숫자를 입력하세요 .. :"))
( setq x ( car stp ))
( while ( < x ( + ( car stp )(* page pagedist )))
( command "-plot" "y" "Model" "PDFCreator" "A4" "M" "L" "N" "W"
( setq p1 ( list x
( cadr stp )
)
)
( setq p2 ( list
( + xdist ( car p1 ))
( + ydist ( cadr p1))
)
)
"F" "0,0" "Y" "monochrome.ctb" "Y" "N" "N" "N" "Y" )
( setq x ( + x pagedist ))
)
( setvar "osmode" os )
( setvar "cmdecho" 1)
( princ ))
1. pagedist 를 도면과 도면사이의 거리로 변경 합니다.
위 아래 2군데 있습니다.
위 그림 예제를 보면 350 이 도면 간격 입니다. (숫자만 입력 합니다.)
2. PDFCreator 를 사용하는 프린터 이름으로 변경 합니다.
"Samsung SCX-4623 Series" 와 같이 프린터 관리창의 프린터 이름을 복사/붙여넣기 하세요.
예제처럼 PDFCreator를 사용하면 PDF로 일괄 출력도 가능 합니다.
(PDFCreator가 실행된 창에서 Wait-Collect 버튼을 누르면 전체도면을 binding할 수 있습니다.)
3. L 은 가로도면을 의미 합니다.
가로 도면이면 변경하지 않고, 세로 도면이라면 P로 변경 합니다.
3. xdist 를 도면의 X축 길이로 변경 합니다. (A3의 경우 420, 숫자만 입력 합니다)
ydist 를 도면의 Y축 길이로 변경 합니다. (A3의 경우 297, 숫자만 입력 합니다)
---------------------------------------------------------------------------
리습 편집이 어려운 분은 약간 불편하지만 아래 리습을 사용하세요.
매번 길이값을 입력하여 사용 할 수 있습니다. (리습 파일에 같이 포함 됨)
< QQ2 명령어 사용 방법>
1. 명령어 qq2 입력
2. 첫번째 도면의 좌측 하단 시작점 클릭
3. 우측으로 배열된 도면의 장 수 입력
4. 도면과 도면간의 거리 입력
5. 도면의 X축 길이 입력
6. 도면의 Y축 길이 입력
7. 1열 도면 PDF로 출력
( defun c:QQ2()
( princ " 도면의 좌측 하단 클릭 + 페이지 숫자 = 출력 " )
( setq os ( getvar "osmode"))
( setvar "osmode" 1)
( setvar "cmdecho" 0)
( setq stp (getpoint "n 시작점을 선택하세요 .. :"))
( princ stp)
( setq page (getreal "n 페이지 숫자를 입력하세요 .. :"))
( setq pagedist (getreal "n 페이지 간 간격을 입력하세요 .. :"))
( setq xdist (getreal "n 도면의 X축 길이를 입력하세요 .. :"))
( setq ydist (getreal "n 도면의 Y축 길이를 입력하세요 .. :"))
( setq x ( car stp ))
( while ( < x ( + ( car stp )(* page pagedist )))
( command "-plot" "y" "Model" "PDFCreator" "A4" "M" "L" "N" "W"
( setq p1 ( list x
( cadr stp )
)
)
( setq p2 ( list
( + xdist ( car p1 ))
( + ydist ( cadr p1))
)
)
"F" "0,0" "Y" "monochrome.ctb" "Y" "N" "N" "N" "Y" )
( setq x ( + x pagedist ))
)
( setvar "osmode" os )
( setvar "cmdecho" 1)
( princ "제작자: 이앤디일렉트릭 이준호 대표 / 문의처: 070-4349-1177 / ceo@ene.co.kr"))
---------------------------------------------------------------------------
오토캐드 리습을 처음 사용하시는 분이라면 명령어 파일 로드 방법을 아셔야 합니다.
<리습 파일 로드 방법>
1. 첨부 파일을 다운받아 원하는 폴더에 저장 합니다.
2. appload 명령 입력 후 목차를 클릭 합니다.
3. 시작하기 세트에서 추가 버튼을 누릅니다.
4. 파일 경로를 찾아가서 추가 합니다.
6. 로드된 파일을 확인하고 닫기를 클릭 합니다.
7. 오토캐드 프로그램을 종료 후 재시작 하거나 (가장 쉬운 로드 방법)
1번 화면에서 리습 파일을 선택 후 "로드" 버튼을 눌러 리습을 실행 합니다.
문의: 이준호 대표 / ceo@ende.co.kr / 070-4349-1177 |
| 목 차 |
목차없음 |
 |
|
|
|
|
위 정보를 구매한 경우 엔지니어링 적합성 여부는 구매자가 판단해야 합니다.
판매되는 회로는 컨텐츠 등록자의 노하우 이며, 이는 산업군별/제어 목적별로 다른 엔지니어링 구조를 가질수 있음을 의미 합니다.
제품 제작에 앞서 반드시 사용된 부품의 용량/ 케이블의 굵기와 같은 엔지니어링 정보를 확인 하시기 바랍니다.
해당 정보 및 게시물 저작권과 기타 법적 책임은 자료 등록자에게 있습니다.
위 정보및 게시물 내용의 불법적 이용, 무단전재및 배포는 금지되어 있습니다.
저작권침해, 명예훼손 등 분쟁요소 발견시 하단의 저작권 침해신고를 이용해 주시기 바랍니다. |
|
파일명
통신판매업신고 : 2013-경기부천-0318 
