---

Hallo,

Ich versuche eine Bohrungsskizze auszublenden, die ich direkt davor erstellt habe.

Dim oVisPropSet As VisPropertySet
Dim oSel As Selection

oSel = Hole1.Sketch
oVisPropSet = oSel.VisProperties
oVisPropSet.SetShow(1)

Der Code führt zur Fehlermeldung: "Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Schnittstellentyp "INFITF.Selection" umgewandelt werden."

Wie wandelt man denn das Objekt  zu einer Infinitf.Selection um ?

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

---

Servus
Willkommen im Forum.
Du musst die Skizze zur Selektion hinzufügen und dann ausblenden (siehe auch Doku) zB:

Code:

---

oSel.Clear
osel.Add Hole1.Sketch
oVisPropSet = oSel.VisProperties
oVisPropSet.SetShow(1)

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ich erhalte jetzt eine NullReferenceException bei oSel.Clear(), da der Objektverweis nicht auf eine Objektinstanz festgelegt ist.

Wenn ich die erste Zeile auskommentiere(Ich cleare etwas, was leer ist), erhalte ich den gleichen Fehler in der nächsten Zeile.

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

---

Servus
Und was ist bei dir oSel? fehlt da noch so was wie:

Code:

---

Set oSel = CATIA.ActiveDocument.Selection 'Beispiel in VBA

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Moin,

Genau diese Zeile hatte ich vergessen, jetzt wird die Bohrungsskizze erfolgreich ausgeblendet.

Vielen Dank für die Hilfe.

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