---

Hallo Leute
Habe ein kleines Problem,
mein Code unten ermitttelt mir bei einer Kollision(intersect) die Kollisionspartner.
Nun ich möchte iegentlich nur dass er meine Kollisionen anzeigt, ist dies möglich?!?
Ich habe spaßeshalber 
Set CATIA_Objekt = Temp_Dok.Part.FindObjectByName(Referenz(Index)) eingegeben
denn ich habe je nach Verschnitt einmal ein ElementA auf 0 Position und einmal ElementA im Offset von 10mm mit der Fläche B
Also enstehen Verschnitt0mm und Verschnitt10mm
Es kann jetzt natürlich so sein, dass entwerder beide oder nur eins von denen auftritt.
Danke

      '######################################

'        ' --- Deklaration von einfachen Variablen und Datenfeldern
'            Dim Elementname(1 To 2) As String
'            Dim Index As Integer
'
'        ' --- Deklaration von CATIA-Objektvariablen und -Datenfeldern
'            Dim Referenz(1 To 2) As Reference
'            Dim CATIA_Objekt As Object
'
'        'Zugriff auf die CATIA-Referenz der beiden Eingabelemente der Verschneidung
'            Set Referenz(1) = hybridShapeIntersection(J).Element1
'            Set Referenz(2) = hybridShapeIntersection(J).Element2
'
'        'Ermittlung der Namen der beiden Eingabelemente der Verschneidung
'        'und Ermittlung der zugehörigen Objekte und Einblenden dieser Objekte
'            For Index = 1 To 2
'                Elementname(Index) = Referenz(Index).DisplayName
'                Set CATIA_Objekt = Temp_Dok.Part.FindObjectByName(Elementname(Index))
'                Call ShowObject(CATIA_Objekt)
'            Next

        '######################################

Sub ShowObject(CATIA_Objekt) 'As Object
' --- Sub-Prozedur zum Einblenden eines beliebigen CATIA-Objekts
' --- Achtung: diese Prozedur ist nur wirksam, wenn der zugehörige
' --- HybridBody oder Body sowie die übergeordneten Hierarchieelemente
' --- im Strukturbaum als sichtbar gekennzeichnet sind

Dim selection1
Dim visPropertySet1

Set selection1 = CATIA.ActiveDocument.Selection
Set visPropertySet1 = selection1.VisProperties

selection1.Clear
selection1.Add CATIA_Objekt
visPropertySet1.SetShow 0
visPropertySet1.GetRealColor 255, 0, 0
selection1.Clear

End Sub

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