Hallo,
ich würde gerne meine Makros in einem Part im eigenen Fanster laufen lassen und genauso in der Produktstruktur in der ein Part aktiv ist...
Habe mal folgenden Beispielcode aufgezeichnet:
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Part1.CATPart")
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim hybridShapeLinePtDir1 As HybridShapeLinePtDir
Set hybridShapeLinePtDir1 = hybridShapes1.Item("Line.1")
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeLinePtDir1)
Dim hybridShapeInverse1 As HybridShapeInverse
Set hybridShapeInverse1 = hybridShapeFactory1.AddNewInverse(reference1, 1)
hybridBody1.AppendHybridShape hybridShapeInverse1
part1.InWorkObject = hybridShapeInverse1
part1.Update
_________
In dieser zeile:
Set partDocument1 = documents1.Item("Part1.CATPart")
will ich kein spezifischen Part namen eingeben sondern es soll erkannt werden welches Part gerade aktiv ist, und dieses soll dann benutzt werden...
Wie gesagt das ist nur ein Beispielhaft aufgezeichneter Code und die Problematik bezieht sich auch nur auf die Erkennung des aktiven Part im Produkt.
kann mir da jemand helfen??
Gruss Niko
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP