---

Hallo!
Ich habe ein Makro geschrieben, das die Positionierungen verschiedener geometrischer Komponenten zueinander überprüft. Um die Visualisierung bei einem gefundenen Fehler zu verbessern, möchte ich gerne die fehlerhafte Komponente (die dann als Referenz vorliegt) während der Laufzeit des Makros als selektiert (also im Strukturbaum orange unterlegt) anzeigen lassen...

Habt ihr eine Idee oder einen Vorschlag wie das funktioniereun könnte?

Danke,
achulio

[Diese Nachricht wurde von achulio am 05. Sep. 2005 editiert.]

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

---

Beispiel.zip

Probier es mal mit der Selection Funktion
In der Zipdatei ist das vollständige Beispiel

'****** Beispiel *******
Dim mySelection As Selection
Set mySelection = partDocument1.Selection
mySelection.Clear
Dim ox As Object
Set ox = hybridBody1.HybridShapes.GetItem(reference1.DisplayName)
mySelection.Add ox

(Getestet unter W2k R12 SP5)

------------------
Mit freundlichem Gruß von Carl Tenschert

[Diese Nachricht wurde von CTenschert am 07. Sep. 2005 editiert.]

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

---

Hallo CTenschert,

Das ist eine prima Idee; ich habe sie nun folgendermaßen umgesetzt, so dass auch die Geometrie im Bauteil rot eingefärbt wird:

*************************************************
'highlight malpositioned Object
CATIA.ActiveDocument.Selection.Clear
CATIA.ActiveDocument.Selection.Add(MyObject)
Set MyVisProperties = CATIA.ActiveDocument.Selection.VisProperties
MyVisProperties.SetRealColor 255, 0 ,0 ,0

msgbox "Fehler in ... "

MyVisProperties.SetRealColor 255, 255 ,255 ,0
CATIA.ActiveDocument.Selection.Clear

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