---

Ich bin dabei mir ein Makro zu schreiben, dass

1. Parameter unter den User properties erstellt
2. Parameter im Part erstellt um das Gewicht zu berechnen (Volumen, Masse, Dichte)

Ich möchte diese Makro einmal bei neukonstruktion benutzen und bei "alten Konstruktionen" die ich mit diesem Makro umstelle

Jetzt habe ich zwei Probleme

1. Zur Berechnung des Volumens benutzte ich ja die Formel smartVolume('Hauptkörper')
  Jedoch möchte ich vermeiden dass wenn der Hauptkörper mal nicht Hauptkörper heißt das er dies
  auch erkennt und automatisch beachtet.
2. Dasselbe mit der Part Nummer.....

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

---

Zu 1.
Du könntest dir über den .Mainbody.Name den Namen als String zwischenrein setzen und in der Formelbeziehung verwenden. Dann ist es egal ob du eine deutsche, englische Oberfläche hat, die Körper umbenannt wurden oder aus einem STEP-Import stammen.

Zu 2.: ???

Es gibt in einem Teil immer nur eine PartNumber und die ist auch so auslesbar.

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

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

---

zu 1 Wie meinst du das? :-) Ich dachte mir das er den namen ausliest und dann bei der Formel 
    beachtet. Nur wie sieht da der Code aus.....
zu 2 Das ist mir klar das in einem Teil nur eine Partnummer gibt....
    Ich meine wenn ich im code sowas stehen habe z.B.

Set parameter3 = parameters29.Item("Part1\Eigenschaften\Index")

dann kann doch Part1 nicht bei dem Teil X und bei dem Teil Y stimmen....wenn ich ein und dasselbe makro verwende

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

---

Servus
Hier gab es schon mal eine Diskussion zum Thema Formeln und Name des Hauptkörpers.
Schau dir mal im VBA-Editor die Struktur deines Dokumentes an. (oder auch mal die Objektauflösung verwenden). Du brauchst nicht den ganzen "Pfad" (als String) zum Parameter zum diesen Anszusprechen bilden.

Gruß
Bernd

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

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

---

Danke... ich hab aber schon die Lösung gefunden....
hab ne Variable mit dem Name belegt und diese Variable dann eingesetzt..

Dim Bodyname as string

Bodyname = CATIA.ActiveDocument.Part.MainBody.Name

und dann halt den PArameter mit smartvolume("&Bodyname&")

kann ich diese Art auch für die Teilenummer verwenden?

Weil wenn ich ja die User Properties ansprechen will, dann steht ja immer voran die Partnummer..

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

---

Hallo,

ja sollte

Code:

---

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
msgbox product1.PartNumber

---

wenn du von ainer Zeichnung auf das Part greifen willst

dann

eben mal schnell kopiert

Code:

---

'__________________Ansicht bestimmen_________________________________
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.ActiveView
drawingView1.Activate

Set drawingViews1 = drawingSheet1.Views
'Set drawingView1 = drawingViews1.Item(3)
Set drawingView1 = drawingViews1.Item("Vorderansicht")'Item(1)
drawingView1.Activate

'_______________________________________________________________

'__________________________Dateipad LESEN___________________________________________

On Error Resume Next

Dateipfad = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.Path
'FullName =  drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.Fullname
Name = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.name
'________________________________________________________________________________________

'__________________________________Datei endung Part Leoschen____________________________
LoeschEndung = Left(Name, InStrRev(Name, ".CAT") - 1)
'LoeschEndung = Left(Name, InStrRev(Name, ".") - 1)
'LoeschEndung = Left( Name, Len( Name) -7 ) 'Right

---

eben mal schnell kopiert

------------------
Sei Schlau bleib Dumm !!?!!

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

---

Danke...aber von einer Zeichnung möchte ich nicht auf ein Part zugreifen. Das Makro wird nur im Part benutzt und soll fest definierte User Properties, Formeln und Bez. erstellen....

Ich habe aber ein kleines Problem mit den Umlauten.... Ich habe jetzt eingebaut, dass das Umbenennen von hauptkörper berücksichtigt wird, aber sobald der Hauptkörper mal Hauptkörper heißt dann funzt die Volumen formel nicht wegen dem ö.... jemand ne Lösung?

Language="VBSCRIPT"

Sub CATMain()

Dim arrayOfVariantOfDouble1(2)
Dim Bodyname as String
Dim formel as string

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set product1 = partDocument1.GetItem("Part1")

Bodyname = CATIA.ActiveDocument.Part.MainBody.Name

product1.PartNumber = "Part1"

Set relations1 = part1.Relations
Set relations2 = part1.Relations
Set relations3 = part1.Relations
Set relations4 = part1.Relations
Set relations5 = part1.Relations
Set relations6 = part1.Relations

Set parameters1 = product1.UserRefProperties
Set parameters2 = product1.UserRefProperties
Set parameters3 = product1.UserRefProperties
Set parameters4 = product1.UserRefProperties
Set parameters5 = product1.UserRefProperties
Set parameters6 = product1.UserRefProperties
Set parameters7 = product1.UserRefProperties
Set parameters8 = product1.UserRefProperties
Set parameters9 = product1.UserRefProperties
Set parameters10 = product1.UserRefProperties
Set parameters11 = product1.UserRefProperties
Set parameters12 = product1.UserRefProperties
Set parameters13 = product1.UserRefProperties
Set parameters14 = product1.UserRefProperties
Set parameters15 = product1.UserRefProperties
Set parameters16 = product1.UserRefProperties
Set parameters17 = product1.UserRefProperties
Set parameters18 = product1.UserRefProperties
Set parameters19 = product1.UserRefProperties
Set parameters20 = product1.UserRefProperties
Set parameters21 = product1.UserRefProperties

Set parameters22 = part1.Parameters
Set parameters23 = part1.Parameters
Set parameters24 = part1.Parameters
Set parameters25 = part1.Parameters
Set parameters26 = part1.Parameters
Set parameters27 = part1.Parameters
Set parameters28 = part1.Parameters
Set parameters29 = part1.Parameters

Set strParam1 = parameters1.CreateString("ZeichnungsNr", "")
Set strParam2 = parameters2.CreateString("Projekt", "")
Set strParam3 = parameters3.CreateString("Benennung", "")
Set strParam4 = parameters4.CreateString("Werkstoff", "")

Set dimension1 = parameters5.CreateDimension("Gewicht", "MASS", 0.000000)

Set strParam5 = parameters6.CreateString("Kennziffer", "")
Set strParam6 = parameters7.CreateString("Bemerkung", "")
Set strParam7 = parameters8.CreateString("Kunde", "")
Set strParam8 = parameters9.CreateString("kdProdukt", "")
Set strParam9 = parameters10.CreateString("KdRzeichnung", "")
Set strParam10 = parameters11.CreateString("KdRindex", "")
Set strParam11 = parameters12.CreateString("KdFzeichnung", "")
Set strParam12 = parameters13.CreateString("KdFindex", "")
Set strParam13 = parameters14.CreateString("MaschinenGruppe", "")
Set strParam14 = parameters15.CreateString("Modell_erstellt_von", "")
Set strParam15 = parameters16.CreateString("Modell_erstellt_am", "")
Set strParam16 = parameters17.CreateString("Modell_Änderung_von", "")
Set strParam17 = parameters18.CreateString("Modell_Änderung_am", "")
Set strParam18 = parameters19.CreateString("Index", "")
Set strParam19 = parameters20.CreateString("ErsatzFuer", "")
Set strParam20 = parameters21.CreateString("ErsatzDurch", "")
Set strParam21 = parameters25.CreateString("", "")

Set dimension2 = parameters22.CreateDimension("", "MASS", 0.000000)
Set dimension3 = parameters23.CreateDimension("", "VOLUME", 0.000000)
Set dimension4 = parameters24.CreateDimension("", "DENSITY", 0.000000)
Set dimension5 = parameters26.Item("Part1\Eigenschaften\Gewicht")

Set parameter1 = parameters27.Item("Part1\Teilenummer")
Set parameter2 = parameters28.Item("Part1\Überarbeitung ")
Set parameter3 = parameters29.Item("Part1\Eigenschaften\Index")

strParam1.ValuateFromString ""
strParam2.ValuateFromString ""
strParam3.ValuateFromString ""
strParam4.ValuateFromString ""
strParam5.ValuateFromString ""
strParam6.ValuateFromString ""
strParam7.ValuateFromString ""
strParam8.ValuateFromString ""
strParam9.ValuateFromString ""
strParam10.ValuateFromString ""
strParam11.ValuateFromString ""
strParam12.ValuateFromString ""
strParam13.ValuateFromString ""
strParam14.ValuateFromString ""
strParam15.ValuateFromString ""
strParam16.ValuateFromString ""
strParam17.ValuateFromString ""
strParam18.ValuateFromString ""
strParam19.ValuateFromString ""
strParam20.ValuateFromString ""

dimension1.ValuateFromString " "

dimension2.Rename "Gewicht"
dimension3.Rename "Volumen"
dimension4.Rename "Dichte"

strParam21.Rename "Index"

Set formula1 = relations1.CreateFormula("Formel.1", "", dimension3, "smartVolume(" & Bodyname & " )")
Set formula2 = relations2.CreateFormula("Formel.2", "", dimension2, "Volumen * Dichte ")
Set formula3 = relations3.CreateFormula("Formel.3", "", dimension5, "Gewicht ")
Set formula4 = relations4.CreateFormula("Formel.4", "", parameter1, "Part1\Eigenschaften\ZeichnungsNr + " & """" & "-" & """" & " + Part1\Eigenschaften\Index + " & """" & " " & """" & " + Part1\Eigenschaften\Projekt + " & """" & " " & """" & " + Part1\Eigenschaften\Benennung ")
Set formula5 = relations5.CreateFormula("Formel.5", "", parameter2, "Part1\Eigenschaften\Modell_Änderung_von` + " & """" & " am " & """" & " + `Part1\Eigenschaften\Modell_Änderung_am` ")
Set formula6 = relations6.CreateFormula("Formel.6", "", parameter3, "Index ")

formula1.Rename "Formel.1"
formula2.Rename "Formel.2"
formula3.Rename "Formel.3"
formula4.Rename "Formel.4"
formula5.Rename "Formel.5"
formula6.Rename "Formel.6"

arrayOfVariantOfDouble1(0) = 7850.000000
arrayOfVariantOfDouble1(1) = 7519.000000
arrayOfVariantOfDouble1(2) = 2700.000000

dimension4.SetEnumerateValues arrayOfVariantOfDouble1
dimension4.Value = 7850.000000

part1.Update

End Sub

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

---

Servus
Wenn Umlaute oder Leerzeichen in einem Parameter vorhanden sind, muss dann bei der Formel der Parametername in Hochkomma gesetzt werden:
Set formula1 = relations1.CreateFormula("Formel.1", "", dimension3, "smartVolume( ' " & Bodyname & " ' )")
An die Teilenummer kommst du am besten über:
partDocument1.product.Partnumber
ran.
Du solltest versuchen bei der Formel für die Zeichnungsnummer nicht den Pfad zu den Parametern verwenden (was ist wenn das Part nicht mehr part1 heißt), sondern dafür die Funktion "GetNameToUseInRelation" zu verwenden (die einzelnen Parameter hast du ja schon als Variable.

Gruß
Bernd

PS: Ich empfehle dir unbedingt die Variablen sinnvoll zu benennen. Der Code ist in dieser Form nur schwer zu Warten.

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

[Diese Nachricht wurde von bgrittmann am 19. Mrz. 2012 editiert.]

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

---

also wenn ich die Formel in Hochkomma setze dann läuft das makro zwar durch aber die Formel mit bezug auf den Hauptkörper hat nen Fehler.

Ich hab das makro mithilfe der aufzeichnung erstellt und vorerst sortiert....
Sinnvolle Benennung kommt noch... wollte erstmal das Makro zum laufen bekommen...

Wie funktioneirt das mit der Funktion "GetNameToUseInRelation" ?

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

---

Servus
Sorry, es ist kein Hochkomma sondern: ... `" & Mainbody.Name & "` .... (oder was hat bei dir die Makroaufzeichnung ausgespuckt?)
Der Code:
partDocument1.product.Parameters.GetNameToUseInRelation(strParam1)
Sollte dir den String "Eigenschaften\ZeichnungsNr" zurück liefern. Den ganzen "Pfad" solltest du dann über:
StrPartnumber = strParaoProduct.Partnumber + "\" + partDocument1.product.Parameters.GetNameToUseInRelation(strParam1)
Bekommen (uns sollte dann unabhängig von Sprache und PartNumber funktionieren).

Gruß
Bernd

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

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

---

Ja genau die Zeichen sidn es .....die gibt Catia auch immer an...

Ncchmal zur Relation Funktion...

partDocument1.product.Parameters.GetNameToUseInRelation(strParam1)

Für mehrere Parameter muss ich einfach dan nur den Parameter name in de Klammer ändern richtig?

StrPartnumber = strParaoProduct.Partnumber + "\" + partDocument1.product.Parameters.GetNameToUseInRelation(strParam1)

Bei der Partnummer kann ich ja dann wie oben bereits definiert um die Parameter erweitern die ich benötige richtig?

Wo ist es jetzt denn sinnvoll es einzubauen? Also ich würd denken nachdem die Parameter definiert worden sind und bevor die formeln kommen.....

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

---

Hab ich das richtig verstanden?

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