Good day!
I'm writing a code that will draw F.E. panels in RSA using VBA. I'm having a problem with a single line of code and I can't proceed from there. Please see attached image.
Solution to this problem will be greatly appreciated.
Thanks.
Solved! Go to Solution.
Solved by berncabebe. Go to Solution.
Maybe you can do like they do on tutorial:
'Create a selection of finite elements (use the selection server).
Dim allFE As IRobotSelection
Set allFE = robApp.Project.Structure.Selections.CreateFull(I_OT_FINITE_ELEMENT)
'Create the object number 1 basing on the selected FE.
Dim col As IRobotNumbersCollection
Set col = robApp.Project.Structure.Objects.CreateOnFiniteElems(allFE.ToText(), 1)
' Release a reference.
Set allFE = Nothing
' Retrieve the defined object.
Dim obj As IRobotObjObject
Set obj = robApp.Project.Structure.Objects.Get(1)
' Freeze the generated mesh of finite elements.
obj.Mesh.Freeze = True
' Add the thickness label to the defined object
obj.SetLabel I_LT_PANEL_THICKNESS, "thick1"
' Add the reinforcement label to the defined object.
obj. SetLabel I_LT_PANEL_REINFORCEMENT, "reinf1"
' Update the object after changing its attribution.
obj.Update
Do this help you?