Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  CAD Parameter per Makro ausfüllen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  CAD Parameter per Makro ausfüllen (523 mal gelesen)
Guckhdsioh
Mitglied


Sehen Sie sich das Profil von Guckhdsioh an!   Senden Sie eine Private Message an Guckhdsioh  Schreiben Sie einen Gästebucheintrag für Guckhdsioh

Beiträge: 2
Registriert: 31.08.2021

erstellt am: 31. Aug. 2021 15:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


2021-08-3115_16_57-CATIAV5-R29BMW-G000198__XXXX__STARTMODELL.CATPartReadOnly.png

 
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 bestimmte (schon existierende) Parameter (siehe Bild) befüllen kann.
Wir haben ein vorhandenes Startmodell und wollen die Parameter nicht händisch eintragen.

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 31. Aug. 2021 15:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Guckhdsioh 10 Unities + Antwort hilfreich

Servus

Willkommen im Forum.
Hier ein Beispiel, mittels Makrorekorder mit ein paar Ergänzungen erstellt:

Code:
Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim parameterSet1 As ParameterSet
Set parameterSet1 = parameters1.RootParameterSet

Dim parameterSets1 As ParameterSets
Set parameterSets1 = parameterSet1.ParameterSets

Dim parameterSet2 As ParameterSet
Set parameterSet2 = parameterSets1.Item("Stueckliste")

dim parameter1 as Parameter
Set parameter1 = parameterSet2.DirectParameters.Item("SachNr")

parameter1.Value = "Test"

End Sub


Viel Spaß beim testen, analysieren, verstehen und erweitern.

Gruß
Bernd

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

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



Bauzeichner (m/w/d)

?eines der schnellst wachsenden Handelsunternehmen Europas mit mehr als 2.500 Filialen in zwölf Ländern. Und es werden täglich mehr. Das schaffen wir nicht alleine. Gut 80.000 Mitarbeitende tragen zu diesem Erfolg bei.

Unsere bestehenden Länder wachsen stetig und ergänzen unser erfolgreiches Discountkonzept um durchschnittlich +200 Filialen pro Jahr. Deutschland hat sich zu einem der größten Länder von Action entwickelt, mit derzeit mehr als 500 eröffneten Filialen und über 12....

Anzeige ansehenTechnischer Zeichner, Bauzeichner
Guckhdsioh
Mitglied


Sehen Sie sich das Profil von Guckhdsioh an!   Senden Sie eine Private Message an Guckhdsioh  Schreiben Sie einen Gästebucheintrag für Guckhdsioh

Beiträge: 2
Registriert: 31.08.2021

erstellt am: 31. Aug. 2021 16:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen Dank.
Damit kam ich zurecht.

Um mehrere gleichzeitig zu befüllen habe ich das Makro erweitert.

Das Makro sieht nun so aus:

--------------------------------------

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim parameterSet1 As ParameterSet
Set parameterSet1 = parameters1.RootParameterSet

Dim parameterSets1 As ParameterSets
Set parameterSets1 = parameterSet1.ParameterSets

Dim parameterSet2 As ParameterSet
Set parameterSet2 = parameterSets1.Item("Stueckliste")

dim parameter1 as Parameter
Set parameter1 = parameterSet2.DirectParameters.Item("Werkstoffbezeichnung")

parameter1.Value = "Werkstoffbezeichnung"

dim parameter2 as Parameter
Set parameter2 = parameterSet2.DirectParameters.Item("Werkstoffschluessel")

parameter2.Value = "Werkstoffschluessel"

dim parameter3 as Parameter
Set parameter3 = parameterSet2.DirectParameters.Item("Din_En")

parameter3.Value = "Din_En"

End Sub

--------------------------------------

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz