START   59

REM Dateiname für Sichern der Einstellung (damit die Einstellung nicht global auf alle geöffneten Szenen wirkt)
REM ..\HiCAD\temp\[Dateiname].DAT
REM -4 = ohne Endung .SZA
%d:=LEN($@0)-4
REM ab dem 3. Zeichen, ohne "C:" (HiCAD-Szenenverzeichnis)
$D:=$@0(3:d)
REM Pfad #: = ..\HiCAD\temp
$D:="#:"+$D

WERT %as
REM Makro direkt gestartet, nicht über Anklicken einer Ansicht (..\HiCAD\MAKRO3D\ANSICHT_AKTIV.MAC)
if not vorh then
$TXT:=Einfrieren von nicht-aktiven Hidden-Line-Ansichten?
call 0:Frage

REM Makro ..\HiCAD\MAKRO2D\Frage.mac liefert als Ergebnis %WAHL = 1 (Ja) / 0 (Nein) / -1 o. -2 (Abbruch)

open $D
output %WAHL
close

if %WAHL=0 then
REM alle 3D-Ansichten einblenden/wieder aktualisieren
call 1:3dansicht_ein2
ifend
if %WAHL <> 1 goto 99
else
%WAHL:=0
ifend

REM Lesen der gespeicherten Auswahl (Einfrieren: Ja [1]/Nein [0])
open $D
input %WAHL
close

if %WAHL=1 then
REM Alle Hidden-Line-Ansichten einfrieren
REM   HiCAD   3 = 3-D SZENE
OPTION   3  59
REM ALT2
OPTION  22   0
REM   KOORD. SYSTEM   9 = Verändern
OPTION   9 152
REM   PROJEKTION   S1= Ansicht E/A
OPTION  11 111
REM     alle Hidden-Line inaktiv setzen
INTEGER 11
REM aktive/gewählte Ansicht einblenden (auftauen)
REM   PROJEKTION   S1= Ansicht E/A
OPTION  11 111
REM     einblenden
INTEGER 1
ifend

99: DEL %as
END

REM ##### Diesen Block in die Datei "..\HiCAD\MAKRO3D\ANSICHT_AKTIV.MAC" am Ende vor dem END-Befehl einfügen. #####

REM neu aktivierte Ansicht merken, damit bei erneuter Wahl dieser Ansicht (über Ansichts-Rahmen oder Teil) das Frieren nicht unnötig erneut ausgeführt wird
%aktAns:=ZIAS

WERT %lztAns
if not vorhd then
%lztAns:=999
ifend

if aktAns = lztAns goto 111

REM zuletzt aktivierte Ansicht merken, damit bei erneuter Wahl dieser Ansicht (über Ansichts-Rahmen oder Teil) das Frieren nicht unnötig erneut ausgeführt wird
%lztAns:=ZIAS

REM Merker %as als Angabe, daß das Ansicht-frieren-Makro durch Auswahl einer Ansicht aufgerufen wurde (Überspringen der JA/NEIN-Frage)
%as:=1
call 1:inaktHLAnsFreeze

111:END
REM ##### Diesen Block in die Datei "..\HiCAD\MAKRO3D\ANSICHT_AKTIV.MAC" am Ende vor dem END-Befehl einfügen. #####