Macro Modify text on Detail sheet

[jagodragon]

Hello,

I am trying to modify the content of a text box on the detail sheet via a macro. I tried using the code below but it gives an error. (the code works for modifying text in a drawing sheet)

'-------[indent][/indent]
  Dim myDrawing As DrawingDocument
  Dim Sheets As DrawingSheets
  Dim CurSheet As DrawingSheet
  Dim DetSheet As DrawingSheet
  Dim CurViews As DrawingViews
  Dim DetViews As DrawingViews
  Dim TextToFill_1 As DrawingText
  Dim TB_NUMBER1 As String

  Set myDrawing = CATIA.ActiveDocument
  Set Sheets = myDrawing.Sheets
  Set CurSheet = myDrawing.Sheets.ActiveSheet
  Set DetSheet = myDrawing.Sheets.Item(2)
  Set CurViews = CurSheet.Views
  Set DetViews = DetSheet.Views

  CurView = "Background View"
  DetView1 = "Shiloh_TB_Body"

  TB_NUMBER1 = InputBox("Drawing Number: ", "TB_NUMBER", "DRAWING-NUMBER")

  DetSheet.Activate
  DetViews.Item(DetView1).Activate

  Set TextToFill_1 = Texts.GetItem("TB_NUMBER")
  TextToFill_1.Text = TB_NUMBER1

  CurSheet.Activate
  CurViews.Item(CurView).Activate

This code works fine when i am not switching to the detail view.. I noticed the the text is classified differently on the detail views, i assume this is the root of my problem. can any one help?

Regards,

Jago

 

[ferdo]

Hi,

Maybe something here will help you.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU