0

对于一个项目，我需要自动化 Axlestand 的设计。

为此，我想让一个零件的长度和直径可变。现在我发现了如何使直径可变，因为这只是草图中的一个值，但我似乎无法让它自动化挤压深度（即零件的长度）。

所以我的问题是；

如何使这部分的长度可变？长度等于挤压深度。

我用来制作直径变量的代码是这样的：

Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Driepoot-1@Assem1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.EditPart
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Sketch1@Driepoot-1@Assem1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 2.74859513030536E-02, -3.06463363579324E-02, 6.16380172114107E-02, False, 0, Nothing, 0)
Set myDisplayDim = Part.AddDimension2(5.72509941423576E-02, 0, -5.63921816082802E-03)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("D1@Sketch1@Driepoot-1@Assem1", "DIMENSION", 0.051312269187431, -3.32967190067487E-02, 5.26236966313736E-02, False, 0, Nothing, 0)
Set myDimension = Part.Parameter("D1@Sketch1@Driepoot.Part")
myDimension.SystemValue = <Insert Diameter here>
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.EditAssembly

希望有人能回答我的问题！:)

蒂姆

4

1 回答 1

0

挤压深度是一个维度。通常命名为“dimension_name@feature_name”，例如“D1@Boss-Extrude1”。所以你可以改变你的例子中的价值：

Dim myDimension As Object
Set myDimension = Part.Parameter("D1@Boss-Extrude1")
myDimension.SystemValue = val
boolstatus = Part.EditRebuild3()

UPD 更改格式。

于 2015-06-28T08:15:26.453 回答