Community
Hello,
I've done a program for my thesis, dimension steel connection Column-Beam.
But i have a problem, I want to create bar release using API macro in Excel, to apply the Value Rigidity at node.
I Know create bar release (after verification steel connection) but i don`t know applying the value Rigidity "13000" kN/m (picture), by connection semi-rigid. In my code i don`t have apply the value. What is the problem?
After apply the value rigidity i need to calculate and see the variation of diagrams of bars.
I need your help
Thanks
Code:
Sub Rigidity_Click()
Set RobApp = New RobotApplication
Dim RLabel As RobotLabel
Dim RelData As RobotBarReleaseData
Dim EndData As RobotBarEndReleaseData
Const rigidity As Double = 13000
Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_BAR_RELEASE, "Teste dissertação")
Set RelData = RLabel.Data
Set EndData = RelData.StartNode
EndData.Ry = I_BERV_ELASTIC = rigidity
Set EndData = RelData.EndNode
EndData.Ry = I_BERV_ELASTIC
RobApp.Project.Structure.Labels.Store RLabel
End Sub
Example code
Dim RLabel As RobotLabel Dim RelData As RobotBarReleaseData Dim EndData As RobotBarEndReleaseData Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_BAR_RELEASE, "MY RELEASE") Set RelData = RLabel.Data Set EndData = RelData.StartNode EndData.UX = I_BERV_ELASTIC EndData.KX = 10000 Set EndData = RelData.EndNode EndData.UY = I_BERV_ELASTIC EndData.KY = 20000 RobApp.Project.Structure.Labels.Store RLabel
Hello,
Yes it did.
I've already applied the value Rigidity, after calculate my steel connection.
Thanks