View difference between Paste ID: yp0XnQCD and qRL2FGD3

 //////////////////////// IPT: Update (Nach dem Öffnen) ////////////////////////
 
-iLogicVb.UpdateWhenDone = True
+
 If Val(durchmesser) <> 0 Then
 	If Val(durchmesser) <=  150  Then durchmesser = 150
 	durch = Val(durchmesser)
 	ThisDoc.Save()
 	Updated = True
-	ThisDoc.Save()
+	RuleParametersOutput()
 	InventorVb.DocumentUpdate()
 	' Zeichnung öffnen
 	ThisDoc.Launch("Schellentest.idw")
-//////////////////////// IPT: Update (Nach dem Speichern) ////////////////////////
+	ThisApplication.ActiveDocument.Save()
 End If
 
-ThisDoc.Launch("Schellentest.idw")
+
-ThisApplication.ActiveDocument.Save()
+
 
 If  Parameter("Schellentest.ipt.Updated") = True Then
 	Parameter("Schellentest.ipt.Updated") = False
 	Auftrag = InputBox("Neuer Auftrag", "Speichern unter", "Nummer?")
-iLogicVb.UpdateWhenDone = True
+	auftrag = Val(Auftrag)
 	If auftrag <> 0 Then
-Auftrag = InputBox("Nummer?", "Neuer Auftrag", "")
+		Parameter("Schellentest.ipt.Nummer") = auftrag
-auftrag = Val(Auftrag)
+		' Zweite Aktualisierung, wahrscheinlich unnötig
 		RuleParametersOutput()
-	Parameter("Schellentest.ipt.Nummer") = auftrag
+		InventorVb.DocumentUpdate()
-	ActiveSheet = ThisDrawing.Sheet("Blatt:1")
+		ActiveSheet = ThisDrawing.Sheet("Blatt:1")
-	ActiveSheet = ThisDrawing.Sheet("Blatt:2")
+		ActiveSheet = ThisDrawing.Sheet("Blatt:2")
 		' Dateien generieren
-	ThisDoc.Launch("Schellentest.ipt")
+		iLogicVb.RunRule("Save")
 	End If
-	ThisApplication.ActiveView.Update()
+
 
-	updated = True
+
-	ThisDoc.Launch("Schellentest.idw")
+//////////////////////// IDW: Save (Durch "Update" aufgerufen) ////////////////////////
 
-	ThisApplication.ActiveView.Update()
+
-	ActiveSheet = ThisDrawing.Sheet("Blatt:1")
+
 auftrag = Parameter("Schellentest.ipt.Nummer")
 
 If auftrag <> 0 Then
-//////////////////////// IDW: Generate (Nach dem Speichern) ////////////////////////
+          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)"
-If updated = True And auftrag <> 0 Then
+        FileCopy(ThisDoc.PathAndFileName(False) & ".ipt", fname & ".ipt")
-	updated = False
+        FileCopy(ThisDoc.PathAndFileName(False) & ".idw", fname & ".idw")
-	ActiveSheet = ThisDrawing.Sheet("Blatt:1")
+
-	ActiveSheet = ThisDrawing.Sheet("Blatt:2")
+        ' Translator Optionen
 		Dim oDocument As Document
-	If Len(Dir(ThisDoc.Path & "\Test\" & auftrag, vbDirectory)) = 0 Then
+        oDocument = ThisApplication.ActiveDocument
-		MkDir(ThisDoc.Path & "/Test/" & auftrag)
+        oContext = ThisApplication.TransientObjects.CreateTranslationContext
         oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
-
+        oOptions = ThisApplication.TransientObjects.CreateNameValueMap
-	' IPT und IDW
+        oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
-	fname = ThisDoc.Path & "\Test\" & auftrag & "\Schelle " & auftrag & " (" & durch & " mm)"
+
-	FileCopy(ThisDoc.PathAndFileName(False) & ".ipt", fname & ".ipt")
+        ' PDF
-	FileCopy(ThisDoc.PathAndFileName(False) & ".idw", fname & ".idw")
+        PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
-
+        If PDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
-	' Translator Optionen
+                oOptions.Value("All_Color_AS_Black") = 1
-	oDocument = ThisApplication.ActiveDocument
+                oOptions.Value("Remove_Line_Weights") = 1
-	oContext = ThisApplication.TransientObjects.CreateTranslationContext
+                oOptions.Value("Vector_Resolution") = 400
-	oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
+                oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
-	oOptions = ThisApplication.TransientObjects.CreateNameValueMap
+        End If
-	oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
+        oDataMedium.FileName = fname & ".pdf"
-
+        PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions,oDataMedium)
-	' PDF
+
-	PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
+        ' DXF
-	If PDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
+		oOptions = ThisApplication.TransientObjects.CreateNameValueMap
-		oOptions.Value("All_Color_AS_Black") = 1
+        DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
-		oOptions.Value("Remove_Line_Weights") = 1
+        If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
-		oOptions.Value("Vector_Resolution") = 400
+                'strIniFile = "C:\temp\dxfout.ini"
-		oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
+                'oOptions.Value("Export_Acad_IniFile") = strIniFile
         End If
-	oDataMedium.FileName = fname & ".pdf"
+        oDataMedium.FileName =  ThisDoc.PathAndFileName(False) & ".dxf"
-	PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions,oDataMedium)
+       	'DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
-
+                ' Aufräumen
-	' DXF
+                'FileCopy(ThisDoc.PathAndFileName(False) & "_Blatt_2.dxf", fname & ".dxf")
-	DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
+                'Kill(ThisDoc.PathAndFileName(False) & "_Blatt_1.dxf")
-	If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
+                'Kill(ThisDoc.PathAndFileName(False) & "_Blatt_2.dxf")
-		strIniFile = "C:\temp\dxfout.ini"
+
-		oOptions.Value("Export_Acad_IniFile") = strIniFile
+        ' Anzeigen
         Process.Start("explorer.exe", ThisDoc.Path & "\Test\" & auftrag)
-	oDataMedium.FileName =  ThisDoc.PathAndFileName(False) & ".dxf"
+