---

BRep.jpg

Hallo,
ich möchte innerhalb eines Makro's die Boundaries von beliebigen Flaechenkanten (siehe Bild)erzeugen. Nur leider verstehe ich diese BRep-Geschichte nicht! Wie bekomme ich dies denn allgemeingültig?
Also:
1)Makro starten
2)beliebige Flaechenkante selektieren
3)Boundary erzeugen (z.B.tangentenstetig)
4)Makro Ende

Habe schon im Buch "Effiziente ..." nachgesehen bezüglich der BRep-Geschichte, sowie diverse Marko's mit dem Recorder aufgezeichnet. Irgendwie verstehe ich es aber nicht!

Was(0) = "Edge"
Set UserSel= CATIA.ActiveDocument.Selection
UserSel.Clear
E = UserSel.SelectElement(Was, "Bitte erste Kante auswählen!", false)
If E = "Normal" Then
Else
MsgBox "Abbruch",16
Exit Sub
End If

So und nun die Referenz auf die Selektion?

Gruß
Thomas

------------------
-------------------------------------------------

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

---

Hi Alfa,

ich könnte mir eine Lösung mit der Methode "AddNewExtract" vorstellen (Effiziente Konstruktion, S. 260):

Sub CATMain()

Dim Was(0)
Dim UserSel As Object

Was(0) = "Edge"
Set UserSel= CATIA.ActiveDocument.Selection
UserSel.Clear

E = UserSel.SelectElement(Was, "Bitte erste Kante auswählen!", false)

If E = "Normal" Then

Dim HF As HybridShapeFactory
Dim Kante As HybridShapeExtract
Dim MyBody As HybridBody

Set MyBody = CATIA.ActiveDocument.Part.HybridBodies.Add
MyBody.Name = "Neues Set"

Set HF = CATIA.ActiveDocument.Part.HybridShapeFactory
Set Kante = HF.AddNewExtract (UserSel.Item(1).Value)
MyBody.AppendHybridShape Kante
CATIA.ActiveDocument.Part.Update

Else

Dim Box
Box = MsgBox ("Abbruch",16)

End If

End Sub

------------------
Tschüß, Dieter

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

---

Hallo Dieter!

Gute Idee, das über einen Extract zu machen! Leider (oder zum Glück) hab ich gerade etwas Stress, sodaß ich im Moment nicht dazu komme, dies auszuprobieren! Ich denke aber, das ich mit der Lösung prima leben kann und werde sie hoffentlich in den nächsten Tagen ausprobieren können!

Vielen Dank!

Gruß
Thomas

------------------
-------------------------------------------------

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