---

makrohilfe.JPG

Hallo!
ich komme nicht weiter 

mein Vorhaben:
Die Kanten der Enden eines Rohres (stupider Solid) als Flächen extruieren.

- Kante selektieren (BRep)
  (Selektion während der Laufzeit)
- unabhängig ob PartDesign oder GeneralShapeDesign
- Kante als Fläche extruieren (Referenzplane über Namen dek.)

1. Bekomme Hrn. Ziethens Makro nicht für HybridBodies umgeschrieben:

Sub CATMain ()

' Auswahl festlegen -----------------------------------------------
  Dim Was(2)
  Was(0) = "Pad"
  Was(1) = "Line"
  Was(2) = "Pocket"    #hier gerne Kanten selektieren#

' Selektion definieren und leeren ---------------------------------
  Dim UserSel As Selection
  Set UserSel= CATIA.ActiveDocument.Selection
  UserSel.Clear

' Selektion vornehmen lassen --------------------------------------
  Dim E As CATBSTR
  E = UserSel.SelectElement2(Was, "Pad oder Linie oder Pocket", False)

  If E = "Normal" Then
      MsgBox(UserSel.Item(2).Value.Name)
  Else
      MsgBox ("Abbruch")
  End If

' Selektion freigeben --------------------------------------------
  UserSel.Clear

End Sub

2. Wie und wo bekomme ich eine erfolgreie Selektion nun in ein Makro unter?

Ich danke für Eure Hilfe !!!

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

---

Hallo,

ähm ja...Erst mal eine Frage dazu:

- Willst du das eine neue BRep erzeugt wird wenn du ein Pad selektierst oder ist der Filter einfach nur abgetippt aber noch nicht geändert?

Anbei mal der kommentierte Code, damit du weißt was genau während der interaktiven Selektion passiert:

Code:

---

  '***ARRAY-DEKLARATION FUER SELEKTIONSFILTER
  Dim Was(2)

  '***ARRAY Zuweisung (String) welche Objekttypen selektiert werden duerfen
  Was(0) = "Pad"
  Was(1) = "Line"
  Was(2) = "Pocket"    #hier gerne Kanten selektieren#

  '***Selektionsobjekt deklarieren und instanzieren
  Dim UserSel As Selection
  Set UserSel= CATIA.ActiveDocument.Selection

  '***Selektion leeren (keine Pre-Selektion) ist aber nicht zwingend erforderlich da du das auch beim Methodenaufruf machen kannst
  UserSel.Clear

  '***Sekleration des CallBack Elements (String)
  Dim E As CATBSTR

  '***Interaktive Selektion ausführen (Methodenaufruf)
  E = UserSel.SelectElement2(Was, "Pad oder Linie oder Pocket", False)

  '***CallBack auswerten und ggf. Objekt der Selektion weiterverarbeiten
  If E = "Normal" Then
      MsgBox(UserSel.Item(2).Value.Name)
  Else
      MsgBox ("Abbruch")
  End If

  '***Selektion leeren
  UserSel.Clear

---

Ansonsten kann ich dir sagen das es nicht ganz so einfach ist wie es sich vielleicht anhört. Das Problem ist das du Berandungskurven selektierst (also BREPS). Diese liegen in der Selektion aber als Objekt vor und können NICHT einfach mit einem CreateReferencefromObject in ein Referenzobjekt konvertiert werden. Dieses brauchst du aber zwingend (und zwar zweimal (einmal die Kante selbst und einmal die Richtung)) um alle Parameter der Methode AddNewExtrude ordentlich füllen zu können. D.h. es muss eine explizite String-Konvertierung vorgenommen werden und die Referenz dann im Anschluss mit der Methode CreateReferenceFromBRepName erzeugt werden!

Programmierarbeit für einen erfahrenen Programmierer min. 1,5h!!!

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

ich danke dir für deine antwort,
du hast mir um viele schritte weitergeholfen - nette grüße von mir.

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