catia-宏

空间技术

有谁能做一个循环语句：点1到点5
Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("GeometryFromExcel")

Set hybridShapes1 = hybridBody1.HybridShapes

Set hybridShapePointCoord1 = hybridShapes1.Item("点.1")

Set reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

Set hybridShapeFactory1 = part1.HybridShapeFactory

Set hybridShapeSphere1 = hybridShapeFactory1.AddNewSphere(reference1, Nothing, 4.000000, -45.000000, 45.000000, 0.000000, 180.000000)

hybridShapeSphere1.Limitation = 1

hybridBody1.AppendHybridShape hybridShapeSphere1

part1.InWorkObject = hybridShapeSphere1

part1.Update
Set hybridShapePointCoord3 = hybridShapes1.Item("点.2")

Set reference3 = part1.CreateReferenceFromObject(hybridShapePointCoord3)

Set hybridShapeSphere3 = hybridShapeFactory1.AddNewSphere(reference3, Nothing, 4.000000, -45.000000, 45.000000, 0.000000, 180.000000)

hybridShapeSphere3.Limitation = 1

hybridBody1.AppendHybridShape hybridShapeSphere3

part1.InWorkObject = hybridShapeSphere3

part1.Update

Set hybridShapePointCoord3 = hybridShapes1.Item("点.3")

Set reference3 = part1.CreateReferenceFromObject(hybridShapePointCoord3)

Set hybridShapeSphere3 = hybridShapeFactory1.AddNewSphere(reference3, Nothing, 4.000000, -45.000000, 45.000000, 0.000000, 180.000000)

hybridShapeSphere3.Limitation = 1

hybridBody1.AppendHybridShape hybridShapeSphere3

part1.InWorkObject = hybridShapeSphere3

part1.Update
Set hybridShapePointCoord3 = hybridShapes1.Item("点.4")

Set reference3 = part1.CreateReferenceFromObject(hybridShapePointCoord3)

Set hybridShapeSphere3 = hybridShapeFactory1.AddNewSphere(reference3, Nothing, 4.000000, -45.000000, 45.000000, 0.000000, 180.000000)

hybridShapeSphere3.Limitation = 1

hybridBody1.AppendHybridShape hybridShapeSphere3

part1.InWorkObject = hybridShapeSphere3

part1.Update
Set hybridShapePointCoord3 = hybridShapes1.Item("点.5")
Set reference3 = part1.CreateReferenceFromObject(hybridShapePointCoord3)
Set hybridShapeSphere3 = hybridShapeFactory1.AddNewSphere(reference3, Nothing, 10.000000, -45.000000, 45.000000, 0.000000, 180.000000)
hybridShapeSphere3.Limitation = 1
hybridBody1.AppendHybridShape hybridShapeSphere3
part1.InWorkObject = hybridShapeSphere3
part1.Update

End Sub

jacker312

半成品，好想收集成品哦

leefeng1991

学习学习，最近在想学catia