장바구니 | 마이페이지 | 캐쉬충전 | 로그인 | 이용안내 | 고객센터
EPLAN 지식공유커뮤니티
회원가입아이디·비밀번호찾기
EPLAN 지식공유
부품
매크로
양식
구성
심볼
프로젝트
스크립트
유틸리티
CAD 지식공유
회로도
표준심볼
Lisp
교육/강좌
동영상 강좌
특별 강좌
EPLAN 가이드
EPLAN electric P8
FA 지식공유
유틸리티
기타
Lisp 인기순위
dwg 1개 파일에...
기계 레이아웃 도...
뷰어다운로드
아크로벳리더ACAD
이플랜 
dwg 1개 파일에 여러장의 도면 출력 한번에 하기 - 리습
트위터미투데이페이스북
파일명 junho_auto_plot_v02.LSP.lsp
분류 CAD 지식공유 > Lisp
가격 무료 구매등급 새싹회원
등록일 2014년 12월 09일 판매자 ende
구매 7건 조회수 19,309회
자료번호 #0000198 파일크기 2.0KB
다운로드
키워드 : 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
목 차 목차없음

oops222 컬러 인쇄는 안되는 건가요 ㅠㅠ
ags0622 한장만 출력되는데 어떻데하나요 ?
kcs8202 저도 한장만 출력이 되네요. 확인 부탁드립니다.
ghost4460 한장밖에 출력이 되지 않습니다. 메일로 도면과 리습수정한 것을 보내겠습니다.
무엇이 잘못된 것인지 확인 부탁드립니다. 좋은자료 감사합니다.

위 정보를 구매한 경우 엔지니어링 적합성 여부는 구매자가 판단해야 합니다.
판매되는 회로는 컨텐츠 등록자의 노하우 이며, 이는 산업군별/제어 목적별로 다른 엔지니어링 구조를 가질수 있음을 의미 합니다.
제품 제작에 앞서 반드시 사용된 부품의 용량/ 케이블의 굵기와 같은 엔지니어링 정보를 확인 하시기 바랍니다.
해당 정보 및 게시물 저작권과 기타 법적 책임은 자료 등록자에게 있습니다.
위 정보및 게시물 내용의 불법적 이용, 무단전재및 배포는 금지되어 있습니다.
저작권침해, 명예훼손 등 분쟁요소 발견시 하단의 저작권 침해신고를 이용해 주시기 바랍니다.
회사소개 | 개인정보취급방침 | 회원약관 | 고객지원센터 | 저작권 침해신고 | 제휴 및 광고문의
이앤디일렉트릭(주)  대표이사 : 이준호  개인정보책임자 : 이준호  이메일 : support@ende.co.kr
사업자등록번호 :130-86-53291 통신판매업신고 : 2013-경기부천-0318 
주소 : (22770) 인천광역시 서구 중봉대로 490, 청라더리브티아모 지식산업센터 326, 327호
       (22770) 인천광역시 서구 파랑로 495, 청라에이스하이테크시티 2동 808호, 809호
대표전화 : 070-4349-1177 기술문의 : 070-4349-1176
Copyright 2001-2012 END Electric Co., Ltd. All rights reserved.