Vous m’avez expliqué, il y a quelques jours comment récupérer les coordonnées des points pour le type de charges décrites par 3 points sur des éléments surfaciques d'un modèle Robot.
For j = 1 To serveurcharges.Count
Set RC = serveurcharges.Get(j)
If serveurcharges.Get(j).Type = I_LRT_IN_CONTOUR Then
Set RLRC = serveurcharges.Get(j)
For jj = 1 To RLRC.GetValue(I_ICRV_NPOINTS)
RLRC.GetContourPoint jj, x, y, z
Next jj
Else
If Not RC.IsAutoGenerated Then
Set charges = serveurcharges.Get(j)
End If
End If
Next j
J’ai essayé de reprendre la méthode pour récupérer les coordonnées des points correspondant aux charges « linéaires 2P » et aux charges « linéaires sur bord », mais cela ne fonctionne pas. Pouvez-vous me dépanner ? Merci !
Thanks to translate.google.com we can understand what you mean 🙂
Dim charges As RobotLoadRecord
......
If serveurcharges.Get(j).Type = I_LRT_LINEAR_ON_EDGES Then Set charges = serveurcharges.Get(j) sss = charges.GetValue(I_LOERV_PZ) endif
My question concerns the problem of recovering the coordinates of points corresponding to the loads "2P linear" loads and "linear on board."
Thank you for your answer
My question concerns the problem of recovering the coordinates of points corresponding to the loads "2P linear" loads and "linear on board."
Internally , load on edge is converted to 2P linear load (additionally it has isautogenerated = true) so you can access both types by this code:
Dim chlin3d As RobotLoadRecordLinear3D ..... If serveurcharges.Get(j).Type = I_LRT_LINEAR_3D Then Set chlin3d = serveurcharges.Get(j) chlin3d.GetPoint 1, x, y, z chlin3d.GetPoint 2, x, y, z aaa = chlin3d.GetValue(I_L3DRV_PZ1) bbb = chlin3d.GetValue(I_L3DRV_PZ2) endif
Could you tell me how to retrieve the node number given by Robot? thank you.
while creating node you can do it like that
dim Newnumber as Integer
Newnumber = robapp.Project.Structure.Nodes.FreeNumber
If you mean smething else please explain.
Can't find what you're looking for? Ask the community or share your knowledge.