Sorry for my bad english!
I am not sure wheter i have understood you right.
But here my version of this function:
----------------------------------------------------------
Code Begin
----------------------------------------------------------
Sub txt(ByVal desk As String, ByVal id As String, ByVal mat As String, ByVal dat As String, ByVal nam As String, ByVal prod As String)
Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument
Dim DrwSheets As DrawingSheets
Set DrwSheets = DrwDocument.Sheets
Dim DrwSheet As DrawingSheet
Set DrwSheet = DrwSheets.ActiveSheet
Dim DrwView As DrawingView
Set DrwView = DrwSheet.Views.Item(2)
Dim drawingTexts1 As DrawingTexts
Set drawingTexts1 = DrwView.Texts
Dim drawingText1 As DrawingText
Dim n As Integer
n = 0
Do
n = n + 1
If drawingTexts1.Item(n).Name = "description" Then
drawingTexts1.Item(n).Text = desk
ElseIf drawingTexts1.Item(n).Name = "idnumber" Then
drawingTexts1.Item(n).Text = id
ElseIf drawingTexts1.Item(n).Name = "material" Then
drawingTexts1.Item(n).Text = mat
ElseIf drawingTexts1.Item(n).Name = "date" Then
drawingTexts1.Item(n).Text = dat
ElseIf drawingTexts1.Item(n).Name = "name" Then
drawingTexts1.Item(n).Text = nam
ElseIf drawingTexts1.Item(n).Name = "desc" Then
drawingTexts1.Item(n).Text = prod
End If
Loop Until n = drawingTexts1.Count
End Sub
----------------------------------------------------------
Code End
----------------------------------------------------------
Proofin
[Diese Nachricht wurde von Proofin am 01. Mrz. 2007 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP