hi @renatogheno
you should consult this topic: https://forums.autodesk.com/t5/robot-structural-analysis-forum/wind-simulation-wind-velocity-profile...
creating a wind profile file consists of a csv file that you can generate as follows
C:\Users\%your_login%\AppData\Roaming\Autodesk\Autodesk Robot Structural Analysis Professional 20XX\CfgUsr\Wind Profiles
Public Enum Terrain
T_0
T_NA_0
T_I
T_II
T_III
T_NA_IIIa
T_NA_IIIb
T_IV
T_NA_IV
End Enum
Sub CreateAllCSV()
Dim z As Double, z0 As Double, zmin As Double, zmax As Double
For c = 0 To 8
Select Case c
Case T_0: z0 = 0.003: zmin = 1: FName = "WP_0"
Case T_NA_0: z0 = 0.005: zmin = 1: FName = "WP_NA_0"
Case T_I: z0 = 0.01: zmin = 1: FName = "WP_I"
Case T_II: z0 = 0.05: zmin = 2: FName = "WP_II"
Case T_III: z0 = 0.3: zmin = 5: FName = "WP_III"
Case T_NA_IIIa: z0 = 0.2: zmin = 5: FName = "WP_NA_IIIa"
Case T_NA_IIIb: z0 = 0.5: zmin = 9: FName = "WP_NA_IIIb"
Case T_IV: z0 = 1: zmin = 10: FName = "WP_IV"
Case T_NA_IV: z0 = 1: zmin = 15: FName = "WP_NA_IV"
End Select
Version = 2026 '...................Enter your Robot version number
appDataPath = Environ("AppData")
RobotDirectory = "\Autodesk\Autodesk Robot Structural Analysis Professional " & Version & "\CfgUsr\Wind Profiles\"
filePath = appDataPath & RobotDirectory & FName & ".csv"
fileNumber = FreeFile
Open filePath For Output As #fileNumber
zmax = 200
dval = 0.05: logRef = Log(zmin / z0)
Print #fileNumber, 1 & ","; 0
v = 1#
Do
z = z0 * Exp(v * logRef): If z > zmax Then Exit Do
Print #fileNumber, YourFunction(z, z0, zmin) & ","; Round(z, 3) ' Replace with your function
v = v + dval
Loop
Print #fileNumber, Round(YourFunction(zmax, z0, zmin), 3) & ","; zmax
Close #fileNumber
Next
MsgBox "CSV files successfully created"
End Sub
Function YourFunction(z As Double, Optional z0 As Double = 0.2, Optional zmin As Double = 5) As Double 'default IIIa
YourFunction = Log(IIf(z < zmin, zmin, z) / z0) / Log(zmin / z0) 'cr(z)/cr(zmin)
End Function
Best regards
Stéphane Kapetanovic
Did you find this post helpful? If it gave you one or more solutions,
don't forget to click the Accept Solution button and leave a < like !
