Hi,
In the OpenSTAAD function View.SelectEntitiesConnectedToNode EntityType, NodeNo the EntityType should be defined properly. You have tried to select the members connected to a node. So the Entity Type should be specified as 1, not 2.
You need to modify the function as--
objOpenSTAAD.View.SelectEntitiesConnectedToNode(1, 6)
I have used the following code and it works properly in my machine--
Dim intEntityType As Integer
Dim lNodeNo As Long
Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
intEntityType = 1
lNodeNo = 2
objOpenSTAAD.View.SelectEntitiesConnectedToNode intEntityType, lNodeNo
