---

Hello i want to insert a text in a drawing im using this

Code:

---

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet

Dim MyView As DrawingView
Set MyView = MySheet.Views.ActiveView
Dim MyText As DrawingText
Set MyText = MyView.Texts.Add("ComplexText", 0#, 0#)
End Sub

---

but id dosent work, the vb editor says that i need an object  
and the second thing i want to replace a text in a drawing how can i do it for example i have a text "Lenge" and i wont to put there something else.
regard tom

[Diese Nachricht wurde von toyo83 am 01. Mrz. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tom,

where does the error message come?
in this line:
  Set MyView = MySheet.Views.ActiveView

if it is that way, then replace "MySheet" with "drawingSheet1".

Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hy it works but i have other problem i want to loop thru all texts and if a name of te text field match i want to put there some data from my textbox on a userform. could somone help??
this is the code of the sub

Code:

---

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 = "descryption" Then
  Set drawingText1 = drawingTexts1.Item(n)
  drawingText1.Text = desk
 
    If drawingTexts1.Item(n).name = "idnumber" Then
    Set drawingText1 = drawingTexts1.Item(n)
    drawingText1.Text = id
 
        If drawingTexts1.Item(n).name = "material" Then
        Set drawingText1 = drawingTexts1.Item(n)
        drawingText1.Text = mat
 
            If drawingTexts1.Item(n).name = "date" Then
            Set drawingText1 = drawingTexts1.Item(n)
            drawingText1.Text = dat
 
                If drawingTexts1.Item(n).name = "name" Then
                Set drawingText1 = drawingTexts1.Item(n)
                drawingText1.Text = nam
 
                    If drawingTexts1.Item(n).name = "desc" Then
                    Set drawingText1 = drawingTexts1.Item(n)
                    drawingText1.Text = prod
Exit Do
End If
End If
End If
End If
End If
End If

Loop Until n = drawingTexts1.Count
 

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

thanks it works !!!! man you are the best 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo!
oder probierst du, diese code

Select case drawingTexts1.Item(n).Name
  case  "description"
    drawingTexts1.Item(n).Text = desk
  case ......
  case.......
End select

Hagard(Slowakia)
Das ist kurtzer code.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von hagard:
Hallo!
oder probierst du, diese code

Select case drawingTexts1.Item(n).Name
  case  "description"
    drawingTexts1.Item(n).Text = desk
  case ......
  case.......
End select

Hagard(Slowakia)
Das ist kurtzer code.

---

danke für deine Antwort. Das ist mir egal, das wistigste ist das der Code funkcioniert (soory for my German  )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

It looks like your german is better than your english!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP