REM --------------------------------------------
REM 3D-Teil beschriften mit freiem Text
REM
REM - Beschriftung wird immer ohne Knick in der Hinweislinie erzeugt
REM   (Später eventuell Zusatzschalter in Popup für "Mehrfachknick",
REM    analog zu Schweissnahtfunktion)
REM
REM Bekannte Probleme:
REM ------------------
REM - Sind Teilestamm-Attribute im Beschriftungstext werden Ändeurngen am 
REM   Teilestamm erst bei der 1.Ändeurng der Beschriftung aktualisiert
REM - Nachtraegliches Ausrichten noch nicht verfügbar
REM - Benutzerfuehrungstext noch nicht optimal
REM   (Korrektur vor naechster Uebersetzung)
REM
REM Datum:      31.05.2004
REM Ersteller:  Kast
REM --------------------------------------------
REM   HICAD-Next VN:1204
REM          HiCAD           
START   59
HNEXT

CALL 0:TESTKON


REM Variablen einlesen
#$VNAM:=Z:3dBeschriftung_neu.DAT

CALL 1:VARREAD
call z:verwendungsart_beschr
$VNAM:=Z:alu-profile.DAT
%WINK :=0

REM ISDtk 05.09.05 auf MFC-Fenster umgestellt
REMREM
REMWERT $TX1
REMIF NOT VORH THEN 
REM   $TX1:=
REMIFEND
REM
REMWERT $TX2
REMIF NOT VORH THEN 
REM   $TX2:=
REMIFEND
REM
REMWERT $WINK
REMIF NOT VORH THEN
REM   $WINK:=0
REMIFEND
REM
REM
REMREM Name der Einstellungsdatei fuer Beschriftungsfunktion
REMREM (muß Extension ".dat" besitzen, wegen Erstellung ueber Makro)
REM$POSD:=Z:3dBeschriftung.dat
REM
REM
10: REM ----------------------------------------
REMREM Aufruf-String für Menü zusammenstellen
REMREM ----------------------------------------
REM$PNAM:=1:3dBeschriftung_neu
REM
REMREM Positionsnumernmenü aufrufen
REM%ZOK:=1
REM
REMREM POPUP $PNAM
REM
REMREM IF INT OR ESC THEN
REMREM    %ZOK:=0
REMREM IFEND
REMREM IF ZOK=0 GOTO 99
REM
REM20: REM 
REMDEL $TX1
REMREM VAR $TX1 Text oberhalb Linie (RET = Weiter)
REMVAR $TX1 $10488
REMIF INT OR ESC GOTO 99
REM
REMDEL $TX2
REMREM VAR $TX2 Text unter Linie (RET = Weiter, RMT = Zurück)
REMVAR $TX2 $10489
REMIF ESC GOTO 20
REMIF INT GOTO 99
REM
REMWERT $TX1
REMIF NOT VORH THEN
REM   WERT $TX2
REM   IF NOT VORH THEN
REMREM      WAIT Kein Text eingegeben
REM      WAIT $10490
REM      GOTO 10
REM   IFEND
REMIFEND
REM
REM
REMREM Popup-Variablen werden nur bei richtigem Verlassen des Menüs gesetzt
REM$VNAM:=Z:3dBeschriftung_neu.DAT
REMCALL 1:VARWRITE
REM
REM%WINK :=0
REM%WINK:=VAL($WINK)
REMIF FEHL THEN
REM   WAIT Fehler
REM   GOTO 99
REMIFEND


REM ---------------------------------------
REM Neue Bezeichnungsfahne setzen
REM ---------------------------------------

REM Containerindex merken da dierser bei RLT-Aktivierung überschrieben wird
%CIDX:= ZOID


REM ---------------------------------------
REM Start Bezeichnung erzeugen
REM ---------------------------------------

$TXT2:=$10464
CALL 1:KRPWAHL


IF WAHL<=0 THEN
   GOTO 99
IFEND

OPTION ESC
REM
REMREM ----------------------------------------
REMREM Konfigurationsdatei für Beschriftung generieren
REMREM ----------------------------------------
REM%RET:=0
REMCALL 1:3dBeschriftung_einstell
REMIF RET=-1 GOTO 99
REMIF RET=0 GOTO 10
REM

REM   HiCAD   3 = 3-D SZENE
OPTION   3  59
REM   3D - SZENE   S0= 3D Tools
OPTION  20 101
REM   3D TOOLS   15= PosNummer neu
OPTION  15 154
REM     (1) Neu (2) Editieren (3) Verschieben (4) Löschen (5) Einstellunge
INTEGER 1
REM     Ausrichten: -1 nein, 0 horizontal, 1 vertikal
INTEGER -1
REM     Dateiname
STRING  $ATTW
REM Typ 
INTEGER 10
REM kein Rahmen setzen
INTEGER 0
REM Teil
REM STRING X__IDKENN
REM INTEGER ZKEN
STRING X__IDINDX
INTEGER ZNRA
REM Startpunkt
ECHO $10428
POINT #
IF PINT THEN
    OPTION ESC
    OPTION ESC
    GOTO 99
IFEND
IF PESC THEN
    OPTION ESC
    OPTION ESC
    GOTO 10
IFEND
REM Endpunkt
ECHO $10429
POINT #
IF PINT THEN
    OPTION ESC
    OPTION ESC
    GOTO 99
IFEND
IF PESC THEN
    OPTION ESC
    OPTION ESC
    GOTO 10
IFEND
      
POINT ESC
OPTION ESC
OPTION ESC
OPTION ESC
GOTO 10


99: REM -------------------------------
REM Ende
REM -----------------------------------
OPTION  ESC

END