Hi Pro,
Có pro nào biết cho mình hỏi tại sao mình không thể gán Stiffness cho 2 đầu dầm như đoạn code dưới không? Code lấy từ Documentation của Etabs.
![.png]()
1.png (Kích cỡ: 45.62 KB / Tải về: 4)
Có pro nào biết cho mình hỏi tại sao mình không thể gán Stiffness cho 2 đầu dầm như đoạn code dưới không? Code lấy từ Documentation của Etabs.
Code:
''Set releaseDim ii() As Boolean
Dim jj() As Boolean
Dim StartValue() As Double
Dim EndValue() As Double
ReDim ii(5)
ReDim jj(5)
ReDim StartValue(5)
ReDim EndValue(5)
ii(5) = True
jj(5) = True
StartValue(5) = 10000#
EndValue(5) = 10000#
ret = mySapModel.FrameObj.SetReleases("441", ii, jj, StartValue, EndValue)
1.png (Kích cỡ: 45.62 KB / Tải về: 4)