---

moin,
ich bin auf der Suche nach einer Funktion, die mir erlaubt, dass ich von mehreren Flächen gleichzeitig Boundaries erstelle.
Bzw würde ich gerne ein Flächemodell nur als Wireframe abspeichern. Klar kann ich von jeder Fläche eine einzelne Boundary ableiten, aber das bin ich leider ewig beschäftigt...

Danke für eure Hilfe

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

---

Hallo,

eine Funktion gibt's da meines Wissens nicht.
Mit einem Makro geht's vermutlich.

Stellt sich aber auch die Frage: Wozu?
Was kannst mit so einem Modell anschliessend sinnvolles anfangen?

Tschau,
Joe

PS: Bitte Systeminfo ausfüllen.

------------------
Inoffizielle Catia Hilfeseite

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

---

danke schon mal.

es geht um eine visualisierung, die daten werden in einer anderen software weiter verwurstet...

[Diese Nachricht wurde von mrtnhss am 18. Nov. 2015 editiert.]

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

---

Hallo,

importiere/kopiere folgenden Code in ein VBA-Modul:
(modifizerter Mitschnitt des Makro-Rekorders)

Code:

---

Sub CATMain()
'boundaries erzeugen
  Dim oADP As Part
  Dim oHSF As HybridShapeFactory
  Dim oHB As HybridBody
  Dim oHS As HybridShape
  Dim oRef As Reference
  Dim oHSBdry As HybridShapeBoundary
  Dim n As Integer

  Set oADP = CATIA.ActiveDocument.Part
  Set oHSF = oADP.HybridShapeFactory
  Set oHB = oADP.hybridBodies.Item("Geometrical Set.1")

  For n = 1 To oHB.HybridShapes.Count
      Set oHS = oHB.HybridShapes.Item(n)
      Set oRef = oADP.CreateReferenceFromObject(oHS)
      Set oHSBdry = oHSF.AddNewBoundaryOfSurface(oRef)
      oHB.AppendHybridShape oHSBdry
  Next
'  oADP.InWorkObject = oHSBdry
  oADP.Update

End Sub

---

und lass ihn laufen.
Das Makro erwartet ein geöffnetes Catpart mit einem Geoset 'GeometricalSet.1'.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hi, danke dir, sau gut 
habe leider eine Fehlermeldung:

Description: Expected end of statement
Statement: Dim oADP As Part
Line: 4
Column: 11

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

---

Servus
Das ist scheinbar ein CATScript nicht ein CATvbs-makro.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

ich kenn mich mit den makros nicht so aus...
habe ein makro erstellt, das wird ja dann gespeichert. dann klicke ich auf makros, editiere das erstellte und speicher es, danach lass ich es laufen. macro1.catvbs / MS VBSCRIPT ...

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

---

Hi,

Makros kommen in drei Geschmacksrichtungen:
-vbs
-catscript
-vba

Als catscript sollte es laufen.
Benenn die Datei von .vbs um in .catscript.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

HAMMER  1000 DANK - hat zwar recht lange gerechnet, aber war stabil...

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

---

Hi,

nachdem Du Dich ja jetzt mit Makros auskennst, ;-)
noch ein paar Optimierungen:

Code:

---

Sub CATMain()
'boundaries erzeugen
  Dim oADP As Part
  Dim oHSF As HybridShapeFactory
  Dim oHB As HybridBody
  Dim oRef As Reference
  Dim oHSBdry As HybridShapeBoundary
  Dim n As Integer
  Dim oSel As Selection
 
 
  Set oADP = CATIA.ActiveDocument.Part
  Set oHSF = oADP.HybridShapeFactory
  Set oSel = CATIA.ActiveDocument.Selection
  oSel.Clear
 
  'find all surfaces, but not planes
  oSel.Search "('Generative Shape Design'.Surface - 'Generative Shape Design'.Plane);all"
 
  'create and rename geoset
  Set oHB = oADP.hybridBodies.Add
  oHB.Name = "Boundaries"

  For n = 1 To oSel.Count2
      Set oRef = oADP.CreateReferenceFromObject(oSel.Item2(n).Value)
      Set oHSBdry = oHSF.AddNewBoundaryOfSurface(oRef)
      oHB.AppendHybridShape oHSBdry
  Next

  oADP.Update

End Sub

---

Der erste Unterschied besteht darin, dass jetzt alle Flächen im Catpart gefunden werden,
egal wo sie sich befinden.
Ausserdem werden die Boundaries in einem eigenen Geoset abgelegt.

Have fun,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

vielen dank  hast mir sehr geholfen (auch heute früher feierabend machen zu können  )

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