WOW! I've found a solution!
Dim LD As femap.LoadDefinition
Set LD = App.feLoadDefinition
LD.PutAll(3,FT_SURF_LOAD,FT_NODE,"")
and
LM.LoadDefinitionID = 3
So, LD.loadType needs to be FT_NODE and LD.dataType = FT_SURF_LOAD. This constants will create load definition with type Force on...
When I use a command LM = LD.ID all created loadMeshes disappears from model tree. If I don't use this command loadMeshes puts into Other Loads (passing any Load Definition).
Sub createLoadsX(i As Integer)
LS.Active = LS.ID
Dim gr As Group
Dim grID As Long
grID = wb.Sheets(wsh).Cells(2+i...
