---

Hallo Forum,
ich möchte im Assembly den Renderstyle rauslesen; solange der Renderstyle nicht "Wie Material" ist,  funktioniert dies einwandfrei.
Doch bei "Wie Material" bricht die debug.print Funktion ab. Objektvariable nicht definiert! Hat jemand eine Idee?
Gruß
Seher

Public Sub WieMaterial()
Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument
Dim oOcc As ComponentOccurrence
Dim ende As Integer
ende = oAsmDoc.ComponentDefinition.Occurrences.Count
For i = 1 To ende
    Set oOcc = oAsmDoc.ComponentDefinition.Occurrences.Item(i)
    Debug.Print oOcc.RenderStyle.name
Next i
End Sub

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

---

Hallo Andreas,

offensichtlich kommt's zu einem Fehler, wenn kein RenderStyle gesetzt ist. So kannst Du's abfangen:

Public Sub WieMaterial()

  Dim oAsmDoc As AssemblyDocument
  Set oAsmDoc = ThisApplication.ActiveDocument
  Dim oOcc As ComponentOccurrence

  For i = 1 To oAsmDoc.ComponentDefinition.Occurrences.Count
 
    Set oOcc = oAsmDoc.ComponentDefinition.Occurrences.Item(i)
   
    On Error Resume Next
    Debug.Print oOcc.RenderStyle.Name
   
    If Err Then
      Err.Clear
      Debug.Print "*************************** FEHLER: KEIN MATERIAL GESETZT"
    End If
   
  Next i
 
End Sub

Gruesse,

Paul

www.morecam.ch/cad.htm

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