# 2 2D pdf 파일 변환 프로그램

PDF 변환 옵션

도면에서 PDF 변환 옵션은 다음과 같습니다.

 

General

■ sheet
  pdf 로 변환 하는 Drw Sheet를 선택 합니다. "All"을 선택
    하면 하나의 pdf 파일에 모든 Sheet를 포함 시킵니다

■ color
    pdf의 색상을 정의 합니다. Monochrome 선택


■ Line Style
    Pen table을 체크 합니다 

 

Content

■ Fonts
    Stroke All Fonts를 선택 합니다

 

[Creo 활용] 도면 변환 (PDF)

 

 

■ Pen Table 설정 방법

 

자동화 도구 CadTools Ver 3.0

 

 

주의 > Creo 자체에서 여러개의 sheet를 각각의 Sheet pdf 파일로 변환 하는 기능은 없다.

         예를 들어 sheet-1.pdf, sheet-2.pdf 등으로 변환 할수 없다.  

 

---

pdf 파일이 저장 할수 있는 폴더를 만들어야 한다. "D:\IDT\DATA_EXPORT\2DPDF" 폴더를 만들고 사용해야 한다.

도면만 pdf로 만들수 있다.

 

---

Sub export2Dpdf()

    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection
    Set conn = asynconn.connect("", "", ".", 5)
    Dim oSession As IpfcBaseSession
    Set oSession = conn.Session
    Dim oModel As IpfcModel
    Set oModel = oSession.CurrentModel
    
    Dim oWindow As IpfcWindow
    Set oWindow = oSession.GetModelWindow(oModel)
       
    
    Dim PDFExportInstrCreate As New CCpfcPDFExportInstructions
    Dim PDFExportInstr As IpfcPDFExportInstructions
    Set PDFExportInstr = PDFExportInstrCreate.Create()
    Dim PDF_Options As New pfcls.CpfcPDFOptions
    
    ' Set Stroke All Fonts PDF Option
    
    Dim PDFOptionCreate_SAF As New CCpfcPDFOption
    Dim PDFOption_SAF As IpfcPDFOption
    Set PDFOption_SAF = PDFOptionCreate_SAF.Create
    PDFOption_SAF.OptionType = EpfcPDFOptionType.EpfcPDFOPT_FONT_STROKE
    Dim newArg_SAF As New CMpfcArgument
    PDFOption_SAF.OptionValue = newArg_SAF.CreateIntArgValue(EpfcPDFFontStrokeMode.EpfcPDF_STROKE_ALL_FONTS)
    Call PDF_Options.Append(PDFOption_SAF)
    
    
    ' Set Pen table Option
    
    Dim PDFOptionCreate_PEN As New CCpfcPDFOption
    Dim PDFOption_PEN As IpfcPDFOption
    Set PDFOption_PEN = PDFOptionCreate_PEN.Create
    PDFOption_PEN.OptionType = EpfcPDFOptionType.EpfcPDFOPT_PENTABLE
    Dim newArg_PEN As New CMpfcArgument
    PDFOption_PEN.OptionValue = newArg_PEN.CreateIntArgValue(True)
    
    
     ' Set COLOR_DEPTH value (Set EpfcPDF_CD_MONO to have Black & White output)
     
    Dim PDFOptionCreate_CD As New CCpfcPDFOption
    Dim PDFOption_CD As IpfcPDFOption
    Set PDFOption_CD = PDFOptionCreate_CD.Create
    PDFOption_CD.OptionType = EpfcPDFOptionType.EpfcPDFOPT_COLOR_DEPTH
    Dim newArg_CD As New CMpfcArgument
    PDFOption_CD.OptionValue = newArg_CD.CreateIntArgValue(EpfcPDFColorDepth.EpfcPDF_CD_MONO)
    Call PDF_Options.Append(PDFOption_CD)
    
    
    
    
    
    ' Set PDF EpfcPDFOPT_LAUNCH_VIEWER(Set FALSE Not to Launch Adobe reader)
    
    Dim PDFOptionCreate_LV As New CCpfcPDFOption
    Dim PDFOption_LV As IpfcPDFOption
    Set PDFOption_LV = PDFOptionCreate_LV.Create
    PDFOption_LV.OptionType = EpfcPDFOptionType.EpfcPDFOPT_LAUNCH_VIEWER
    Dim newArg_LV As New CMpfcArgument
    PDFOption_LV.OptionValue = newArg_LV.CreateBoolArgValue(False)
    Call PDF_Options.Append(PDFOption_LV)


     'Set Output PDF File Name
     
    PDFExportInstr.FilePath = "D:\IDT\DATA_EXPORT\2DPDF\" & oModel.FullName & ".pdf"
    PDFExportInstr.Options = PDF_Options
    
    Call oModel.Export(PDFExportInstr.FilePath, PDFExportInstr)
    
        
    'Disconnect with Creo
    conn.Disconnect (2)
    
    'Cleanup
    Set asynconn = Nothing
    Set conn = Nothing
    Set Session = Nothing
    Set oModel = Nothing
    
    
End Sub
  

    '

---

2d pdf file export V1.xlsm

0.02MB

 

 비즈니스 문의 : lionkk@idt21c.com

---