Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen
Dim oDrawDoc As DrawingDocument oDrawDoc = ThisApplication.ActiveDocument
Dim oSketchedSymbolDef As SketchedSymbolDefinition For Each oSketchedSymbolDef In oDrawDoc.SketchedSymbolDefinitions If oSketchedSymbolDef.Name = "Test" Then oSketchedSymbolDef.Delete Else End If Next
Gruß
Stefan
Stefan Verbeek
Mitarbeiter Support bei
Ups, ja sorry. Löscht die skizzierte Symbole aus den Zeichnungsressourcen wenn es nicht in der Zeichnung verwendet wurde.
Melde mich gleich wieder.
Stefan Verbeek
Mitarbeiter Support bei
Hallo @s.cott,
hier einmal ein Ansatz für iLogic und VBA.
Bei sSymbolName gibst Du den genauen Namen des skizzierten Symbols an, das Du löschen möchtest.
iLogic:
'Name des zu löschenden Symbols
Dim sSymbolName As String = "Test-Symbol"
'aktuelles Blatt holen
Dim oSheet As Sheet = ActiveSheet.Sheet
'temporäres Symbol
Dim tmpSym As SketchedSymbol
'Jedes Symbol auf dem Blatt durchgehen und anhand des Namens identifizieren
'dann löschen
For Each tmpSym In oSheet.SketchedSymbols
If tmpSym.Name = sSymbolName Then tmpSym.Delete
Next
Das wäre der entsprechende Code für ein Makro / VBA - falls das jemand als Makro machen möchte.
Sub IDW_DeleteSketchedSymbol()
'Name des zu löschenden Symbols
Dim sSymbolName As String
sSymbolName = "Test-Symbol"
'aktuelle Zeichnung holen
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
'temporäres Symbol
Dim tmpSym As SketchedSymbol
'Jedes Symbol auf dem Blatt durchgehen und anhand des Namens identifizieren
'dann löschen
For Each tmpSym In oDoc.ActiveSheet.SketchedSymbols
If tmpSym.Name = sSymbolName Then tmpSym.Delete
Next
End Sub
Hattest Du etwas in dieser Richtung gesucht?
Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.
Dennis Ossadnik
Senior Technical Support Specialist
Wieder zu spät.
Dim oDrawDoc As DrawingDocument oDrawDoc = ThisApplication.ActiveDocument Dim oSymbols As SketchedSymbols oSymbols = oDrawDoc.ActiveSheet.SketchedSymbols For Each Item In oSymbols If Item.Name = "test" Then Item.Delete End If Next
Stefan Verbeek
Mitarbeiter Support bei
