Thema "Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen" in Inventor - Deutsches Forum

Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen

s.cott — Thu, 01 Mar 2018 12:42:46 GMT

Hallo zusammen,

ich möchte über eine ilogic Regel ein bestimmtes in einer idw zu sehendes Skizzensymbol löschen.

Kann hier jemand weiterhelfen?

Grüße S

@s.cott,

Die Themenüberschrift wurde zum besseren Auffindbarkeit editiert von Dennis.Ossadnik
Original: ilogic skizzensymbol löschen

Betreff: Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen

S_Verbeek — Thu, 01 Mar 2018 12:43:18 GMT

 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

Betreff: Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen

s.cott — Thu, 01 Mar 2018 12:43:40 GMT

Danke für die Antwort das endet leider mit

Fehler in Regel: Regel7 in Dokument: Zeichnung4.idw

Unbekannter Fehler (Ausnahme von HRESULT: 0x80004005 (E_FAIL))

scheint aber am nahmen des Symbols zu liegen 🙂

Die Regel löscht das ganze Symbol aus der Zeichnung ich möchte jedoch nur die bereits auf des Blatt gesetzten Symbole löschen

Grüße

Betreff: Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen

S_Verbeek — Thu, 01 Mar 2018 12:43:57 GMT

Ups, ja sorry. Löscht die skizzierte Symbole aus den Zeichnungsressourcen wenn es nicht in der Zeichnung verwendet wurde.

Melde mich gleich wieder.

Betreff: Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen

Dennis.Ossadnik — Thu, 01 Mar 2018 12:44:13 GMT

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.

Betreff: Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen

S_Verbeek — Thu, 01 Mar 2018 12:44:28 GMT

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

Betreff: Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen

S_May — Thu, 01 Mar 2018 12:44:43 GMT

Das muss ich jetzt mal schreiben,

Der @Dennis.Ossadnik hat immer eine Lösung auf Lager wenn es um ilogic geht, ein ganz großes Kompliment muss da mal ausgeprochen werden!

Hut ab...

Betreff: Inventor (iLogic/VBA): Skizziertes Symbol in Zeichnung löschen

j_theuermann — Thu, 04 Oct 2018 12:58:03 GMT

Hallo.

Super, das hilft mir auch schon mal. Aber ich hätte auch gern die Möglichkeit, dass ich ein Skizzensymbol einblenden kann. Gibt es dafür auch was feines?