Möchte auf eine Fläche eine Senkrechte basierend auf einem Punkt auf der Fläche erstellen.
Da ich nun über 100 Punkte auf der Fläche ( Punkt 1 Punkt 2 usw) habe, benötoge ich eine schleife des Macro die für alle Punkte eine Senkrechte generiert.
Vielen Dank für Euer Feedback
PS: meine Stärken liegen sicherlich nicht beim erstellen eines Makro http://ww3.cad.de/foren/ubb/icons/icon6.gif
Language="VBSCRIPT"
Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set parameters1 = part1.Parameters
Set hybridShapeSurfaceExplicit1 = parameters1.Item("Fläche.1")
Set reference1 = part1.CreateReferenceFromObject(hybridShapeSurfaceExplicit1)
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Point")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapePointOnSurface1 = hybridShapes1.Item("Punkt.1")
Set reference2 = part1.CreateReferenceFromObject(hybridShapePointOnSurface1)
Set hybridShapeLineNormal1 = hybridShapeFactory1.AddNewLineNormal(reference1, reference2, 0.000000, 20.000000, False)
Set hybridBody2 = hybridBodies1.Item("Senkrechte")
hybridBody2.AppendHybridShape hybridShapeLineNormal1
part1.InWorkObject = hybridShapeLineNormal1
part1.Update
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP