Chip 1998 March/Chip_1998-03_cd.bin/tema/MINICAD/MC7DEMO/MINICAD.1/MKHNGPT.MPC

Text File | 1997-04-30 | 1KB | 39 lines

Procedure MakeHanging;
CONST
    kClassName = 'Hanging Position';
    kRecordName = 'Hanging Positions';
    kFieldName = 'Height';
VAR
    han,recHan : HANDLE;
    posHeight : REAL;
    nameStr,recName,fldName,DBRef,default : STRING;
    i,n,recCount,fldCount : INTEGER;
BEGIN
    recCount:= NUMRECORDS(NIL);
    FOR i := 1 TO recCount DO BEGIN
        recHan := GETRECORD(NIL,i);
        recName := GETNAME(recHan);
        IF recName = kRecordName THEN BEGIN
            fldCount := NumFields(recHan);
            FOR n := 1 TO fldCount DO BEGIN
                fldName := GetFldName(RecHan,n);
                IF fldName = kFieldName THEN BEGIN
                    DBRef := CONCAT('(''',recName,'''.''',fldName,''')');
                    default := EVALSTR(recHan,DBRef);
                END;
            END;
        END;
    END;
    posHeight := DistDialog('Enter the height above deck in inches.', default);

    han := FSACTLAYER;
    WHILE han <> Nil DO BEGIN
        SetClass(han,kClassName);
        SetRecord(han, kRecordName);
        SetRField(han, kRecordName, kFieldName, NUM2STR(0,posHeight));
        han := NextSObj(han);
    END;
    REDRAWALL;
END;
RUN(MakeHanging);