---

Hallo zusammen.

Leider konnte ich im Forum keine Antwort auf ein Problem von mir finden:
Ich will jede einzelne Kante einer Extrusion (HybridShapeExtrude Name:Nutauszug) untersuchen, ob sie in eine bestimmte Richtung zeigt. Falls sie in diese Richtung zeigt möchte ich diese Ecke dann verrunden.

Weiß jemand von Euch dafür eine Lösung- leider habe ich beim suchen im Forum nichts dazu gefunden.

Hab mit der Funktion GeometricElements probiert- aber ich glaub die kann ich hier nicht nehmen

Dim Geometrische_Elemente As GeometricElements
Dim Geo_Element As GeometricElement
Set Geometrische_Elemente = Nutauszug.GeometricElements
For i = 1 To Geometrische_Elemente.Count
Set Geo_Element = Geometrische_Elemente.Item(i)
Next

Vielen Dank im vorraus
Spikey jr.

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

---

Hallo spickey jr.,

die einzelnen Kanten deiner Extrusion sind BReps (Boundary Representaions), also keine eigenständigen Geometrie-Objekte.
Die zu einer Selektion gehörigen BReps kannst du grundsätzlich mit Hilfe eines Topology.Searchs scannen.
Selektiere deine Extrusion und starte folgendes Script:

Sub CATMain()
  Set oSelection = CATIA.ActiveDocument.Selection
  oSelection.Search ("Topology.CGMEdge,sel")
  For i = 1 to oSelection.Count
      Msgbox oSelection.Item(i).Value.Name
  Next
End Sub

Über den BRep kannst du dir eine Reference erzeugen und die Kanten vermessen.

Hoffe das hilft dir weiter. Gruß

------------------
tomtom1972

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

---

Danke das funktioniert.
Spikey

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

---

Leider kann ich die Richtungen nicht miteinander vergleichen.
Hat jemand einen Rat?

Hier mein Programm, daas nicht funktioniert! 
Dim Rundung As ConstRadEdgeFillet
Set Rundung = Werkzeugkasten.AddNewSurfaceEdgeFilletWithConstantRadius(Nothing, catTangencyFilletEdgePropagation, 38#)

Rundung.FilletBoundaryRelimitation = -1

Dim Kantenzaehler As Integer

Dim Kante As AnyObject

Dim Kanten_Selektion As Selection
Set Kanten_Selektion = Bauteildokument.Selection

Dim Richtung1 As HybridShapeDirection
Set Richtung1 = Flaechenwerkzeugkasten.AddNewDirection(Auszugsrichtung)
Dim Richtung2 As HybridShapeDirection

Kanten_Selektion.Clear
Kanten_Selektion.Add Nutauszug

Kanten_Selektion.Search "Topology.CGMEdge,sel"
Kantenzaehler = Kanten_Selektion.Count
 
For i = 1 To Kantenzaehler
 
    Set Kante = Kanten_Selektion.Item(i)
 
    Set Kante = GeometrieObjekt.Value
   
  If Richtung1.DirectionSpecification = Richtung2.DirectionSpecification Then
Rundung.AddObjectToFillet Kante
Rundung.EdgePropagation = catTangencyFilletEdgePropagation
Rundung.FilletBoundaryRelimitation = catConnectFilletBoundaryRelimitation
Rundung.FilletTrimSupport = catTrimFilletSupport
  'End If
   
Next
Werkzeug.Update

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

---

Hi spikey jr.,

so kann das nix werden.

Was möchtest du damit

 

Zitat:

---

    Set Kante = Kanten_Selektion.Item(i)
 
    Set Kante = GeometrieObjekt.Value

---

erreichen?

Was ist   GeometrieObjekt  und warum weisst du der Variablen
Kante  zweimal unterschiedliche Objekte zu?

Worauf bezieht sich die If-Abfrage

  

Zitat:

---

  If Richtung1.DirectionSpecification = Richtung2.DirectionSpecification Then

---

Was ist Richtung2 ? Diese Variable ist immer leer (empty/nothing), da du sie nie zugewiesen hast.
Also ist Richtung2 immer ungleich Richtung1.

Du kannst sowieso nicht zwei Objekte mit "=" vergleichen. Gleich sind sie nur, wenn es die selben sind.

Du musst hier mit dem .Measureable arbeiten.
Also wie ich oben geschrieben habe über den BRep eine Reference erzeugen, zu deiner Richtung1 ebenfalls eine und messen (das ist dann vergleichen)

Gruss

------------------
tomtom1972

[Diese Nachricht wurde von tomtom1972 am 29. Mrz. 2007 editiert.]

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