Hallo allerseits,
ich habe folgendes Problem.
Ich will Balloons (bzw. einen Text mit Kreis drumherum) erzeugen, die zur Kennzeichnung von Prüfmaßen dienen.
Das klappt alles wunderbar, nur wenn ich dem Text den FrameType catCircle (bzw. irgendeinen anderen FrameType) zuweisen möchte passiert garnichts.
Die Stelle wos hakt sieht so aus. Hoffe da weiß einer Rat.
Set UserSel = CATIA.ActiveDocument.Selection
For I = 1 To UserSel.Count
Set oDimension = UserSel.Item(I).Value
oDimension.GetBoundaryBox (oValue)
Set oView = oDimension.Parent.Parent
Set oTexts = oView.Texts
Set oText = oTexts.Add(StrConv(I, vbUnicode), oValue(0), oValue(1))
oText.FrameType = catCircle '<- Wird nicht ausgeführt
Next
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP