---

Ich habe nichts in der Art gefunden daher hoffe ich das dies kein doppeltes Thema ist ;-)

Zu meinem Problem:
Wir haben bei uns in der Firma kein SheetMetalDesign daher konstruieren wir Fertigteil und Abwicklung in zwei
Bodys separat. Daher kommt es oft vor dass das Ferigteil geändert wird, die Abwiwicklung aber nicht.
Ich bin nun gerade Dabei ein Makro zu schreiben welches Parameter in das Part einfügt (s, v, r usw.), nach dem Referenzmaß frägt
und letztendlich die Abwicklung über eine Formel automatisch ausrechnet. Manuell funktioniert alles wunderbar also auch die Formel.

Das eigentlche Problem ist nun das mein Maß aus der Selection nicht an die Relationformel weitergegeben wird?!
Mit Sicherheit ein Stümperfehler auf Grund mangelnder Erfahrung aber ich hoffe mir kann jemand helfen...

----------------------------------------------------
'Erstellung der Parameter und Befüllung
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim sStatus As String

Dim Selection As Object
Set Selection = partDocument1.Selection
Selection.Clear

ReDim sFilter(0)
Msgbox "Blechdicke auswählen"
sFilter(0) = "Constraint"
sStatus = Selection.SelectElement2(sFilter, "Blechdicke auswählen", True)
If sStatus = "Normal" Then

If (sStatus = "Cancel") Then
    Exit Sub
End If

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim length1 As Dimension
Set length1 = parameters1.CreateDimension("", "LENGTH", 0.000000)
length1.Rename "s"

Dim relations1 As Relations
Set relations1 = part1.Relations
Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula_s", "", length1, "Selection.Item(1).Value")
End If

Selection.Clear

part1.Update

End Sub

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

---

Servus
Statt "Selection.Item(1).Value" bei der Formelerstellung muss da wohl der Name des Parameters hin (am besten über "GetNameToUseInRelation"), und nicht das Objekt an sich.

Gruß
Bernd

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

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

---

Danke für die schnelle Antwort.
Aber irgendwie produzier ich nur Blödsinn...
Ich habe das "GetNameToUseInRelation" in zig verschiedenen Varianten versucht aber entweder kommen Fehlermeldungen oder das Makro läuft durch ohne den Parameter mit dem selektierten Maß zu verknüpfen oO

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim sStatus As String

Dim Selection As Object
Set Selection = partDocument1.Selection
Selection.Clear

ReDim sFilter(0)
Msgbox "Blechdicke auswählen"
sFilter(0) = "Constraint"
sStatus = Selection.SelectElement2(sFilter, "Blechdicke auswählen", True)
If sStatus = "Normal" Then

If (sStatus = "Cancel") Then
    Exit Sub
End If

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim length1 As Dimension
Set length1 = parameters1.CreateDimension("", "LENGTH", 0.000000)
length1.Rename "s"

Dim relations1 As Relations
Set relations1 = part1.Relations
Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula_s", "", length1, "GetNameToUseInRelation(Selection.Item(1)")
End If

Selection.Clear

part1.Update

End Sub

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

---

Servus
Probiere es mal so:

Code:

---

Dim strParameterName as string
strParameterName = part1.Parameters.GetNameToUseInRelation(Selection.Item2(1).value)
Dim relations1 As Relations
Set relations1 = part1.Relations
Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula_s", "", length1, strParameterName )

---

Gruß
Bernd

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

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

---

Funktioniert leider immernoch nicht oO

------------------------------------------------
'Erstellung der Parameter und Befüllung
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim sStatus As String

Dim Selection As Object
Set Selection = partDocument1.Selection
Selection.Clear

ReDim sFilter(0)
Msgbox "Blechdicke auswählen"
sFilter(0) = "Constraint"
sStatus = Selection.SelectElement2(sFilter, "Blechdicke auswählen", True)
If sStatus = "Normal" Then

If (sStatus = "Cancel") Then
Exit Sub
End If

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim length1 As Dimension
Set length1 = parameters1.CreateDimension("", "LENGTH", 0.000000)
length1.Rename "s"

Dim strParameterName as string
strParameterName = part1.Parameters.GetNameToUseInRelation(Selection.Item2(1).value)

Dim relations1 As Relations
Set relations1 = part1.Relations

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula_s", "", length1, strParameterName )
End If

Selection.Clear

part1.Update

End Sub
----------------------------------------

Könnter es daran liegen?
part1.Parameters.GetNameToUseInRelation(Selection.Item2(1).value)
Weil aus der Selection geht ja ein Maß hervor und kein Paramter. Also ein Maß aus einem Sketcher oder einem Feature.

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

---

Servus
Was selektierst du im Baum? (ggf mal Beispiel hochladen)

Gruß
Bernd

EDIT: Probiere es mal so:
strParameterName = part1.Parameters.GetNameToUseInRelation(Selection.Item2(1).Value.Dimension)

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

[Diese Nachricht wurde von bgrittmann am 10. Jul. 2014 editiert.]

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

---

Juhuuuu das war es xD
Hammer vielen Dank.
Ich habe gerade leider kaum Zeit.
Sobald ich daran weiterarbeite schreib ich hier noch weil es kommen bestimmt noch Probleme ;-)

Aber vielen Dank jetzt schoneinmal.

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

---

Ok also 2 Probleme habe ich auf die Schnelle gefunden :-(

1) Gibt es eine Möglichkeit alle Dimensions sichtbar zu machen?
(so wie wenn man eine Formel erstellt und auf ein Skizze etc klickt, dann werden einem ja alle Dimensions angezeigt) Weil ich benötige die Blechdicke für die Formal allerdings kann man die im Strukturbaum nicht selectieren?!

2) Das Makro funktioniert so wunderbar für ein Blechteil mit einer Biegestelle. Aber wenn es mehrere sind geben die Formeln Blödsinn aus, da alle Parameter gleich heißen. Gibt es eine Möglichkeit, dass das Makro schaut ob es die Parameter schon gibt und wenn nicht s_1 / r_1 usw erstellt, wenn aber schon welche vorhanden sind sie als s_2, s_3 usw einfügt und dies auch in der Formel ändert? oO

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

---

Frage gelöscht da selber eine Lösung gefunden!

[Diese Nachricht wurde von shoutz000 am 10. Jul. 2014 editiert.]

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

---

Also so der aktuelle Stand:

'----------------------------------------
Sub CATMain()

'Fehlerbehandlung / Abfrage des aktiven Dokuments
If CATIA.Documents.Count = 0 Then
Box = MsgBox("Es wurde kein aktives Dokument identifiziert!!!" + Chr(10) + "-------------------------------------------------------"  + Chr(10) + "Bitte öffnen Sie zuerst ein Dokument und starten Sie" + Chr(10) + "dann das Kantteilmakro erneut.", vbInformation, "Kein ActiveDocument!!!")
    Exit Sub
End If

Dim oDocument As Document
Set oDocument = CATIA.ActiveDocument

If TypeName(oDocument) <> "PartDocument" Then
Box = MsgBox("Es wurde kein aktives Part identifiziert!!!" + Chr(10) + "-------------------------------------------------------"  + Chr(10) + "Das Kantteilmakro wurde abgebrochen.", vbInformation, "Kein Part!!!")
Exit Sub
End If
'----------------------------------------

'----------------------------------------
'Erstellung der Parameter und Befüllung
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim sStatus As String

'----------------------------------------
'Parametererstellung Schenkel A & Verlinkung mit dem Maß
Dim Selection As Object
Set Selection = partDocument1.Selection
Selection.Clear

ReDim sFilter(0)
Msgbox "Schenkel A auswählen!"
sFilter(0) = "Constraint"
sStatus = Selection.SelectElement2(sFilter, "Schenkel A auswählen!", True)
If sStatus = "Normal" Then
If (sStatus = "Cancel") Then
Exit Sub
End If

Dim a As Parameters
Set a = part1.Parameters
Dim length1 As Dimension
Set length1 = a.CreateDimension("", "LENGTH", 0.000000)
length1.Rename "a"

Dim strParameterName as string
strParameterName = part1.Parameters.GetNameToUseInRelation(Selection.Item2(1).value.Dimension)
Dim relations1 As Relations
Set relations1 = part1.Relations
Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula_a", "", length1, strParameterName )
End If
Selection.Clear

'----------------------------------------
'Parametererstellung Schenkel B & Verlinkung mit dem Maß
ReDim sFilter(0)
Msgbox "Schenkel B auswählen!"
sFilter(0) = "Constraint"
sStatus = Selection.SelectElement2(sFilter, "Schenkel B auswählen!", True)
If sStatus = "Normal" Then
If (sStatus = "Cancel") Then
Exit Sub
End If

Dim b As Parameters
Set b = part1.Parameters
Dim length2 As Dimension
Set length2 = b.CreateDimension("", "LENGTH", 0.000000)
length2.Rename "b"

strParameterName = part1.Parameters.GetNameToUseInRelation(Selection.Item2(1).value.Dimension)
Dim relations2 As Relations
Set relations2 = part1.Relations
Dim formula2 As Formula
Set formula2 = relations2.CreateFormula("Formula_b", "", length2, strParameterName )
End If
Selection.Clear

'----------------------------------------
'Parametererstellung Biegeradius & Verlinkung mit dem Maß
ReDim sFilter(0)
Msgbox "Biegeradius auswählen!"
sFilter(0) = "Constraint"
sStatus = Selection.SelectElement2(sFilter, "Biegeradius auswählen!", True)
If sStatus = "Normal" Then
If (sStatus = "Cancel") Then
Exit Sub
End If

Dim r As Parameters
Set r = part1.Parameters
Dim length3 As Dimension
Set length3 = r.CreateDimension("", "LENGTH", 0.000000)
length3.Rename "r"

strParameterName = part1.Parameters.GetNameToUseInRelation(Selection.Item2(1).value.Dimension)
Dim relations3 As Relations
Set relations3 = part1.Relations
Dim formula3 As Formula
Set formula3 = relations3.CreateFormula("Formula_r", "", length3, strParameterName )
End If
Selection.Clear

'----------------------------------------
'Parametererstellung Blechdicke & Verlinkung mit dem Maß
Dim s As Parameters
Set s = part1.Parameters
Dim length4 As Dimension
Set length4 = s.CreateDimension("", "LENGTH", 8.000000)
length4.Rename "s"

'----------------------------------------
'Parametererstellung Biegewinkel & Verlinkung mit dem Maß
ReDim sFilter(0)
Msgbox "Biegewinkel auswählen!"
sFilter(0) = "Constraint"
sStatus = Selection.SelectElement2(sFilter, "Biegewinkel auswählen!", True)
If sStatus = "Normal" Then
If (sStatus = "Cancel") Then
Exit Sub
End If

Dim Winkel As Parameters
Set Winkel = part1.Parameters
Dim angle1 As Dimension
Set angle1 = Winkel.CreateDimension("", "ANGLE", 0.000000)
angle1.Rename "Winkel"

strParameterName = part1.Parameters.GetNameToUseInRelation(Selection.Item2(1).value.Dimension)
Dim relations5 As Relations
Set relations5 = part1.Relations
Dim formula5 As Formula
Set formula5 = relations5.CreateFormula("Formula_Winkel", "", angle1, strParameterName )
End If
Selection.Clear

'----------------------------------------
'Parametererstellung Tan_Winkel & Erstellung und Verlinkung mit der Formel
Dim Tan_Winkel As Parameters
Set Tan_Winkel = part1.Parameters
Dim realParam1 As RealParam
Set realParam1 = Tan_Winkel.CreateReal("", 0.000)
realParam1.Rename "Tan_Winkel"

Dim relations6 As Relations
Set relations6 = part1.Relations
Dim formula6 As Formula
Set formula6 = relations6.CreateFormula("Tan_Winkel", "", realParam1, "tan((180deg-Winkel)/2)" )

'----------------------------------------
'Parametererstellung Abwicklung & Erstellung und Verlinkung mit der Formel
Dim Abwicklung As Parameters
Set Abwicklung = part1.Parameters
Dim length5 As Dimension
Set length5 = Abwicklung.CreateDimension("", "LENGTH", 0.000000)
length5.Rename "Abwicklung"

Dim relations7 As Relations
Set relations7 = part1.Relations
Dim formula7 As Formula
Set formula7 = relations7.CreateFormula("Abwicklung", "", length5, "(a+b)-((2*((r+s)/1mm)*Tan_Winkel-PI*((180deg-Winkel)/180deg)*(r+s/2*(0.65+0.5*log(r/s)))/1mm)*1mm)" )

'Verlinkung des Maßes mit dem Parameter Abwicklung
Wie bekomm ich das Maß der Abwicklung mit dem Parameter Abwicklung verlinkt? Also damit das Maß vom Parameter gesteuert wird?

'----------------------------------------
part1.Update

End Sub
'----------------------------------------

Probleme weiterhin sind alle Maße im 3D sichtbar zu machen und
die Parameter und Formeln für mehrere Kantstellen durch zu nummerieren...

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

---

Servus
Was soll jetzt gesteuert werden? Im Moment berechnest du die Abwicklung (gestreckte Länge) aus den Längen/Winkel/Blechdicke.

Gruß
Bernd

PS: Warum verwendest du nicht einfach die GSMD-Workbench und verzichtest auf dieses komplexe Makro.

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

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

---

Weil die bei uns nicht genutzt wird, wir aber sehr oft Probleme mit der Aktuallität der Brennteile haben. Parametrisch aufbauen tut sie bei uns aber auch keiner. Deswegen das Makro.

Die Parameter werden ja mit den selectierten Maßen befüllt.
Die Formeln werden an die zwei Parameter weitergegeben, welche auf die befüllten Parameter zurückgreifen und das Ergebnis ermitteln.

Dieses Ergebnis des Parameters "Abwicklung" will ich nun an das Maß in dem Sketcher des Brennteils weitergeben (Damit das Maß im Sketcher von dem Parameter gesteuert wird.)

Schönes Wochenende und viel Spaß beim Finale ;-)

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

---

Also ich habe jetzt versucht die Constraints der Sketcher und Feature so im 3D sichtbar zu machen:

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

msgInput = MsgBox("Alle Constraints einblenden?", vbYesNoCancel, "Constraints")

If msgInput = vbYes Then
selection1.Search  "CATAsmSearch.MfConstraint,all"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 0

If msgInput = vbNo Then
Exit Sub
end if
end if

End Sub

Problem ist bloß das die Constrains garnicht im Hide zu sehen sind :-(
Wie bekommt man die im 3D sichtbare?!       

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

---

Servus
Manuell geht es:
a) Skizze zum editieren öffnen
b) Feature in dem die Skizze verwendet wird selektieren -> Objekt -> Parameter bearbeiten
IMHO kannst du nur Lösung a) per Makro verwirklichen.

Gruß
Bernd

PS:
- Schon mal probiert das ganze ohne Makro nur mit einer PowerCopy zu lösen?
- wie lange machst du an dem Problem schon rum? Was kostet im Vergleich dazu die GSMD-Lizenz?

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

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

---

Naja PowerCopy ist hier nicht so beliebt...

Mir währe die Lizenz auch lieber aber das liegt leider nicht in meiner Hand und wegen den Kostengründen... bin noch Azubi daher hält sich das ganze recht kostengünstig xD

Also per Makro den Editor öffnen? Ok ich versuch mal mein Glück

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

---

Hallo shoutz000,

Zitat:

---

Naja PowerCopy ist hier nicht so beliebt...

---

Das solltet ihr schleunigst ändern.

Wer die Vorzüge der PC einmal genossen hat wird sie nicht mehr missen wollen.

In eurem Fall würde ich mir die Varianten in einem Part definieren, und die gewünschte kann dann vom User bequem ausgewählt werden.(Eine Biegung; Zwei Biegungen ; Drei Biegung; usw.)

Natürlich musst du die Regeln, Formeln und Geometrien am besten in einer "Einheit" zusammenfassen um so die Selektion beim einfügen so gering wie möglich zu halten. Diese Einheit kann ein Body oder auch ein GeoSet sein, das dann nur noch an die Gewünscht Position im Baum gebracht werden muss/kann.

Wenn du dann noch die benötigten Patameter in dem Zielpart angelegt hast, kannst du mit "Use identical name" den größten Teil der Inputs automatisiert auswählen.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Ok...

da müsste ich mich erstmal einlesen und rum experimentieren.
Kenn mich damit null und garnich aus. Aber dank schonmal ich schaus mir bei Gelegenheit an :-)

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

---

Ok ich kann mit einer Powercopy vordefinierte Geometrien speichern und in anderen Parts wiederholt verwenden.
Aber inwiefern kann mir das helfen um von unterschiedlichen Kantteil eine Abwicklung zu erstellen?!

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

---

Servus
Du könntest zB für die Schenkel je eine Linie und den Radius als Input definieren. In der Powercopy werden diese über "Ableitungen" erfasst, und daraus die Längen bestimmt und die Abwicklung berechnet.

Gruß
Bernd

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

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

---

Also so richtig hilfreich ist das mit der Powercopy noch nicht...

Als Input habe ich das Axensystem und 3 Flächen das Kantteils soweit funktionierts...

...jetzt brauch ich aber für die Formel der Abwicklung die Blechdicke, Schenkel 1, Schenkel 2, Biegeradius und Biegewinkel. Ich kann im Einfügefenster der Powercopy aber wieder nur Maße aus dem Baum selektieren (Sprich ich sehe nicht welches Offset jetzt welches Maß ist)... und umbenennen tut die bei uns mit sicherheit kein Mensch oO...

ich versuch mich mal noch n bisschen am Makro vllt komm ich ja da mal weiter ;-)

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

---

Hallo,
du kannst beim erstellen der PC im Reiter Inputs die gewünschten Namen zu den Elementen eintragen.
So erscheint dieser dann bei im kleinen Fenster bei der Ausführung der PC.

Kannst du die Datei bereitstellen?

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Servus
Du könntest als Input vielleicht besser Kanten (Schenkel 1, Schenkel 2, und Radius) verwenden.
Für diese Elemente könnte ggf über ein Messung (oder Formel) die Längen/Winkel/Radius ermittelt werden.

Gruß
Bernd

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

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

---

Servus,

sorry bin zur Zeit vollgeladen mir Aufgaben.
Ich melde mich zurück sobald ich mich um das Thema
wieder kümmern kann.

Vielen Dank aber schonmal

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