Hallo Forum,
bei uns läuft ein Script welches aus einer Auswahl von Texten Parameter generiert welche den gleichen Namen bekommen wie das Textfeld. Bisher haben wir immer nur strings geschrieben. Da ich auch Volumen und Laengen Werte habe würde ich diese auch gerne mit dem entsprechendem Parameter Typ generieren.
Mein Script:
Sub CATMain()
Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.ActiveSheet
Set drawingDocument2 = CATIA.ActiveDocument
Set drawingSheets2 = drawingDocument2.Sheets
Set drawingSheet2 = drawingSheets2.ActiveSheet
Set drawingViews02 = drawingSheet2.Views.Item(1)
Dim Params
Set Params = drawingDocument2.Parameters
'texte aus aktueller Auswahl suchen
Dim selection1
Set selection1 = drawingDocument2.Selection
selection1.Search "CATDrwSearch.DrwText,sel"
Dim DrawTexts
Set DrawTexts = selection1
'Parameter Werte generieren
Dim k
k=1
Dim DrawText
While(k-1<selection1.Count2)
Set DrawText = selection1.Item2(k).Value
Dim Param
'hier beginnt meine Modifikation
If DrawText.Name Like "*LAENGE" Then
Set Param = Params.CreateDimension(DrawText.Name,"")
MsgBox " " & (DrawText.Name)
If DrawText.Name Like "*DURCHMESSER" Then
Set Param = Params.CreateDimension(DrawText.Name,"")
MsgBox " " & (DrawText.Name)
If DrawText.Name = Volumen Then
Set Param = Params.CreateDimension(DrawText.Name,"")
MsgBox " " & (DrawText.Name)
Else
'hier endet meine Modifikation
Set Param = Params.CreateString(DrawText.Name,"")
MsgBox " " & (DrawText.Name)
End If
Param.ValuateFromString DrawText.Text
DrawText.InsertVariable 1,Len(DrawText.Text),Param
k=k+1
Wend
'aktiviert die Arbeitsansicht
'drawingSheet1.Views.Item(1).Activate
End Sub
Das Tool mängelt mir nun den "Wend" an. Kann es sein das ich meine fallunterscheidungen anders einbaue muss??
Vielen Dank schon vorab + Gruß
Norbert
------------------
V5R18
Catia + Smarteam
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP