Hallo,
ich sitze hier vor dem Problem, meine automatisiert erstellten Annotations bei der Erstellung zu modifizieren.
D.h. ich möchte z.b. die Farbe ändern, eine Umrandung einblenden, ...
Jedoch bekomme ich diese Eigenschaften nicht angesprochen.
Auszug aus meinem bisherigen Quellcode:
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(40#, 50#, 60#)
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("Hauptkörper")
body1.InsertHybridShape hybridShapePointCoord1
part1.InWorkObject = hybridShapePointCoord1
Set reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord1)
Set hybridShapeSphere1 = hybridShapeFactory1.AddNewSphere(reference1, Nothing, 6#, -45#, 45#, 0#, 180#)
hybridShapeSphere1.Limitation = 1
body1.InsertHybridShape hybridShapeSphere1
part1.InWorkObject = hybridShapeSphere1
Set annotationSets1 = part1.AnnotationSets
Set annotationSet1 = annotationSets1.Add("ISO")
Set hybridShapes1 = body1.HybridShapes
Set hybridShapePointCoord1 = hybridShapes1.Item("Punkt.1")
Set reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord1)
Set userSurfaces1 = part1.UserSurfaces
Set userSurface1 = userSurfaces1.Generate(reference1)
Set annotationFactory1 = annotationSet1.AnnotationFactory
Set annotation1 = annotationFactory1.CreateEvoluateText(userSurface1, 12.85576, 24#, 0#, True)
annotation1.TEXT.TEXT = "TEST1"
annotation1.TEXT.Get2dAnnot.SetFontName 0, 0, "Courrier10 BT"
annotation1.TEXT.Get2dAnnot.SetFontSize 0, 0, 15
Bild1 stellt das bisherige Ergebnis dar.
Auf Bild2 soll die Schriftfarbe geändert werden (in schwarz).
Auf Bild3 soll eine Umrahmung aktiviert werden und die Rahmenfarbe (schwarz) festgelegt werden.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP