Einen wundervollen guten morgen,
Ich versuche gerade ein kleines Programm zu schreiben, welches in den aktuellen Wert eines Parameters (mit einer Wertetabelle dahinter) ausliest.
Das programm läuft auch schon soweit, nur gibt mir die Messagebox einen falschen wert zurück, den ich mir nicht erklären kann.
Aufgangssituation:
Ich habe einen Parameter (als Zeichenfolge(String)) erstellt und ihn mit einer Wertetabelle oder liste hinterlegt. Die beiden werte können einmal "Metall" und "Kunststoff" sein. wenn ich das Programm laufen lasse und den Parameter auf "Kunststoff" stelle, dann gibt mir die Messagebox mit der ich den .Value des Parameters ermittle aber "Metall" aus.
Warum ist das so?
Anbei der Code:
Code:
Sub Catmain()
'Dieser Code überprüft in einem KWA-Part den Parameter "Mitnehmermaterialien" und setzt einen anderen.
'On Error Resume Next
Dim aktuellesPartdocument As PartDocument
Set aktuellesPartdocument = CATIA.ActiveDocument
Dim VarType As String
VarType = TypeName(aktuellesPartdocument)
If VarType = "PartDocument" Then
Dim aktuellesPart As Part
Set aktuellesPart = aktuellesPartdocument.Part
Dim Par_Ges As Parameters
Set Par_Ges = aktuellesPart.Parameters
Dim Par_MnMat ' As StrParam
Set Par_MnMat = Par_Ges.Item("Mitnehmermaterial")
MsgBox Par_MnMat.Value
Else
MsgBox "Ihre Datei ist leider kein Part bitte öffnen sie dieses gegebenenfalls in einem extra Fenster."
End If
VarType = ""
'On Error GoTo 0
End Sub
MFG Beny
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
