---

Hallo und vielen Dank im voraus - wer sich die Zeit nimmt mir zu Helfen

Arbeite seit kurzem mit Catia V5 und habe auch das Thema Makro entdeckt.
Ich bräuchte da mal einen Makrovorschlag wie ich einen bestimmten Parameter (z.B.mit dem Namen "Positionsnummer") vom Typ Zeichenfolge mit einen Input-Fenster den Wert (z.B. von 1234 auf 3333) ändern kann.

------------------
Mit freundlichem Gruß
Andreas

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

---

Hallo Andreas und willkommen im Forum.

Bitte fülle noch in deinem Profil deine Systeminfo aus (CATIA-Version und SP, evtl. HArdware/Grafikkarte)

Zu deiner Frage:

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim strParam1 As StrParam
Set strParam1 = parameters1.Item("Positionsnummer")

strParam1.Value = InputBox("Geben Sie die neue Positionsnummer an")

End Sub

sollte das tun. Es war 1 Minute Makrorekorder und einmal Angabe einer Inputbox angesagt.

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

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

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

         tberger@tobeplus.de

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

---

Stueklistenparameter_erstellen.jpg

Servus,

ich schätze mal, dass du sicherlich mehrere Parameter in deinem Part drinnen hast. Damit du nicht für jeden Parameter ein eigenes Makro schreibst, kannst du das ganze in eine Userform stecken. Hat dann natürlich zur Folge, dass mit mit VBA arbeiten musst, weil es mit CATScript und CATvbs nicht realisierbar ist. Anbei ein Bild von meiner Userform zum ausfüllen/erstellen der Stücklistenparameter.

Der Codeschnippsel zum Eintragen der Werte:

Code:

---

Set strParameter = Parameters.Item("Pos_Nr")
strParameter.Value = Me.txt_Pos_Nr.Value

---

Der Codeschnippsel zum Erstellen der Parameter und eintragen der Werte:

Code:

---

Set strParameter = Parameters.CreateString("", "")
strParameter.Rename "Pos_Nr"
strParameter.Value = Me.txt_Pos_Nr.Value

---

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

erst einmal vielen Dank für die Antwort
bin noch nicht dazu gekommen es auszuprobieren - in letzter Zeit
wieder viel zu tun. Beschäftige mich nebenher in meiner Freizeit damit.

Gruß A.Müller

------------------
Mit freundlichem Gruß
Andreas

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

---

Hallo zusammen,

ich habe das Macro so abgeändert, damit es bei mir funktioniert:
Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set parameters1 = part1.Parameters

Set strParam1 = parameters1.Item("Station")

strParam1.Value = InputBox("Geben Sie die neue Station an")

End Sub

Kann man das Macro so ändern, dass bei allen Parts eines Products dieser Parameter geändert wird, ohne jedes einzeln aktivieren zu müssen?

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

---

Servus

Willst du bei a) allen geöffneten Dokumenten den Parameter ändern oder b) nur diese im aktuellen CATProduct?
Zu b) Schleife über die Products-Collection laufen lassen und auf das entsprechende Dokument zugreifen. Dort dann den Parameter ändern (Vorsicht: Unterscheidung CATPart und CATProduct notwendig)
Was soll passieren wenn ein Teil mehrfach verbaut wird? Was soll passieren wenn es den Parameter in einem Dokument nicht gibt?

Gruß
Bernd

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

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

---

Hallo Bernd,
ich möchte alle Parts in dem geöffneten Product ändern, also Variante b.
Wie kann ich diese Schleife erstellen?
Spielt es eine Rolle ob ein Teil mehrfach verbaut ist? In der Schleife wird der Wert dann doch einfach immer wieder neu reingeschrieben, oder?
Hat ein Teil diesen Parameter nicht, sollte das Macro am Besten das Teil kommentarlos überspringen. Ist das möglich?

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

---

Oder noch besser:

Kann ich über eine Excel-Tabelle meine Parameter automatisch befüllen?

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

---

Servus

Wahrscheinlich ist das machbar.
Die Frage ist eher wie viel Aufwand du in das Makro reinstecken willst und kannst (Einarbeitung in die Materie).

EDIT:
ggf reicht es dir per "Formeleditor" die Parameter zu ändern. Durch einen passenden Filter sollte da nur die gewünschten Paramter Station erscheinen.
Für den Abgleich mit einer Excel-Tabelle ist mehr Aufwand nötig und ggf auch ein Anpassung der Methodik sinnvoll.

Gruß
Bernd

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

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

---

Ja, das ist wie übliche die große Frage. Und mal wieder hab ich dafür leider nicht so Zeit um mich da weiter einzuarbeiten.
Wie aufwendig ist das denn mit einer Schleife? Ich habe das bei Catia irgendwie noch nie selber hinbekommen.
Ist das aufwendig?

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

---

Servus

Ich hab dir da mal was zusammengebastelt (CATScript).

Code:

---

Sub CATMain()

Dim oDocument As Document
Dim oPart as Part
Dim oPartDocument as Part
Dim oProduct as Product
Dim oRootProduct as Product
Dim sParameterName as String

sParameterName = "Station"

Set oDocument = CATIA.ActiveDocument

if TypeName(oDocument) = "PartDocument" then
    Call ChangeStrParamterByInput(oDocument, sParameterName)
end if

if TypeName(oDocument) = "ProductDocument" then
   Set oRootProduct = oDocument.Product
   for each oProduct in oRootProduct.Products
      if TypeName(oProduct.ReferenceProduct.Parent) = "PartDocument" then
         Call ChangeStrParamterByInput(oProduct.ReferenceProduct.Parent, sParameterName)
      end if
   next  
end if

end sub

Sub ChangeStrParamterByInput(oPartDocument as PartDocument, sParameterName as String)

Dim oParameters as Parameters
Dim strParamteter As StrParam
Dim sInput as String

Set oParameters = oPartDocument.Part.Parameters
Set strParamteter = Nothing

On Error resume next
Set strParamteter = oParameters.Item(sParameterName)
On error goto 0

if Not strParamteter is Nothing then
   sInput = InputBox("Bitte Wert für Parameter " & sParameterName & " im Dokument " & oPartDocument.Name & " eingeben.", "Parameterwert eingeben" , strParamteter.ValueAsString)
   if sInput <> "" then
       strParamteter.Value = sInput
   end if
end if

End Sub

---

Viel Spaß beim analysieren und nachvollziehen

Gruß
Bernd

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

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

---

Hallo Bernd,
danke, funktioniert bestens!
Werde mir das mal genauer anschauen, vielleicht bekomm ich ja raus, wo ich immer die Fehler gemacht habe.
Werde auch noch versuchen, dass ich den Wert nur einmal eingeben muss und nicht bei jeden Part wieder neu. Wobei ich glaube, dass das wieder nicht so einfach wird. Mal sehen.
Auf jeden Fall besten Danke!

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

---

Servus,

wie kann ich dein Script anpassen, damit ich die Parameter in allen offenen Parts und Products ändern kann?

Gruß

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

---

Servus

Statt der Schleife über alle Products des RootProducts eine Schleife über alle Dokumente der Document-Colletion laufen lassen (Typabfrage einbauen, falls zB noch Drawings offen sind).
Und entsprechend erweitern dass auch die Parameter im CATProduct angepasst werden (siehe Doku, Objektbrowser, Forensuche)

Gruß
Bernd

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

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

---

Danke Dir für die Hilfe!

Hatte tatsächlich noch Zeichnungen im Hintergrund, die ich jetzt abfrage. Nun läuft das Makro.

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