---

Hallo Forum,

ich möchte gerne explizit eine View ins Show / NoShow stellen.
Der Recorder würde ein VisPropertySet aufnehmen.
Kann ich meine View zu einem Set dazu addieren?
(Ich möchte meine Views später einmal rekursiv durchlaufen.)

Mein Code:
Sub CATMain()

Dim oDoc As Document
Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
Set oSheet = oSheets.Item(1)
Set oViews = oSheet.Views
Dim myview
Set myview = oViews.Item(3)

myview.GetViewName MyPrefix, MyIdent, MySuffix

Dim Selection, VisPropertySet
Set Selection = CATIA.ActiveDocument.Selection
Set VisPropertySet = myview 'object unterstützt diese Methode nicht
VisPropertySet.SetShow 0

End Sub

Vielleicht hat jemand einen Ansatz für mich.

Vielen Dank vorab

Norbert

[Diese Nachricht wurde von cmb am 06. Jul. 2010 editiert.]

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

---

Servus
Du musst die View in die Selection packen: (ungetestet)

Code:

---

Dim Selection, VisPropertySet
Set Selection = CATIA.ActiveDocument.Selection
selection.clear
Selection.add myview
Selection.visproperties.SetShow 0

---

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank funktioniert 100%

LG

Norbert

------------------
V5R18
Catia + Smarteam

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