Option Explicit

Private Sub CommandButton1_Click()
Dim RobApp As RobotApplication
Set RobApp = New RobotApplication
RobApp.Interactive = False

Dim i As Integer, j As Integer
i = 3
j = 1
Dim mysupport As RobotNodeSupportData
Dim mylabel As RobotLabel
Dim mynlm2 As RobotNonlinearLinkParamsCustom
Dim mynlmCS As RobotNonlinearLinkParamsCustomSegment
Dim myNLM As RobotNonlinearLink
Set mylabel = RobApp.Project.Structure.Labels.Create(I_LT_SUPPORT, apoio_no_ + CStr(Cells(i, 1)))
Set mysupport = mylabel.Data

If IsNumeric(RobApp.Project.Structure.Nodes.NonlinearLinks.Find(CStr(Cells(i, 1)) + _UX)) = True Then
RobApp.Project.Structure.Nodes.NonlinearLinks.Remove RobApp.Project.Structure.Nodes.NonlinearLinks.Find(CStr(Cells(i, 1)) + _UX)
End If
    
Set myNLM = RobApp.Project.Structure.Nodes.NonlinearLinks.Create(CStr(Cells(i, 1)) + _UX)
myNLM.SetCurveType 8
' myNLM.Symetry this code only gives information if symetry is true or false. When I create a RobotNonlinearLink this property is always true
Set mynlm2 = myNLM.GetParams
For i = 8 To 10
    Set mynlmCS = mynlm2.New()
    mynlmCS.OriginPoint = Cells(i, 2).Value  100#
    mynlmCS.Expression = CStr(Cells(i, 3).Value  1000)
    mynlm2.Set j, mynlmCS
    myNLM.SetParams mynlm2, I_NLSAT_POSITIVE
    j = j + 1
Next
j = 1
For i = 3 To 7
    Set mynlmCS = mynlm2.New()
    mynlmCS.OriginPoint = Cells(i, 2).Value  100#
    mynlmCS.Expression = CStr(Cells(i, 3).Value  1000)
    mynlm2.Set j, mynlmCS
    myNLM.SetParams mynlm2, I_NLSAT_NEGATIVE
    j = j + 1
Next
mysupport.NonlinearModel.Set I_DOF_UX, CStr(Cells(3, 1)) + _UX
RobApp.Project.Structure.Labels.Store mylabel
RobApp.Interactive = True
Set RobApp = Nothing
MsgBox (The End!)
End Sub