홈/ 질문/Q 107061
다음
진행 중
Lv.0
등록일: 2016-08-10T14:15:08+09:00 카테고리:

cad pdf 플롯시 파일명

dwg파일을 pdf로 플롯을 하는데

파일명이 dwg파일명-model.pdf로 나옵니다.

-model을 없애는 방법 없나요?

공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. 출력을 리습으로 사용하면 되는데요
      설정을 조금 해줘야만 사용가능한 리습이 되요..

      용지 설정이라든가 이런 세세한 설정을 죄다 리습으로 미리 지정해놓고 고정으로 쓰거나
      설정을 싹다 리습으로 명령어 쓸데마다 바꾸는 형태로?

      예시)
      전 PDF 사용시 A4 크기로 가로 출력만 사용하기 때문에
      이 리습을 쓰고 있어요.

      • 0

    3. 흠… 답변감사합니다. 혹시 플롯리습 파일좀 공유가능할까요?ㅎㅎ

      • 0
    4. 해당 플롯 리습은 xcsh 님이 도움을 주셨습니다.

      사용전 설정사항
      CAD 의 PGP 파일에서 SH, SHELL 쉘명령어의 옵션을 아래와 같이 지정
      SH,        ,               4,*OS 명령: ,
      SHELL,     ,               4,*OS 명령: ,

      세세한 설정은 직접 맡길게요.
      =====================================================

      ; pdf출력
      (defun c:PO(/ Obj doc lay plt n)
       (setvar “cmdecho” 0)
       (setq Obj (vlax-get-acad-object))
       (setq doc (vla-get-ActiveDocument Obj))
       (setq lay (vla-get-ActiveLayout doc))
       (setq plt (vla-get-Plot doc))
       
       (vla-put-ConfigName lay “DWG to PDF.pc3”)
       (vla-put-StyleSheet lay “monochrome.ctb”)
       (vla-put-CanonicalMediaName lay “ISO_full_bleed_A4_(297.00_x_210.00_MM)”)
       ;(vla-put-CanonicalMediaName lay “ISO_expand_A3_(297.00_x_420.00_MM)”)
       (vla-put-PaperUnits lay 1)
       (vla-put-StandardScale lay acScaleToFit)
       (vla-put-CenterPlot lay T)
       (vla-put-PlotRotation lay 0)
       
       (command “osmode” “33” “-PLOTSTAMP” “on” “”)

       
       (setq n (getint “n시작할 번호를 입력: “))
       (if (= n nil)
        (setq n 1)
       )
       (setq n2 (getint “n마지막 번호를 입력: “))
       (if (= n2 nil)
        (setq n2 9999)
       )
       ; plot  publish – BACKGROUNDPLOT 설정값
       ; 0 ( 전경  전경 )
       ; 1 ( 배경  전경 )
       ; 2 ( 전경  배경 )
       ; 3 ( 배경  배경 )
        
       (setvar “BACKGROUNDPLOT” 0)
       
       (while (<= n n2)
        (setq pt (getpoint “n인쇄 영역점:”))
        (setq p1 (reverse (cdr (reverse (trans pt 1 2)))))
        (setq pt (getcorner pt “n인쇄 대각선점:”))
        (setq p2 (reverse (cdr (reverse (trans pt 1 2)))))
       
        (setq p3 (mapcar ‘min p1 p2))
        (setq p4 (mapcar ‘max p1 p2))
        (vlax-invoke lay ‘setwindowtoplot p3 p4)
        (vla-put-PlotType lay AcWindow)
        (vlax-invoke lay ‘setwindowtoplot p3 p4)
        
        
        (setq znum (itoa n))
        (while (<= (strlen znum) 2)
         (setq znum (strcat “0” znum))
        )
        (setq strText (strcat (vl-string-right-trim “.dwg” (getvar “DWGNAME”)) “-” znum))
        (command “shell”
         (strcat “del ”C:\Users\Administrator\Desktop\” strText “.pdd””)
        )
        (command “shell”
         (strcat “del ”C:\Users\Administrator\Desktop\” strText “.pdf””)
        )
        (vla-PlotToFile plt (strcat “C:\Users\Administrator\Desktop\” strText “.pdd”))
        (setq n (1+ n))
        (command “shell”
         (strcat “rename ”C:\Users\Administrator\Desktop\” strText “.pdd” ”” strText “.pdf””)
        )
       );while
       (setvar “BACKGROUNDPLOT” 2)
      );defun

      • 0