Hallo,
ich möchte Textfelder in einem Detail ändern, bekomme aber
den Zugriff auf die Texte nicht hin. Zum testen habe ich ein Makro
zusammenstoppelt:
Dim MySheet As DrawingSheet
Set MySheet = CATIA.ActiveDocument.Sheets.ActiveSheet
Dim MyView As DrawingView
Dim View2 As DrawingView
Set MyView = MySheet.Views.ActiveView
Dim i As Integer
i = MyView.Components.Count
MsgBox "Count " & i ' Diese Ausgabe ist korrekt
Dim ThisDrawingComponent As DrawingComponent
Set ThisDrawingComponent = MyView.Components.Item(1)
MsgBox "Name " & ThisDrawingComponent.Name 'Dies stimmt auch
Set View2 = ThisDrawingComponent.GetModifiableObject(1)
MsgBox "Object " & View2.Name 'Dies stimmt auch
' bis hierher funktioniert alles, das Dito wird View2 zugewiesen
Dim TextCollection As DrawingTexts
Set TextCollection = View2.Texts ' diese Zuweisung tut nicht
Da die Zuweisung von View2 funktioniert hat, müsste ich doch
genauso wie in einer Standardview auf View.Texts zugreifen können ?
Ich bin für jeden Hinweis Dankbar.
Grüße
Michael
PS: ich arbeite mit CATIA V5 R14 unter AIX
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP