---

part.jpg

Hallo zusammen,

mal wieder eine sicherlich ganz einfache Frage zum Thema Makroprogrammierung. Ich komme mit der VisProperty nicht so richtig klar.
Ziel ist in einem geöffneten Part den Body.2 auszublenden.

Folgendes Skript habe ich dazu erzeugt:

Sub CATMain()
Dim MyPart As Part
Set MyPart = CATIA.ActiveDocument.Part
Dim selection1 As Selection
set selection1 = MyPart.Bodies.Item("Body.2")
Dim Eigenschaft As VisProperties
Set Eigenschaft = selection1.VisProperties
Eigenschaft.SetShow 1
MyPart.update
End Sub

Beim Durchlauf bricht das Makro aber immer in der Zeile "Set Eigenschaft = selection1.VisProperties" ab mit der Meldung
"Das Objekt unterstützt die Eigenschaft oder Methode nicht".

Die Strktur des Parts lässt sich in angehängtem Bild erkennen.

Was mache ich falsch?

Gruß, zizo

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

---

Hallo Zizo,
also der Befehl is irgendwie komisch aber da mussnoch was hinten ran:
Selection.VisProperties.SetShow CatVisProperty{No}ShowAttr=true bzw false
PS: lass mal Dim ... As VisProperties weg
MfG Ronny

[Diese Nachricht wurde von Bartleby am 14. Sep. 2004 editiert.]

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

---

Hallo Ronny!

Sehr gut möglich, dass der Befehl komisch ist. Stecke wie gesagt noch in den Kinderschuhen hinsichtlich Makroprogrammierung.

Habe das Problem jetzt so gelöst:

Sub CATMain()

Dim MyPart As Part
Set MyPart = CATIA.ActiveDocument

Dim selection1 As Selection
set selection1 = MyPart.Selection

selection1.Search ".Body.Name = Body.2;Alle")
Set Eigenschaft = selection1.VisProperties
Eigenschaft.SetShow 1

End Sub

Keine Ahnung, ob das jetzt weniger komisch ist, aber es funzt ;-)

Trotzdem vielen Dank fÃŒr deine hIlfe.

Gruß, zizo

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