Ich hab mir ein Makro aufgezcihnet, bei dem ein Achsensystem aus Linien (keine Skizzen) eingefügt wird.
Die 3 Linien liegen in Richtung der drei Achsen des absoluten Achsensystems.
Ich möchte gerne in mein Script einbauen, das man per InputBox Den Einfügepunkt für das neue "Linien-Achsensystem" auswählen kann. DIe Inputbox bekomme ich soweit hin, das Problem ist, das ich nicht hinbekomme, Catia zu sagen das es die Linien dann auch an dem Punkt aufbaut.
Hier das Script:
Language="VBSCRIPT"
Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set axisSystems1 = part1.AxisSystems
Set axisSystem1 = axisSystems1.Item("Absolutes Achsensystem")
Set reference1 = part1.CreateReferenceFromBRepName("RSur :(Face :(Brp :(AxisSystem.1;1);None :());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport)", axisSystem1)
Set reference2 = part1.CreateReferenceFromBRepName("FVertex :(Vertex :(Neighbours :(Face :(Brp :(AxisSystem.1;2);None :());Face :(Brp :(AxisSystem.1;3);None :());Face :(Brp :(AxisSystem.1;1);None :())));WithPe rmanentBody;WithoutBuildError;WithSelectingFeatureSupport)", axisSystem1)
Set hybridShapeLineNormal1 = hybridShapeFactory1.AddNewLineNormal(reference1, reference2, -50.000000, 50.000000, False)
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Geöffneter Körper.1")
hybridBody1.AppendHybridShape hybridShapeLineNormal1
part1.InWorkObject = hybridShapeLineNormal1
part1.Update
End Sub
Das ist jetzt das Script mit nur einer Linie, vielleich was ja jemand dafür eine Lösung :)
[Diese Nachricht wurde von uwe.a am 07. Mai 2003 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
