---

Hallo!

Ich versuche alle Entity Objekte zu bekommen, die zu einer Skizzenbeziehung gehören.

Das Sketch Relation Objekt bekomme ich noch, aber wenn ich
die Methode SketchRelation.GetEntities aufrufe bekomme ich nur ein Array mit Elementen vom Typ Object zurück.

Normalerweise sollte ich so doch den Zeiger auf alle Entity Objekte bekommen, die an dieser Skizzenbeziehung beteiligt sind.

Hier mal meine Code:

Private Sub Command1_Click()
Set idoc = swapp.ActiveDoc
Set objSelMgr = idoc.SelectionManager

blnRetval = idoc.Extension.SelectByID("Skizze2", "SKETCH", 0, 0, 0, False, 0, Nothing)

If blnRetval = False Then
    MsgBox "Auswahl fehlgeschlagen!"
End If

Set objFeature = objSelMgr.GetSelectedObject5(1)

Set objSKizze = objFeature.GetSpecificFeature2

Set objRelManager = objSKizze.RelationManager

vntRetval = objRelManager.GetRelations(swAll)

For i = 0 To objRelManager.GetRelationsCount(swAll) - 1

Set objSketchRel = vntRetval(i)

    vntEnt = objSketchRel.GetEntities
   
    For z = 0 To objSketchRel.GetEntitiesCount - 1
   
    'Hier ist irgendwo das Problem?
   
        Set objEnt = vntEnt(z)
        ...
        Next z
   
Next i

End Sub

Ich bin leider in der Programmierung nicht so bewandert, und habe dieses Problem mit der Typenunverträglichkeit auch schon an anderer Stelle gehabt.

Was mache ich Falsch?

Viele Grüße Mathias

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

---

Hallo Mathias.

Hmmm...schwierig, schwierig. Ich selber habe noch nie mit diesem Befehl gearbeitet, aber:
1) Empfehle ich Dir im Deklarationsteil "Option Explicit" zu setzen und alle Variablen genau zu deklarieren.

2) Eine Typenunverträglichkeit heisst, dass z.B. das Proggi einem Objekt eine Zahl zuordnen soll, was nicht geht.

3) Setze z.B. am Anfang der ersten For-Schleife einen Haltepunkt und arbeite dich mit "F8" weiter. Dann weisst du sehr genau, wo es klemmt. Das wäre auch für eine Ferndiagnose sehr hilfreich 

------------------
Gruss
Andreas
A+E Müller AG

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

---

Ich glaube, der Index startet bei 1, nicht bei 0.

For z = 1 To objSketchRel.GetEntitiesCount
  Set objEnt = vntEnt(z)
      ...
Next z

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

---

Hallo!

Danke erst einmal für die Tipps.

Option Explicit habe ich schon gesetzt, daran kann es eigentlich nicht liegen.

Ich habe die ganze Sache auch mal ohne die Schleifen mit direktem ansprechen des Elementes versucht, leider ohne Erfolg.

Das durchlaufen der einzelnen Skizzenbeziehungen funktioniert einwandfrei und das ist ja das selbe Verfahren. Wenn ich das Array "vntEnt" beobachte, werden dort auch korrekt alle Entities dieser Skizzenbeziehung angezeigt. Nur der Aufruf:
Set objEnt = vntEnt(z) geht nicht.

Viele Grüße Mathias 

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