---

Hi edger's
Wer kann mir bei VB helfen? Ich möchte mich durch die Hierarchie durchangeln bis DV2dLine und habe Lücken:

Set objApp = GetObject(, "SolidEdge.Application")
Set objDraft = objApp.ActiveDocument
Set objSheet = objDraft.ActiveSheet
Set objDrawingViews = objSheet.DrawingViews
?
?
?
Set objDV2dLine = ???

Gruss
san

------------------
SE V14 SP4

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

---

Line2D_Objecthierarchie.jpg

Hallo san,

siehe Beilage.

HTH pablo

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

---

Hi Pablo
soweit war ich auch schon, habe aber Mühe mich durchzuangeln. Meine Zuweisungen stimmen nicht. Es kommt immer die Fehlermeldung: Objektvariable oder With-Variable nicht definiert.

In der Hilfe finde ich kein Beispiel und die Objekt-Hierarchie nützt mir nichts.

san

------------------
SE V14 SP5

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

---

Hallo san,

du musst die übergeordneten Objekte mit einer Schleife durchlaufen.

Private SEDft As SolidEdgeDraft.DraftDocument
Private SESht As SolidEdgeDraft.Sheet
Private SEDV As SolidEdgeDraft.DrawingView
Private SELine2D As SolidEdgeDraft.DVLine2d

Private s() As String
Private LineCount As Long

Private Sub ListLines()
Dim s1 As String, i As Integer
  On Error Resume Next
  Set SEApp = GetObject(, "SolidEdge.Application")
  Set SEDft = SEApp.ActiveDocument
  For Each SESht In SEDft.Sheets
    For Each SEDV In SESht.DrawingViews
      For Each SELine2D In SEDV.DVLines2d
        LineCount = LineCount + 1
        ReDim Preserve s(LineCount)
        s1 = SELine2D.ModelMember.FileName
        If Err Then
          Err.Clear
          s1 = "Kein Modell vorhanden"
        End If
        s(LineCount) = SELine2D.Name & " / " & s1
      Next
    Next
  Next
End Sub

HTH pablo

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