Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Text insert

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Text insert (1269 mal gelesen)
toyo83
Mitglied
CAD Application Engineer


Sehen Sie sich das Profil von toyo83 an!   Senden Sie eine Private Message an toyo83  Schreiben Sie einen Gästebucheintrag für toyo83

Beiträge: 21
Registriert: 15.02.2007

Ok it works !!
You forgot to put File in brackets :)
Thanks and best REGARDS guys !!!!!!

erstellt am: 01. Mrz. 2007 10:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Proofin
Mitglied
Dpl.Ing


Sehen Sie sich das Profil von Proofin an!   Senden Sie eine Private Message an Proofin  Schreiben Sie einen Gästebucheintrag für Proofin

Beiträge: 208
Registriert: 24.11.2004

erstellt am: 01. Mrz. 2007 12:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für toyo83 10 Unities + Antwort hilfreich

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

toyo83
Mitglied
CAD Application Engineer


Sehen Sie sich das Profil von toyo83 an!   Senden Sie eine Private Message an toyo83  Schreiben Sie einen Gästebucheintrag für toyo83

Beiträge: 21
Registriert: 15.02.2007

Ok it works !!
You forgot to put File in brackets :)
Thanks and best REGARDS guys !!!!!!

erstellt am: 01. Mrz. 2007 12:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Proofin
Mitglied
Dpl.Ing


Sehen Sie sich das Profil von Proofin an!   Senden Sie eine Private Message an Proofin  Schreiben Sie einen Gästebucheintrag für Proofin

Beiträge: 208
Registriert: 24.11.2004

erstellt am: 01. Mrz. 2007 13:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für toyo83 10 Unities + Antwort hilfreich

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

toyo83
Mitglied
CAD Application Engineer


Sehen Sie sich das Profil von toyo83 an!   Senden Sie eine Private Message an toyo83  Schreiben Sie einen Gästebucheintrag für toyo83

Beiträge: 21
Registriert: 15.02.2007

Ok it works !!
You forgot to put File in brackets :)
Thanks and best REGARDS guys !!!!!!

erstellt am: 01. Mrz. 2007 14:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

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

hagard
Mitglied
Student


Sehen Sie sich das Profil von hagard an!   Senden Sie eine Private Message an hagard  Schreiben Sie einen Gästebucheintrag für hagard

Beiträge: 21
Registriert: 28.03.2006

erstellt am: 06. Mrz. 2007 13:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für toyo83 10 Unities + Antwort hilfreich

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

toyo83
Mitglied
CAD Application Engineer


Sehen Sie sich das Profil von toyo83 an!   Senden Sie eine Private Message an toyo83  Schreiben Sie einen Gästebucheintrag für toyo83

Beiträge: 21
Registriert: 15.02.2007

Ok it works !!
You forgot to put File in brackets :)
Thanks and best REGARDS guys !!!!!!

erstellt am: 06. Mrz. 2007 15:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Stoffel
Mitglied
Student


Sehen Sie sich das Profil von Stoffel an!   Senden Sie eine Private Message an Stoffel  Schreiben Sie einen Gästebucheintrag für Stoffel

Beiträge: 322
Registriert: 09.10.2002

R6/V2010

erstellt am: 12. Mrz. 2007 17:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für toyo83 10 Unities + Antwort hilfreich

It looks like your german is better than your english!

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz