iLogic

//////////////////////// IPT: Update (Nach dem Öffnen) ////////////////////////

iLogicVb.UpdateWhenDone = True
durchmesser = InputBox("Durchmesser (mindestens 150mm)", "Schelle ändern", durch & "mm")
If Val(durchmesser) <> 0 Then
    If Val(durchmesser) <=  150  Then durchmesser = 150
    durch = Val(durchmesser)
    InventorVb.DocumentUpdate()
    ThisDoc.Save()
End If


//////////////////////// IPT: Update (Nach dem Speichern) ////////////////////////


ThisDoc.Launch("Schellentest.idw")
ThisApplication.ActiveDocument.Save()


//////////////////////// IDW: Update (Vor dem Speichern) ////////////////////////

iLogicVb.UpdateWhenDone = True

Auftrag = InputBox("Nummer?", "Neuer Auftrag", "")
auftrag = Val(Auftrag)
If auftrag <> 0 Then
    Parameter("Schellentest.ipt.Nummer") = auftrag
    ActiveSheet = ThisDrawing.Sheet("Blatt:1")
    ActiveSheet = ThisDrawing.Sheet("Blatt:2")

    ThisDoc.Launch("Schellentest.ipt")
    InventorVb.DocumentUpdate()
    ThisApplication.ActiveView.Update()

    updated = True
    ThisDoc.Launch("Schellentest.idw")
    InventorVb.DocumentUpdate()
    ThisApplication.ActiveView.Update()
    ActiveSheet = ThisDrawing.Sheet("Blatt:1")
End If


//////////////////////// IDW: Generate (Nach dem Speichern) ////////////////////////


durch = Parameter("Schellentest.ipt.durch")
auftrag = Parameter("Schellentest.ipt.Nummer")

If updated = True And auftrag <> 0 Then
    updated = False
    ActiveSheet = ThisDrawing.Sheet("Blatt:1")
    ActiveSheet = ThisDrawing.Sheet("Blatt:2")

    If Len(Dir(ThisDoc.Path & "\Test\" & auftrag, vbDirectory)) = 0 Then
        MkDir(ThisDoc.Path & "/Test/" & auftrag)
    End If

    ' IPT und IDW
    fname = ThisDoc.Path & "\Test\" & auftrag & "\Schelle " & auftrag & " (" & durch & " mm)"
    FileCopy(ThisDoc.PathAndFileName(False) & ".ipt", fname & ".ipt")
    FileCopy(ThisDoc.PathAndFileName(False) & ".idw", fname & ".idw")

    ' Translator Optionen
    oDocument = ThisApplication.ActiveDocument
    oContext = ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
    oOptions = ThisApplication.TransientObjects.CreateNameValueMap
    oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    ' PDF
    PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
    If PDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
        oOptions.Value("All_Color_AS_Black") = 1
        oOptions.Value("Remove_Line_Weights") = 1
        oOptions.Value("Vector_Resolution") = 400
        oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
    End If
    oDataMedium.FileName = fname & ".pdf"
    PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions,oDataMedium)

    ' DXF
    DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
    If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
        strIniFile = "C:\temp\dxfout.ini"
        oOptions.Value("Export_Acad_IniFile") = strIniFile
    End If
    oDataMedium.FileName =  ThisDoc.PathAndFileName(False) & ".dxf"
    DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
        ' Aufräumen
        FileCopy(ThisDoc.PathAndFileName(False) & "_Blatt_2.dxf", fname & ".dxf")
        Kill(ThisDoc.PathAndFileName(False) & "_Blatt_1.dxf")
        Kill(ThisDoc.PathAndFileName(False) & "_Blatt_2.dxf")

    ' Anzeigen
    Process.Start("explorer.exe", ThisDoc.Path & "\Test\" & auftrag)
End If