Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Added Properties per Makro auslesen

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:  Added Properties per Makro auslesen (1364 mal gelesen)
studentx
Mitglied


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

Beiträge: 3
Registriert: 03.10.2007

erstellt am: 03. Okt. 2007 19:26    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

Hallo zusammen!

wie kann ich aus den "Properties" eines Products die "Added Properties" per Makro auslesen und in einem Hinweisfenster anzeigen?

An einem konkreten Beispiel: Ich habe in den Properties per "Define other properties" eine weitere Zeile angefügt mit der Bezeichnung "Prinzip". Diese möchte ich nun per Makro auslesen und anzeigen. Die Funktion und Programmierung der MsgBox ist mir klar, aber wie bekomme ich Zugriff auf die "Added Properties"

Vielen Dank schon einmal für eure Lösungsvorschläge!

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: 03. Okt. 2007 21:12    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 studentx 10 Unities + Antwort hilfreich

Servus

An die Benutzerdefinierten Eigenschaften kommst du zB. über

Code:
For i = 1 To oActDoc.Product.UserRefProperties.Count
MsgBox (oActDoc.Product.UserRefProperties.Item(1).name) & "=" & oActDoc.Product.UserRefProperties.Item(1).Value)


ran (hab es aber nicht überprüft).

Gruß
Bernd

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

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

studentx
Mitglied


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

Beiträge: 3
Registriert: 03.10.2007

erstellt am: 03. Okt. 2007 21:53    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

Habe den Code grad in meinen VB Editor kopiert und gleich ausprobiert.

Er scheint aber nicht zu funktionieren. Selbst wenn ich die msgbox herausnehme funktioniert es nicht.

Könnte da nochmal jemand drüber kucken?

Danke schon mal.

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: 03. Okt. 2007 21:56    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 studentx 10 Unities + Antwort hilfreich

Servus

Da hat sich wohl ein Fehler eingeschlichen:

Code:
For i = 1 To oActDoc.Product.UserRefProperties.Count
MsgBox (oActDoc.Product.UserRefProperties.Item(i).name) & "=" & oActDoc.Product.UserRefProperties.Item(i).Value)

Du musst natürlich "oActDoc" auf dein Produkt anpassen.

Gruß
Bernd

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

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

studentx
Mitglied


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

Beiträge: 3
Registriert: 03.10.2007

erstellt am: 03. Okt. 2007 22: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

Ok, die Sache mit dem Counter hatte ich auch schon gesehen. Wie ist das mit dem product anpassen gemeint? Ich habe die Variablen deklariert, und das product nach product1 (so heißt mein derzeitiges Product) geändert?

Stimmt das dann:

Code:
Sub CATMain()

Set oActDoc = CATIA.ActiveDocument
Set oProducts = oActDoc.Product.Products
Set oSelection = oActDoc.Selection
oSelection.Clear

For i = 1 To oActDoc.product1.UserRefProperties.Count
MsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).Name
MsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).Value

Next i


End Sub



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: 03. Okt. 2007 23:11    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 studentx 10 Unities + Antwort hilfreich

Servus

Also bei mir hat es mit:

Code:
Sub CATMain()

Set oActDoc = CATIA.ActiveDocument
Set Product = oActDoc.Product.Products

For i = 1 To oActDoc.Product.UserRefProperties.Count
MsgBox oActDoc.Product.UserRefProperties.Item(i).Name & "=" & oActDoc.Product.UserRefProperties.Item(i).Value
Next

End Sub



funktioniert.

Gruß
Bernd

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

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

Proofin
Mitglied
Dpl.Ing


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

Beiträge: 208
Registriert: 24.11.2004

erstellt am: 04. Okt. 2007 11: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 Nur für studentx 10 Unities + Antwort hilfreich

Moin studentx,

Zitat:
... und das product nach product1 (so heißt mein derzeitiges Product) geändert?...

ich nehme mal an du meinst dein Variable heißt product1.

Die hat nichts mit dem product in diesen Zeilen:

Zitat:
...
For i = 1 To oActDoc.product1.UserRefProperties.Count
MsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).Name
MsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).Value
...

zu tun.

Hier sollte wirklich product stehen anstelle product1.

Lass mal die Klammer um des "test" bei den Messageboxen weg.

Gruß
Proofin

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