问答精选2024（第十期） | CATIA怎样做弹簧拉伸和压缩的运动模拟？

4、编辑代码如下：

Sub CATMain()

Dim L1 As Length

Dim L2 As Length

Set L1 = CATIA.ActiveDocument.Part.Parameters.Item(“Part1几何图形集.1螺旋线.1螺距”)

Set L2 = CATIA.ActiveDocument.Part.Parameters.Item(“Part1几何图形集.1螺旋线.1高度”)

‘MsgBox “当前螺距=” & L1.Value

‘MsgBox “当前高度=” & L2.Value

Step = 0.1

Do

L1.Value = L1.Value + Step

L2.Value = L1.Value * 10

CATIA.ActiveDocument.Part.Update

If L1.Value > 15 Then

Step = -0.1

ElseIf L1.Value

Step = 0.1

End If

DoEvents

Loop