---

Ich brauche ein vba code, das alle erzeugten Schweißsymbole in eine Zeichnung automatisch löschen kann.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/adding-welding-symbol-through-api/td-p/5690207

Man müsste klären, ob diese Symbole mittlerweile in der der API enthalten sind. Im Moment habe ich keinen IV zur Hand, um das selbst zu prüfen.

------------------
Gruß KraBBy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Willkommen im Forum 

Schweißsymble werden in der API weiterhin nicht unterstützt. Ein automatisiertes Löschen ist so nicht mnöglich.
Müssen die Symbole unbedingt gelöscht werden oder würde unsichtbar schalten ausreichen? Unsichtbar schalten für alle Ansichten auf dem aktiven Blatt sollte so möglich sein:

Code:

---

Option Explicit

Private Sub SwitchWeldSymbolsVis()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = oApp.ActiveDocument

Dim oDrawView As DrawingView

Dim oSS As SelectSet
Set oSS = oDrawDoc.SelectSet

For Each oDrawView In oDrawDoc.ActiveSheet
    Call oSS.Clear
    Call oSS.Select(oDrawDoc.ActiveSheet.DrawingViews(1))

    Dim oCD As ControlDefinition
    Set oCD = oApp.CommandManager.ControlDefinitions.Item("DrawingWeldAnnotationVisibilityInViewCtxCmd")

    Call oCD.Execute
Next

End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schweissymbol.PNG

ich danke dir für dir  Antwort. die Symbole Müssen nicht unbedingt gelöscht. es würde  mir ausreichen, wenn die unsichtbar sind.
ich habe mit dem Code versucht aber ich bekamm den Laufzeitfehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht) bei Zeile:For Each oDrawView In oDrawDoc.ActiveSheet (sieh anhang)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Sorry, da fehlt etwas. Die Zeile

Code:

---

For Each oDrawView In oDrawDoc.ActiveSheet

---

bitte ersetzen mit:

Code:

---

For Each oDrawView In oDrawDoc.ActiveSheet.DrawingViews

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sub SwitchWeldSymbolsVis()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = oApp.ActiveDocument

Dim oDrawView As drawingView

Dim oSS As SelectSet
Set oSS = oDrawDoc.SelectSet

For Each oDrawView In oDrawDoc.ActiveSheet.DrawingViews
    Call oSS.Clear
    Call oSS.Select(oDrawDoc.ActiveSheet.DrawingViews(1))

    Dim oCD As ControlDefinition
    Set oCD = oApp.CommandManager.ControlDefinitions.Item("DrawingWeldAnnotationVisibilityInViewCtxCmd")

    Call oCD.Execute
Next

    ' Aktualisieren der Zeichnung
    oDrawDoc.Update
End Sub

ich dabke dir für die Hilfe ☺
ich habe jetzt damit versucht. Das Code zeigt jetzt keine Fehler mehr und die Ansichten werden markiert und irgendwie durchgesucht aber die Schweißsymbole werden nicht unsichbar.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In dieser Zeile ist auch noch was zu tun:

Code:

---

Call oSS.Select(oDrawDoc.ActiveSheet.DrawingViews(1))

---

sollte sein

Code:

---

Call oSS.Select(oDrawView)

---

Sonst wird immer nur die erste Ansicht markiert...

------------------
Gruß KraBBy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

@KraBBy
Stimmt. Das passiert wenn man zwischen Tür und Angel noch eben schnell die Schleife ergänzt und nicht testet. Danke 

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sub SwitchWeldSymbolsVis()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = oApp.ActiveDocument

Dim oDrawView As drawingView

Dim oSS As SelectSet
Set oSS = oDrawDoc.SelectSet

For Each oDrawView In oDrawDoc.ActiveSheet.DrawingViews
    Call oSS.Clear
    Call oSS.Select(oDrawView)

    Dim oCD As ControlDefinition
    Set oCD = oApp.CommandManager.ControlDefinitions.Item("DrawingWeldAnnotationVisibilityInViewCtxCmd")

    Call oCD.Execute
Next

    ' Aktualisieren der Zeichnung
    oDrawDoc.Update
End Sub

Hallo @KraBBy

Du hast Recht. ich habe die entsprechend aktualisiert jetzt werden alle Ansichte gewählt aber leider die Schweißsymbole nicht unsichtbar eingestellt

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

kann es vielleicht darin liegen, dass ich die Inventor 2023 verwende? da ich mitbekommen habe dass ein zugriff auf die schweißsybole erst ab Inventor 2024 möglich ist.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Der erstellte Code schaltet die Schweisskommentare unsichtbar, nicht die Schweiss-Symbole

Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hast du Ahnung wie ich die Schweißsymbole ausblinden kann (statt die Schweisskommentare)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Dann probiere es mal damit:

Code:

---

Sub SwitchWeldSymbolsVis()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = oApp.ActiveDocument

Dim oDrawView As DrawingView

Dim oSS As SelectSet
Set oSS = oDrawDoc.SelectSet

For Each oDrawView In oDrawDoc.ActiveSheet.DrawingViews
    Call oSS.Clear
    Call oSS.Select(oDrawView)

    Dim oCD As ControlDefinition
    ' Schweißkommentare
    'Set oCD = oApp.CommandManager.ControlDefinitions.Item("DrawingWeldAnnotationVisibilityInViewCtxCmd")
   
    ' Modellschweißsymbole
    Set oCD = oApp.CommandManager.ControlDefinitions.Item("DLxWeldSymbolVisibilityCmd")
   
    Call oCD.Execute
Next

End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin rkauskh,

ich danke dir für die Rückmeldung. leider hat das auch nicht geklappt. hast du es probiert?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Ja, hab ich probiert. Ich habe eine Schweißbaugruppe erzeugt und dort eine Kehlschweißnaht zwischen zwei Bauteilen eingefügt. Im Dialog für die Schweißnaht habe ich das Häkchen bei "Schweißsymbol erzeugen" gesetzt. In der Zeichnung habe ich dann eine Erstansicht der Schweißbaugruppe erzeugt und die Modellschweißsymbole abgerufen. Mit dem Makro kann ich jetzt die Schweißsymbole in der Zeichnung unsichtbar/sichtbar schalten.

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP