REM  HICAD-Next VN:1800
REM          HiCAD         
START  59
HNEXT
REM  HiCAD  3 = 3-D SZENE
OPTION  3  59
REM  3D - SZENE  1 = Neu anlegen
OPTION  1 101
REM    Aktive Konstruktion speichern ?
ANTWORT 0
STRING  3D-Punkte
REM    Ändern ?
ANTWORT 0
Start 59
OPEN XYZ3DPunkteliste

REM  3D - SZENE  3 = Bearbeiten
OPTION  3 101
REM  TEILE  8 = Hauptteil neu
OPTION  8 102
REM  TEILE ERZEUG  8 = Leerteil
OPTION  8 103
STRING  3D
REM  TEILE  1 = Bearbeiten
OPTION  1 102
REM  BEARBEITEN  1 = Punkte/Kanten
OPTION  1 106

$TRENNZEICHEN:=|

20:Input $ZEILE

If not dvorhd Goto 98
%LAENGE:=LEN($ZEILE)
%TRENN1:=IDX($ZEILE,$TRENNZEICHEN)
$AX:=$ZEILE(1:%TRENN1-1)
%AX:=VAL($AX)
$ZEILEGEK:=$ZEILE(%TRENN1+1:%LAENGE)
%TRENN2:=IDX($ZEILEGEK,$TRENNZEICHEN)
$AY:=$ZEILEGEK(1:%TRENN2-1)
%AY:=VAL($AY)
%LAENGEGEK:=LAENGE-TRENN1
$AZ:=$ZEILEGEK(%TRENN2+1:%LAENGEGEK)
%AZ:=VAL($AZ)
REM  PUNKTE/KANTEN  1 = Isolier. Pkt.
OPTION  1 117
POINT  A AX AY AZ
POINT  ESC
REM OPTION  ESC
REM OPTION  ESC
GOTO 20
98:Close
REM  HiCAD  2 = 2-D ZTL
OPTION  2  59
REM ALT2
OPTION  22  0
REM  ANSICHT  5 = Gesamtansicht
OPTION  5  52
REM ALT6
OPTION  26  0
REM    Variablenspeicher löschen ?
ANTWORT 1
OPTION  ESC
OPTION  ESC
END