Hallo Forum,
ich versuche aus drei Parameterwerten [blau,gruen,braun], welche aus einer Parameterliste ausgelesen werden, neue Parameter [mit den Werten 100,200,500] zuzuweisen.
Das funkt soweit ganz gut.
Wenn ich diesen neuen Parameter [param40_neu] meinem ITEM zuweisen möchte [products2.item("param40_neu")] motz das script.
Gebe ich den Wert direkt ein [products2.item("500")] läuft es wie gewünscht durch.
Ich habe schon versucht den param40_neu als strParam zu deklarieren hatte damit aber leider keinen Erfolg.
Vielleicht kann mir jemand von Euch hier weiterhelfen.
Gruß
Norbert
Language="VBSCRIPT"
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Dim products1 As Products
Set products1 = product1.Products
' aktiviert Skeleton Part
Dim product2 As Product
Set product2 = products1.Item("Master skel")
Dim product3 As Product
Set product3 = product2.ReferenceProduct
' Parameter auslesen
Set product2 = CATIA.ActiveDocument
Set product2 = products1.Item("Master skel")
Set parameters1 = product2.Parameters
Set Stift = parameters1.Item("eop")
Param40 = Stift.Value 'Bsp ist braun
' Zuweisung Exemplarnamen
Dim param40_neu As Object
If Param40 = "blau" Then
param40_neu = 100
ElseIf Param40 = "gruen" Then
param40_neu = 200
Else
param40_neu =500'hier nimmt er den Wert "braun" und setzt den neuen Wert
End If
MsgBox "Wert Param40_neu "& (Param40_neu) 'hier erscheint der Wert 500
Dim selection40 As Selection
Set selection40 = productDocument1.Selection
Dim visPropertySet40 As VisPropertySet
Set visPropertySet40 = selection40.VisProperties
Dim product40 As Product
Set product40 = products1.Item("stift")
Dim products2 As Products
Set products2 = product40.Products
Dim product41 As Product
Set product41 = products2.item("param40_neu") 'hier motzt das Script; wenn ich "500" eintrage laeuft es ohne zu meckern durch
Set products40 = product41.Parent
Dim bSTR40 As String
bSTR40 = product41.Name
selection40.Add product41
Set visPropertySet40 = visPropertySet40.Parent
Dim bSTR41 As String
bSTR41 = visPropertySet40.Name
Dim bSTR42 As String
bSTR42 = visPropertySet40.Name
visPropertySet40.SetShow 0
selection40.Clear
End Sub
------------------
V5R18
Catia + Smarteam
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP