Ich hab die Aufzeichnung aus dem Part mal versucht umzumodeln... leider mit mäßigem Erfolg:
Sub CATMain()
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("TM9.CATPart")
Dim part1 As Part
Set part1 = partDocument1.Part
Dim productDocument1 As ProductDocument
Set productDocument1 = documents1.Item("B.CATProduct")
Dim product1 As Product
Set product1 = productDocument1.Product
Dim annotationSets1 As AnnotationSets
Set annotationSets1 = part1.AnnotationSets
Dim annotationSet1 As AnnotationSet
Set annotationSet1 = annotationSets1.Add("DrawingStyle")
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("RibPath")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapes1.Item("Point.1")
Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromObject(hybridShapePointCoord1)
Dim userSurfaces1 As UserSurfaces
Set userSurfaces1 = product1.UserSurfaces
Dim userSurface1 As UserSurface
Set userSurface1 = userSurfaces1.Generate(reference1)
Dim bSTR1 As String
bSTR1 = product1.Name
Dim annotationFactory1 As AnnotationFactory
Set annotationFactory1 = annotationSet1.AnnotationFactory
Dim annotation1 As Annotation
Set annotation1 = annotationFactory1.CreateEvoluateText(userSurface1, 213.414291, -3634.449219, 0#, False)
annotation1.Text.Text = "abc"
product1.UpdateObject annotation1
End Sub
Leider versteh ich nicht ganz was das UserSurface bringt oder wie man es richtig anpasst. Vllt hat jemand einen Tipp für mich?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP