---

Ich versuche seit längerem folgendes Problem zu lösen:

Ich habe schweissnähte in einer Assembly die ich mit vba unterdrücken möchte, von hand geht es.

Ich habe es mit folgenden code versucht:

Public Sub suppressedWelding(name As String)
' This assumes the active document is an assembly
  Dim aDoc As Inventor.AssemblyDocument
  Set aDoc = getDocFromName("swb.iam")
  Dim aWeldDef As WeldmentComponentDefinition
  Set aWeldDef = aDoc.ComponentDefinition
  Dim aWeld As CosmeticWeld
  For Each aWeld In aWeldDef.Welds.CosmeticWelds
  If aWeld.name = name Then
    aWeld.Suppressed = true
  End If
  Next
End Sub

Leider kennt Inventor bei diesem Objekt die Eigenschaft suppressed nicht!!!

Gibt es einen anderen weg oder wurde diese Eigenschaft einfach vergessen??

wäre ja nicht das erste mal!!!

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