Macro Modify text on Detail sheet
Macro Modify text on Detail sheet
(OP)
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)
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
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)
CODE -->
'------- 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





RE: Macro Modify text on Detail sheet
Maybe something here will help you.
Regards
Fernando
https://picasaweb.google.com/102257836106335725208 - Romania
https://picasaweb.google.com/103462806772634246699... - EU