- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi,
I have problem with VBA;
RSA blocks at the line : RdimLabelData.SetDeflYZRelLimit I_DMDDDT_DEFL_Z_FROM_LIVE_LOADS, 300
Here is the example:
Private Sub TEST_Click()
Dim RobApp As RobotApplication
Set RobApp = New RobotApplication
RobApp.Project.Preferences.SetActiveCode I_CT_STEEL_STRUCTURES, "NF EN 1993-1-1:2005/NA:2013/A1:2014"
Dim RLabel As IRobotLabel
Dim RdimLabelData As IRDimMembDefData
Dim RDimMembParams As IRDimMembParamsE32
Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_MEMBER_TYPE, "TYPE_1")
Set RdimLabelData = RLabel.Data
RdimLabelData.SetDeflYZRelLimit I_DMDDDT_DEFL_Z, 200
RdimLabelData.SetDeflectionYZ I_DMDDDT_DEFL_Z, 1
RdimLabelData.SetDeflYZRelLimit I_DMDDDT_DEFL_Z_FROM_LIVE_LOADS, 300
RdimLabelData.SetDeflectionYZ I_DMDDDT_DEFL_Z_FROM_LIVE_LOADS, 1
Set RDimMembParams = RdimLabelData.CodeParams
RdimLabelData.CodeParams = RDimMembParams
RobApp.Project.Structure.Labels.Store RLabel
Set RLabel = Nothing
End Sub
Thanks for your help
Solved! Go to Solution.