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.SetAbsoluteAxisData arrayOfVariantOfDouble1

part1.InWorkObject = sketch1

Set factory2D1 = sketch1.OpenEdition()

Set geometricElements1 = sketch1.GeometricElements

Set axis2D1 = geometricElements1.Item("绝对轴")

Set line2D1 = axis2D1.GetItem("横向")

line2D1.ReportName = 1

Set line2D2 = axis2D1.GetItem("纵向")

line2D2.ReportName = 2

Set circle2D1 = factory2D1.CreateClosedCircle(0.000000, 0.000000, 8.000000)

Set point2D1 = axis2D1.GetItem("原点")

circle2D1.CenterPoint = point2D1

circle2D1.ReportName = 3

sketch1.CloseEdition

part1.InWorkObject = sketch1

part1.Update

Set shapeFactory1 = part1.ShapeFactory

Set pad1 = shapeFactory1.AddNewPad(sketch1, 20.000000)

Set limit1 = pad1.FirstLimit

Set length1 = limit1.Dimension

length1.Value = 90.000000

part1.Update

Set reference2 = part1.CreateReferenceFromName("")

Set chamfer1 = shapeFactory1.AddNewChamfer(reference2, catTangencyChamfer, catLengthAngleChamfer, catNoReverseChamfer, 1.000000, 45.000000)

Set reference3 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(Pad.1;2);None:();Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", pad1)

chamfer1.AddElementToChamfer reference3

chamfer1.Mode = catLengthAngleChamfer

chamfer1.Propagation = catTangencyChamfer

chamfer1.Orientation = catNoReverseChamfer

Set parameters1 = part1.Parameters

Set length2 = parameters1.Item("Part1\零件几何体\倒角.1\倒角色带.1\长度 1")

length2.Value = 3.000000

Set parameters2 = part1.Parameters

Set angle1 = parameters2.Item("Part1\零件几何体\倒角.1\倒角色带.1\角度")

angle1.Value = 3.000000

chamfer1.Orientation = catReverseChamfer

part1.Update

Set reference4 = part1.CreateReferenceFromName("")

Set constRadEdgeFillet1 = shapeFactory1.AddNewSolidEdgeFilletWithConstantRadius(reference4, catTangencyFilletEdgePropagation, 5.000000)

Set specsAndGeomWindow1 = CATIA.ActiveWindow

Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Set viewpoint3D1 = viewer3D1.Viewpoint3D

Set parameters3 = part1.Parameters

Set length3 = parameters3.Item("Part1\零件几何体\倒圆角.1\CstEdgeRibbon.1\半径")

length3.Value = 2.000000

Set viewpoint3D1 = viewer3D1.Viewpoint3D

Set viewpoint3D1 = viewer3D1.Viewpoint3D

Set reference5 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(Pad.1;1);None:();Cf11:());Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;3)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", chamfer1)

constRadEdgeFillet1.AddObjectToFillet reference5

constRadEdgeFillet1.EdgePropagation = catTangencyFilletEdgePropagation

part1.Update

Set partDocument1 = CATIA.ActiveDocument

partDocument1.SaveAs "C:\Users\Administrator\Pictures\Axingdaozhu1690.CATPart"

specsAndGeomWindow1.Close

Set partDocument1 = CATIA.ActiveDocument

partDocument1.Close

End Sub

哪位大神能帮我看看这段程序，这段程序画了一个导柱，我想知道是哪两个变量控制了导柱的直径和它的长度？？？？？

免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删