C3D.create_par

nStatus = C3D.create_par( Fid       AS HANDLE,

                          Parameter AS STRING,

                          nType     AS INTEGER,

                          nRow      AS INTEGER,

                          nCol      AS INTEGER,

                          nDepth    AS INTEGER ) AS INTEGER

Creates a new C3D parameter

Example

DIM hFid AS HANDLE

DIM i AS INTEGER

DIM s AS STRING

' Open File

hFid = C3D.OPEN( "e:\kalle.c3d" )

IF hFid = NULL THEN

  PRINT "Error opening file",

  STOP

ENDIF

' Create new parameter deleting it first to make sure it doesn't already exist

PRINT "Creating a new parameter...",

C3D.DELETE_PAR( hFid, "POINT:KALLE" )

C3D.CREATE_PAR( hFid, "POINT:KALLE", C3D_STRING, 16, 0, 0 )

C3D.PUT_PAR_VALUE( hFid, "POINT:KALLE", 0, 0, 0, "YES" ),

' List current parameters

PRINT "List of Parameters...",

i = 1

DO

  s = C3D.get_par_name( hFid, i )

  IF s <> "" THEN

     PRINT "   > ";s,

     i = i + 1

  ENDIF

UNTIL s = ""