Hallo Christoph,
Ein Collection-Objekt ist eine Sammlung gleicher Objekte. Du hast bestimmt schon gemerkt, dass es z.B. das Objekt PlanarSketches und das Objekt PlanarSketch gibt. Eine Collection ist ein Array, also eigentlich PlanarSketches()
Nun, Sketches beinhaltte alle Skizzen und Du kannst durch diese durch iterieren:
Private Sub findSketches()
Dim oApp As Inventor.Application
Set oApp = ThisApplication
Dim oDoc As PartDocument
Set oDoc = oApp.ActiveDocument
Dim oSketches As PlanarSketches
Set oSketches = oDoc.ComponentDefinition.Sketches
' Anzahl der Skizzen
MsgBox oSketches.count
Dim oSketch As PlanarSketch
' Variante 1: Iteration durch alle Skizzen
For Each oSketch In oSketches
MsgBox oSketch.Name
Next oSketch
' Variante 2: Iteration durch alle Skizzen: Objekt oSketch hierzu nicht noetig !
For i = 1 To oSketches.count
MsgBox oSketches.Item(i).Name
Next i
End Sub
Innerhalb der einzelnen PlanarSketch _ Objekte hast Du dann weitere Collections, z.B. SketchLines usw. entsprechend dann SketchLine
Jetzt sollten die letzten Klarheiten beseitigt sein.
Gruesse,
Paul
www.morecam.ch/cad.htm
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP