---

Hallo,

ich habe folgendes Problem.

Ich habe ein Makro mit dem ich Punkte eine Anmerkung mitgeben will. Die funktioniert soweit bei den Releasstäden für V5 R19, R20.
In R18 bekomme ich mit dem Makro folgende Fehlermeldung:

"Method CreateDatum of object AnnotationFactory failed"

Ich habe mir ein Testszenario mit dem Makrorecorder aufgezeichnet. Dies läuft in R18 auch nicht obwohl es darin erstellt wurde.

Vielleicht kann mir ja jemand helfen. Es müsste an der Zeile

Code:

---

Set annotation1 = annotationFactory1.CreateEvoluateText(userSurface1, 64.142136, 34.142136, 0#, True)

---

liegen.

Hier der komplette Code aus dem Makrorecorder:

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim annotationSets1 As AnnotationSets
Set annotationSets1 = part1.AnnotationSets

Dim annotationSet1 As AnnotationSet
Set annotationSet1 = annotationSets1.Add("Ford_FECDS_3D")

Dim userSurfaces1 As UserSurfaces
Set userSurfaces1 = part1.UserSurfaces

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("PartBody")

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

Dim sketch1 As Sketch
Set sketch1 = sketches1.Item("Sketch.1")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromBRepName("BorderFVertex:(BEdge:(Brp:(Sketch.1;1);None:(Limits1:();Limits2:();+1);Cf11:());WithTemporaryBody;WithoutBuildError;WithLastFeatureSupport;MFBRep Version_CXR15)", sketch1)

Dim userSurface1 As UserSurface
Set userSurface1 = userSurfaces1.Generate(reference1)

Dim bSTR1 As String
bSTR1 = part1.Name

Dim annotationFactory1 As AnnotationFactory
Set annotationFactory1 = annotationSet1.AnnotationFactory

Dim annotation1 As Annotation
Set annotation1 = annotationFactory1.CreateEvoluateText(userSurface1, 64.142136, 34.142136, 0#, True)

annotation1.Text.Text = "Test"

End Sub

---

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hat keiner eine Idee?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hat sich erledigt!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Und wie hast du das Problem gelöst?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Irgendwie hat CATIA unter R18 ein Problem mit "CreateEvoluateText".

"CreateText" usw. lief.

Ich hatte dann die Zeile

Code:

---

Dim annotationFactory1 As AnnotationFactory

---

ohne As AnnotationFactory definiert und dann gings.

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP