dwg to pdf ilogic help

[Anonymous]

hi guys. i have an issue i think ilogic can help me with but i am unsure.

i have a dwg with 20 pages and i need to export all sheets to pdf but i need each sheet to be on its own pdf file. so i will end up with 20 pdfs at the end.

also on eash sheet i have a drawing expresion of "dwg_name" and this is what i want to call each pdf file.

can anyone help me or point me in the correct direction thanks

[bradeneuropeArthur]

Hi.

Use this code and first activate the sheet then export each sheet with a different pdf name like sheet 1 sheet 2 etc till 20.

[bradeneuropeArthur]

forums.autodesk.com/t5/inventor-customization/pdfaddin-option-quot-launch-viewer-quot-true-or-false-not-set-in/td-p/7604075

I am not at my desk. Later I can be more specific 

[bradeneuropeArthur]

I have written and checked the following code for you, for VBA and Vb.net:

Per sheet 1 pdf file in your C:drive:

Public Sub PublishPDF()
    ' Get the PDF translator Add-In.
    Dim PDFAddIn As TranslatorAddIn
    Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")

    'Set a reference to the active document (the document to be published).
    Dim oDocument As DrawingDocument
    Set oDocument = ThisApplication.ActiveDocument

    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = kFileBrowseIOMechanism

    ' Create a NameValueMap object
    Dim oOptions As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap

    ' Create a DataMedium object
    Dim oDataMedium As DataMedium
    Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    Dim sh As Sheet
    
    Dim i As Integer
    i = 0
For Each sh In oDocument.Sheets

On Error Resume Next
    i = i + 1
    
    Set sh = oDocument.Sheets.Item(i)
    
   
    If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then

        oOptions.Value("All_Color_AS_Black") = True
        oOptions.Value("Sheet_Range") = i

    End If

    'Set the destination file name
    oDataMedium.FileName = "C:\test" & i & ".pdf"

    'Publish document.
    Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
    If Error Then
    Err.Clear
    End If
    Next
End Sub

 For I-logic the following Code:

'Public Sub PublishPDF()
    ' Get the PDF translator Add-In.
    Dim PDFAddIn As TranslatorAddIn
    PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")

    'Set a reference to the active document (the document to be published).
    Dim oDocument As DrawingDocument
    oDocument = ThisApplication.ActiveDocument

    Dim oContext As TranslationContext
    oContext = ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = kFileBrowseIOMechanism

    ' Create a NameValueMap object
    Dim oOptions As NameValueMap
    oOptions = ThisApplication.TransientObjects.CreateNameValueMap

    ' Create a DataMedium object
    Dim oDataMedium As DataMedium
    oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    Dim sh As Sheet
    
    Dim i As Integer
    i = 0
For Each sh In oDocument.Sheets

    i = i + 1
    
    sh = oDocument.Sheets.Item(i)
    
   
    If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then

        oOptions.Value("All_Color_AS_Black") = True
        oOptions.Value("Sheet_Range") = i

    End If

    'Set the destination file name
    oDataMedium.FileName = "D:\test" & i & ".pdf"

    'Publish document.
    Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)

    Next
'End Sub

If you have any questions please ask....

[bradeneuropeArthur]

Sorry I have made a mistake;

The code is not printing all sheets separate.

The following code does!

'Public Sub PublishPDF()
    ' Get the PDF translator Add-In.
    Dim PDFAddIn As TranslatorAddIn
    PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")

    'Set a reference to the active document (the document to be published).
    Dim oDocument As DrawingDocument
    oDocument = ThisApplication.ActiveDocument

    Dim oContext As TranslationContext
    oContext = ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = kFileBrowseIOMechanism

    ' Create a NameValueMap object
    Dim oOptions As NameValueMap
    oOptions = ThisApplication.TransientObjects.CreateNameValueMap

    ' Create a DataMedium object
    Dim oDataMedium As DataMedium
    oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    Dim sh As Sheet
    
    Dim i As Integer
    i = 0
For Each sh In oDocument.Sheets
Try
	Catch
		End Try
    i = i + 1
    
    sh = oDocument.Sheets.Item(i)
    
   
    If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then

        oOptions.Value("All_Color_AS_Black") = True
        oOptions.Value("Sheet_Range") = PrintRangeEnum.kPrintSheetRange'
	oOptions.Value ("Custom_Begin_Sheet") = i
        oOptions.Value("Custom_End_Sheet")=i
		

    End If

    'Set the destination file name
    oDataMedium.FileName = "D:\test" & i & ".pdf"

    'Publish document.
    Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)

    Next
'End Sub