Hallo,
wie kann ich in einen Geometrischen Set Teilflächen Stücke automatisch miteinander verbinden (Übergang, Tangentenstetig). Eingabe Elemete sollten aber nur die Einzelnen Teilflächen sein, ist so etwas möglich?
Quellcode:
Language="VBSCRIPT"
Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set hybridShapeBlend1 = hybridShapeFactory1.AddNewBlend()
hybridShapeBlend1.Coupling = 1
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Referenz")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapeExtractMulti1 = hybridShapes1.Item("K1")
Set reference1 = part1.CreateReferenceFromObject(hybridShapeExtractMulti1)
hybridShapeBlend1.SetCurve 1, reference1
hybridShapeBlend1.SetOrientation 1, 1
Set hybridShapeExtractMulti2 = hybridShapes1.Item("FL.1")
Set reference2 = part1.CreateReferenceFromObject(hybridShapeExtractMulti2)
hybridShapeBlend1.SetSupport 1, reference2
hybridShapeBlend1.SetTransition 1, 1
hybridShapeBlend1.SetContinuity 1, 1
hybridShapeBlend1.SetTrimSupport 1, 1
hybridShapeBlend1.SetBorderMode 1, 1
hybridShapeBlend1.SetTensionInDouble 1, 1, 0.000000, 0.000000
Set hybridShapeExtractMulti3 = hybridShapes1.Item("K2")
Set reference3 = part1.CreateReferenceFromObject(hybridShapeExtractMulti3)
hybridShapeBlend1.SetCurve 2, reference3
hybridShapeBlend1.SetOrientation 2, -1
Set hybridShapeExtractMulti4 = hybridShapes1.Item("FL.2")
Set reference4 = part1.CreateReferenceFromObject(hybridShapeExtractMulti4)
hybridShapeBlend1.SetSupport 2, reference4
hybridShapeBlend1.SetTransition 2, 1
hybridShapeBlend1.SetContinuity 2, 1
hybridShapeBlend1.SetTrimSupport 2, 1
hybridShapeBlend1.SetBorderMode 2, 1
hybridShapeBlend1.SetTensionInDouble 2, 1, 0.000000, 0.000000
hybridBody1.AppendHybridShape hybridShapeBlend1
part1.Update
End Sub
------------------
Mit freundlichen Grüßen
Catiawest
NIHIL IMPOSSIBILE =)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP