Autor
|
Thema: Nur den Namen bei Parametern auslesen (388 mal gelesen)
|
Booyaka Mitglied
Beiträge: 122 Registriert: 22.06.2012 CATIA V5 R19, 24, 26, 28, 29
|
erstellt am: 07. Jan. 2019 08:50 <-- editieren / zitieren --> Unities abgeben:
Hallo, Ich würd gern den Namen eines Parameters (der Unter den Eigenschaften des Parts liegt) auslesen. allerdings krieg ich nur den kompletten Pfad wenn ich das hiermit mache :
Code:
MsgBox oPropPara1.Name
Gibt es eine Möglichkeit nur an den Namen des Parameters zu kommen ohne den ganzen Pfad mit auszugeben?
------------------ „Nicht Erfolg ist der Schlüssel zum Glück, sondern Glück ist der Schlüssel zum Erfolg. Wenn du gerne tust, was du tust, wirst du auch erfolgreich sein.“ ― Albert Schweitzer Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Booyaka Mitglied
Beiträge: 122 Registriert: 22.06.2012 CATIA V5 R19, 24, 26, 28, 29
|
erstellt am: 07. Jan. 2019 09:44 <-- editieren / zitieren --> Unities abgeben:
Sorry für den Doppelpost ^^' Ich habs hinbekommen allerdings glaub ich das das ein Umweg ist im nachfolgendem mal der Codeschnipsel
Code:
Set oActPart = CATIA.ActiveDocument Set oPropPar = oActPart.Product.UserRefProperties Set oPropPara1 = oPropPar.Item("Parameter.1")oSplitName = Split (oPropPar.GetNameToUseInRelation(oPropPara1), "\") MsgBox oSplitName(1)
Falls einer weiß wie man den direkt anspricht wär ich für ein Hinweis trotzdem sehr verbunden ^^. ------------------ „Nicht Erfolg ist der Schlüssel zum Glück, sondern Glück ist der Schlüssel zum Erfolg. Wenn du gerne tust, was du tust, wirst du auch erfolgreich sein.“ ― Albert Schweitzer Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 07. Jan. 2019 11:05 <-- editieren / zitieren --> Unities abgeben: Nur für Booyaka
Servus Also direkt den Namen ausgeben wüsste ich auch nicht, nur einen alternativen Weg bzw eine kleine Modifikation deines Codes (Vorsicht es fehlt überall noch eine Fehlerbehandlung) Code: sParameterName = Right(oPropPara1.Name,Len(oPropPara1.Name) - InStrRev(oPropPara1.Name,"\")) MsgBox sParameterNameoSplitName = Split (oPropPara1.Name, "\") MsgBox oSplitName(uBound(oSplitName))
Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|