catia齿轮宏程序_Catia宏程序

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Language="VBSCRIPT"

Sub CATMain()

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Add("Part")

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("零件几何体")

Set sketches1 = body1.Sketches

Set originElements1 = part1.OriginElements

Set reference1 = originElements1.PlaneXY

Set sketch1 = sketches1.Add(reference1)

Dim arrayOfVariantOfDouble1(8)arrayOfVariantOfDouble1(0) = 0.000000arrayOfVariantOfDouble1(1) = 0.000000arrayOfVariantOfDouble1(2) = 0.000000arrayOfVariantOfDouble1(3) = 1.000000 arrayOfVariantOfDouble1(4) = 0.000000arrayOfVariantOfDouble1(5) = 0.000000arrayOfVariantOfDouble1(6) = 0.000000arrayOfVariantOfDouble1(7) = 1.000000arrayOfVariantOfDouble1(8) = 0.000000sketch1.SetAb