該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

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

哪位大神能幫我看看這段程序，這段程序畫了一個導柱，我想知道是哪兩個變量控制了導柱的直徑和它的長度？？？？？

總結

以上是生活随笔為你收集整理的catia齿轮宏程序_Catia宏程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。