ANSYS小型破碎机执行部分程序

ANSYS小型破碎机执行部分程序
小型破碎机执行部分程序
Private Sub FANGZHEN_Click()
jlsgjg.Cls
X = 3600
Y = 4000
CurrentX = X
CurrentY = Y
'寻找最长杆
XBMax = Abs(XB(0))
XCMax = Abs(XC(0))
XDMax = Abs(XD)
XMMax = Abs(XM(0))
YBMax = Abs(YB(0))
YCMax = Abs(YC(0))
YDMax = Abs(YD)
YMMax = Abs(YM(0))
For j = 1 To N - 1
If Abs(XB(j)) > XBMax Then XBMax = Abs(XB(j))
If Abs(XC(j)) > XCMax Then XCMax = Abs(XC(j))
If Abs(XM(j)) > XMMax Then XMMax = Abs(XM(j))
If Abs(YB(j)) > YBMax Then YBMax = Abs(YB(j))
If Abs(YC(j)) > YCMax Then YCMax = Abs(YC(j))
If Abs(YM(j)) > YMMax Then YMMax = Abs(YM(j))