![]() ![]() ‘hybridBody1.AppendHybridShape hybridShapeLineNormal1 ‘Set hybridShapeLineNormal1 = hybridShapeFactory1.AddNewLineNormal(reference1, reference2, 0.000000, 1000.000000, False) ![]() ‘Set reference2 = hybridShapePointOnSurface1 ‘Set hybridShapes1 = hybridBody1.HybridShapes Part1.InWorkObject = hybridShapePointOnSurface1 HybridBody1.AppendHybridShape hybridShapePointOnSurface1 Set hybridShapePointOnSurface1 = hybridShapeFactory1.AddNewPointOnSurface(reference1, hybridShapeDirection1, 0.000000) Set reference1 = part1.CreateReferenceFromObject(hybridShapeSurfaceExplicit1) ‘Set reference1 = part1.CreateReferenceFromObject(hybridShapeSurfaceExplicit1) Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirectionB圜oord(0, 0,1) Set hybridShapeSurfaceExplicit1 = parameters.Item(“Surface. ‘Set hybridShapeSurfaceExplicit1 = parameters1.Item(“Surface.679”) Set hybridShapeFactory1 = part1.HybridShapeFactoryĭim hybridShapeSurfaceExplicit1 ‘As hybridShapeSurfaceExplicit1 Status = oSelection.SelectElement2(InputObjectType, “Select Geometrical set.”, True) ‘Set hybridShapeFactory1 = part1.HybridShapeFactory Will you kindly help me in correcting this macro so that I can run as well learn the correct syntax. Input is GS with surfaces & output expected is for each surface respective point to be created and line to be created. I recorded a macro and modified to create Point on a surface and then a line normal to surface. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |