(API) Planar on contour - Text edition

[Stephane.kapetanovic]

A copy of a popular discussion thread from 2015.

     Do While row <= Lastrow
       
        If (Cells(row, 1) <> "") Then
           
            ROSelection.FromText Str(Cells(row, 2))
            ROSelection.Exclude RBSelection
            ROSelection.Exclude RGSelection
           
            Set Simplecase = CaseServer.Get(CInt(Cells(row, 1)))
            Set rec_1 = Simplecase.Records.Create(I_LRT_IN_CONTOUR)
            rec_1.Objects.FromText Str(Cells(row, 2))
            rec_1.SetValue I_ICRV_PX1, CDbl(Cells(row, 3)) * 1000
            rec_1.SetValue I_ICRV_PY1, CDbl(Cells(row, 4)) * 1000
            rec_1.SetValue I_ICRV_PZ1, CDbl(Cells(row, 5)) * 1000
            rec_1.SetValue I_ICRV_NPOINTS, Int(Cells(row, 6))
            rec_1.SetVector 0, 0, 1
            rec_1.SetContourPoint 1, CDbl(Cells(row, 7)), CDbl(Cells(row, 8)), CDbl(Cells(row, 9))
            row = row + 1
        Else
            For K = 2 To rec_1.GetValue(I_ICRV_NPOINTS)
                rec_1.SetContourPoint K, CDbl(Cells(row, 7)), CDbl(Cells(row, 8)), CDbl(Cells(row, 9))
                row = row + 1
            Next K
        End If
    Loop

[Stephane.kapetanovic]

next msg