Zeichnung automatisch speichern

[alessandro.brandestini]

Ich benutze folgenden Code um die Zeichnung und das dxf daraus automatisch zu speichern, wenn ein ipt gespeichert wird.

 Sub Main()
 
    Dim oDoc As Inventor.Document
    oDoc = ThisApplication.ActiveDocument
   
    oDoc.Update
   	
   oPath = ThisDoc.PathAndFileName(False)
      
	Dim oDrawingDoc As Inventor.Document
	If oDoc.DocumentType = DocumentTypeEnum.kDrawingDocumentObject Then
		GoTo here
	Else
	If System.IO.File.Exists(oPath & ".idw") Then
    oDrawingDoc = ThisApplication.Documents.Open(oPath & ".idw", True)
	 
 	InventorVb.DocumentUpdate()
	oDrawingDoc.Save2
    'oDrawingDoc.Close(True)
	
	Else
	End If
	End If
    here:
End Sub

Im Ereignisauslöser / Zeichnungen / Nach dem Speichern

ActiveSheet = ThisDrawing.Sheet("Blatt:2")

If ActiveSheet.TitleBlock Is Nothing Then
else
'Pfad & Dateinamen auslesen lassen
path_and_name = ThisDoc.PathAndFileName(False) ' without extension
'Dokument als DXFverntlichen
ThisDrawing.Document.StylesManager.Layers("Blechbiegung - Mittellinien(DIN)").Visible = False
ThisDrawing.Document.StylesManager.Layers("Gewinde(DIN)").Visible = False
ThisDoc.Document.SaveAs(path_and_name & ".DXF", True)
ActiveSheet = ThisDrawing.Sheet("Blatt:1")
ThisDrawing.Document.StylesManager.Layers("Blechbiegung - Mittellinien(DIN)").Visible = True
ThisDrawing.Document.StylesManager.Layers("Gewinde(DIN)").Visible = True

End If

 Die Abwicklung muss auf dem Blatt:2 sein oder der Teil des Codes muss angepasst werden.

Verschiedene iLogics im Ereignisauslöser kann aber zu Problemen führen.

Wie kann man abfragen in iLogic einbauen?

[martin_winkler]

Welche Probleme in dem iLogic Ereignisauslöser hast du?

Was meinst du mit "Abfragen einbauen"?

[alessandro.brandestini]

Bei alten Zeichnungen hat es kein Blatt2 für die Abwicklung, dann kommt eine Fehlermeldung schnell wegklicken und ok, also halb so wild.
Aber ich würde gerne verstehen, wie ich herausfinde solche Dinge abzufragen.
Oder als alternative, vor dem auslösen eine Frage ala: Wollen Sie die Regel ausführen? -> JA/NEIN

Vielen Dank im Voraus

Gruss