Öffne mal den Stempel (SHIFT+STRG+O). Lege folgende neuen Parameter mit nachfolgenden Typen an:
satTXT, Text
satX, Länge
satY, Länge
pen_sat, Stift Füge folgendes Skript am Beginn des Parameter-Skriptes ein:
values "satTXT" "[Aus]","[RAUMNUMMER]",CUSTOM
Suche im 2D-Skript die Zeile, die mit "2223:" beginnt (das ist vor dem END-Befehl) und füge dort ein:
!***************** Satellit ********************
!***********************************************
IF satTXT#"[Aus]" THEN
IF pen_sat>0 THEN PEN pen_sat
IF satTXT="[RAUMNUMMER]" THEN satTXT=ROOM_NUMBER
SET STYLE idestyle1
satB=stw(satTXT)*A_/1000
ht=6789 : HOTSPOT2 0,saty, ht, satx, 1+128
ht=ht+1 : HOTSPOT2 -.01,saty, ht, satx, 3
ht=ht+1 : HOTSPOT2 satx,saty, ht, satx, 2
ht=ht+1 : HOTSPOT2 satx, 0, ht, saty, 1+128
ht=ht+1 : HOTSPOT2 satx,-.01, ht, saty, 3
ht=ht+1 : HOTSPOT2 satx,saty, ht, saty, 2
IF pen_sat>0 THEN
abstand=SQR(((max_len/2)*A_/1000)^2+((shight-max_h/2)*A_/1000)^2)
if satX#0 THEN rtg=ATN(satY/satX) ELSE rtg=0
if satX<0 then rtg=rtg+180
if rtg<0 then rtg=rtg+360
LINE2 satX,satY, abstand*cos(rtg), abstand*sin(rtg)
IF rtg>90 AND rtg<270 THEN satX=satX-satB
ENDIF
IF GLOB_CONTEXT<10 THEN TEXT2 satx,saty,satTXT ELSE RECT2 satx,saty, satx+satB,saty-ROOM_LSIZE*A_/1000
PEN SYMB_VIEW_PEN
ENDIF
Und nun, wichtig, unter neuem Namen abspeichern und Stempel dieser oder einer neuen Kategorie zuweisen.
