Autor
|
Thema: Ausgewählten Parameter zurückgeben (436 mal gelesen)
|
Jochem Mitglied Konstrukteur
Beiträge: 3 Registriert: 25.07.2008
|
erstellt am: 25. Jul. 2008 10:54 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich möchte im Strukturbaum einen Parameter auswählen und anschließend seinen Namen ausgeben bzw. auf eine Variable setzten. Bis zur eingeschränkten Auswahl bin ich schon gekommen. Hier mal der Code in VB6: Code: Sub auswaehlen()Dim Document01 As Document Dim Part01 As Part Dim Selection01 Dim SelectedElement Dim Filter(0) Set Document01 = CATIA.ActiveDocument Set Part01 = Document01.Part Set Selection01 = Document01.Selection Filter(0) = "Parameter" Status = Selection01.SelectElement2(Filter, "Einen Parameter auswählen", True) Set Wert01 = CATIA.ActiveDocument.Selection MsgBox (Wert01.Name) End Sub
Zum testen wollte ich mir den Parameternamen in einer Box wieder geben lassen. Allerdings werden auf Wert01 nur die Eigenschaften der Selection geschrieben. Wie bekomme ich den Parameternamen der aktuellen Selection auf eine Variable?Gruß Jochem Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Augustiner Mitglied Konstrukteur
Beiträge: 188 Registriert: 02.12.2005 HP Workstation Windows XP Professional Visual Studio 2005 Professional CATIA V5 R14SP5 & R17SP3
|
erstellt am: 25. Jul. 2008 11:56 <-- editieren / zitieren --> Unities abgeben: Nur für Jochem
Hallo du weisst deinem "Wert" den falschen Wert zu Code: Sub auswaehlen()Dim Selection01 Dim SelectedElement Dim Filter(0) Set Selection01 = CATIA.ActiveDocument.Selection Filter(0) = "Parameter" Status = Selection01.SelectElement2(Filter, "Einen Parameter auswählen", True) MsgBox (Selection01.item(1).name) End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
V5Playaz Mitglied Dipl.-Ing (BA)
Beiträge: 447 Registriert: 12.07.2005 DELL PRECISION 390 3,25 GB RAM WIN XP PRO SP2 CATIA V5 R16-19 Delmia V5 R19 VB6, VB2008 Adobe Acrobat 9 Pro Extended
|
erstellt am: 25. Jul. 2008 12:26 <-- editieren / zitieren --> Unities abgeben: Nur für Jochem
|
Jochem Mitglied Konstrukteur
Beiträge: 3 Registriert: 25.07.2008
|
erstellt am: 25. Jul. 2008 12:26 <-- editieren / zitieren --> Unities abgeben:
@Augustiner Ja natürlich habe ich den falschen Wert zugewiesen. Danach habe ich ja auch gefragt Dein Code liefert das gleiche Ergebnis wie meiner. Beide geben den Namen der Selektion wieder. Wie z.B. "CATIASelection12". Wird in einer Sitzung hochgezählt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Augustiner Mitglied Konstrukteur
Beiträge: 188 Registriert: 02.12.2005 HP Workstation Windows XP Professional Visual Studio 2005 Professional CATIA V5 R14SP5 & R17SP3
|
erstellt am: 25. Jul. 2008 12:43 <-- editieren / zitieren --> Unities abgeben: Nur für Jochem
|
Jochem Mitglied Konstrukteur
Beiträge: 3 Registriert: 25.07.2008
|
erstellt am: 25. Jul. 2008 13:02 <-- editieren / zitieren --> Unities abgeben:
|
V5Playaz Mitglied Dipl.-Ing (BA)
Beiträge: 447 Registriert: 12.07.2005 DELL PRECISION 390 3,25 GB RAM WIN XP PRO SP2 CATIA V5 R16-19 Delmia V5 R19 VB6, VB2008 Adobe Acrobat 9 Pro Extended
|
erstellt am: 25. Jul. 2008 14:25 <-- editieren / zitieren --> Unities abgeben: Nur für Jochem
super, genau richtig! und mit: MsgBox (oParam.Name) & ": " & (oParam.Value) kann man sich noch den Namen und Wert des Parameters ausgeben lassen. allerdings musste ich oParam als Object dimensionieren. (in VB6) [Diese Nachricht wurde von V5Playaz am 25. Jul. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |