Huhu.
Ich hab ein Makro aufgezeichnet, welches mir im Baum verschiedene verzweigte geo. Sets und Ebenen erzeugt, die ich immer wieder benötige. Diese habe ich danach umbenannt und das auch aufgezeichnet. Beim anwenden und durchlaufen des Makros werden mir aber nun die vergebenen Namen für die geo. Sets und die Ebenen nicht mehr angezeigt! Was kann ich tun, damit diese übernommen werden bzw. was hab ich falsch gemacht? Makros kann ich nur aufzeichnen und nicht selbst schreiben (keine Ahnung davon!!) und einbinden (keine Lizenz).
Gruß, Frank
Weiß nicht, ob das hilft oder notwendig ist, aber hier mal der Quellcode, der aufgezeichnet worden ist:
Language="VBSCRIPT"
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties
Dim part1 As Part
Set part1 = partDocument1.Part
Dim axisSystems1 As AxisSystems
Set axisSystems1 = part1.AxisSystems
Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("Absolute Axis System")
Set axisSystems1 = axisSystem1.Parent
Dim bSTR1 As String
bSTR1 = axisSystem1.Name
selection1.Add axisSystem1
Set visPropertySet1 = visPropertySet1.Parent
Dim bSTR2 As String
bSTR2 = visPropertySet1.Name
Dim bSTR3 As String
bSTR3 = visPropertySet1.Name
visPropertySet1.SetShow 1
selection1.Clear
Dim selection2 As Selection
Set selection2 = partDocument1.Selection
Dim visPropertySet2 As VisPropertySet
Set visPropertySet2 = selection2.VisProperties
Dim originElements1 As OriginElements
Set originElements1 = part1.OriginElements
Dim hybridShapePlaneExplicit1 As AnyObject
Set hybridShapePlaneExplicit1 = originElements1.PlaneXY
selection2.Add hybridShapePlaneExplicit1
Dim hybridShapePlaneExplicit2 As AnyObject
Set hybridShapePlaneExplicit2 = originElements1.PlaneYZ
selection2.Add hybridShapePlaneExplicit2
Dim hybridShapePlaneExplicit3 As AnyObject
Set hybridShapePlaneExplicit3 = originElements1.PlaneZX
selection2.Add hybridShapePlaneExplicit3
Set visPropertySet2 = visPropertySet2.Parent
Dim bSTR4 As String
bSTR4 = visPropertySet2.Name
Dim bSTR5 As String
bSTR5 = visPropertySet2.Name
visPropertySet2.SetShow 0
selection2.Clear
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()
part1.UpdateObject hybridBody1
Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(0.000000, 0.000000, 0.000000)
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(axisSystem1)
hybridShapePointCoord1.RefAxisSystem = reference1
hybridBody1.AppendHybridShape hybridShapePointCoord1
part1.InWorkObject = hybridShapePointCoord1
part1.Update
Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit1)
Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapePointCoord1)
Dim hybridShapePlaneOffsetPt1 As HybridShapePlaneOffsetPt
Set hybridShapePlaneOffsetPt1 = hybridShapeFactory1.AddNewPlaneOffsetPt(reference2, reference3)
hybridBody1.AppendHybridShape hybridShapePlaneOffsetPt1
part1.InWorkObject = hybridShapePlaneOffsetPt1
part1.Update
Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit2)
Dim reference5 As Reference
Set reference5 = part1.CreateReferenceFromObject(hybridShapePointCoord1)
Dim hybridShapePlaneOffsetPt2 As HybridShapePlaneOffsetPt
Set hybridShapePlaneOffsetPt2 = hybridShapeFactory1.AddNewPlaneOffsetPt(reference4, reference5)
hybridBody1.AppendHybridShape hybridShapePlaneOffsetPt2
part1.InWorkObject = hybridShapePlaneOffsetPt2
part1.Update
Dim reference6 As Reference
Set reference6 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit3)
Dim reference7 As Reference
Set reference7 = part1.CreateReferenceFromObject(hybridShapePointCoord1)
Dim hybridShapePlaneOffsetPt3 As HybridShapePlaneOffsetPt
Set hybridShapePlaneOffsetPt3 = hybridShapeFactory1.AddNewPlaneOffsetPt(reference6, reference7)
hybridBody1.AppendHybridShape hybridShapePlaneOffsetPt3
part1.InWorkObject = hybridShapePlaneOffsetPt3
part1.Update
Dim selection3 As Selection
Set selection3 = partDocument1.Selection
Dim visPropertySet3 As VisPropertySet
Set visPropertySet3 = selection3.VisProperties
selection3.Add hybridShapePlaneExplicit1
selection3.Add hybridShapePlaneExplicit2
selection3.Add hybridShapePlaneExplicit3
Set visPropertySet3 = visPropertySet3.Parent
Dim bSTR6 As String
bSTR6 = visPropertySet3.Name
Dim bSTR7 As String
bSTR7 = visPropertySet3.Name
visPropertySet3.SetShow 1
selection3.Clear
Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies1.Add()
part1.UpdateObject hybridBody2
Dim hybridBodies2 As HybridBodies
Set hybridBodies2 = hybridBody2.HybridBodies
Dim hybridBody3 As HybridBody
Set hybridBody3 = hybridBodies2.Add()
part1.UpdateObject hybridBody3
Dim hybridBody4 As HybridBody
Set hybridBody4 = hybridBodies2.Add()
part1.UpdateObject hybridBody4
Dim hybridBody5 As HybridBody
Set hybridBody5 = hybridBodies2.Add()
part1.UpdateObject hybridBody5
Dim hybridBodies3 As HybridBodies
Set hybridBodies3 = hybridBody5.HybridBodies
Dim hybridBody6 As HybridBody
Set hybridBody6 = hybridBodies3.Add()
part1.UpdateObject hybridBody6
Dim hybridBody7 As HybridBody
Set hybridBody7 = hybridBodies3.Add()
part1.UpdateObject hybridBody7
Dim hybridBody8 As HybridBody
Set hybridBody8 = hybridBodies2.Add()
part1.UpdateObject hybridBody8
Dim hybridBody9 As HybridBody
Set hybridBody9 = hybridBodies2.Add()
part1.UpdateObject hybridBody9
Dim hybridBodies4 As HybridBodies
Set hybridBodies4 = hybridBody9.HybridBodies
Dim hybridBody10 As HybridBody
Set hybridBody10 = hybridBodies4.Add()
part1.UpdateObject hybridBody10
Dim hybridBody11 As HybridBody
Set hybridBody11 = hybridBodies4.Add()
part1.UpdateObject hybridBody11
Dim hybridBody12 As HybridBody
Set hybridBody12 = hybridBodies4.Add()
part1.UpdateObject hybridBody12
Dim hybridBody13 As HybridBody
Set hybridBody13 = hybridBodies4.Add()
part1.UpdateObject hybridBody13
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP