Kdysi jsem měl udělaná tlačítka z vlastního menu viz níže. Ale už bych teď asi marně vzpomínal, co který příkaz znamená. Opravdu se mi osvědčil ten LT extension....

 

[Sítě]
[->$(eval,"Měřítko výkresu "$(if,$(>,$(getvar,userr1),1.0),$(eval," M  1 : "$(getvar,userr1)),$(eval,"SCAN")))]
  [1 : 100]^C^C_setvar userr1 $M=$(index,0,$(getenv,MERITKO)) _setvar expert 5 _dim1 _res standard dimtxt 2 _setvar dimlfac 1 _setvar dimscale $M=$(index,0,$(getenv,MERITKO)) _setvar userr3 $M=$(index,0,$(getenv,MER_RAM)) _setvar celtscale $M=$(/,500,$(getvar,ltscale)) _snap 100;
  [1 :   50]^C^C_setvar userr1 $M=$(index,1,$(getenv,MERITKO)) _setvar expert 5 _dim1 _res standard dimtxt 2 _setvar dimlfac 1 _setvar dimscale $M=$(index,1,$(getenv,MERITKO)) _setvar userr3 $M=$(index,1,$(getenv,MER_RAM)) _setvar celtscale $M=$(/,250,$(getvar,ltscale)) _snap 50;
  [<-SCAN]^C^C_setvar userr1 $M=$(index,2,$(getenv,MERITKO)) _setvar expert 5 _dim1 _res standard dimtxt 2 _setvar dimlfac 1 _setvar dimscale $M=$(index,2,$(getenv,MERITKO)) _setvar userr2 $M=$(index,0,$(getenv,MER_SC)) _setvar userr3 $M=$(index,2,$(getenv,MER_RAM)) _setvar celtscale $M=$(/,5,$(getvar,ltscale)) _snap 1;
[--]

 

[--]
[Nastav]^C^Csetenv;PRED;\setenv;HODNOTA;\setenv;ZA;
[Čísluj - XX]^C^C_-layer;_s;AG_ZAS_CISLA;;_-mtext;\_H;$M=$(*,$(getvar,DIMTXT),$(getvar,DIMSCALE));_J;_BL;_R;\@;$M=$(IF,$(<,$(strlen,$(getenv,PRED)),4),$(getenv,PRED))$M=$(IF,$(<,$(getenv,HODNOTA),10),0)$M=$(getenv,HODNOTA)$M=$(IF,$(<,$(strlen,$(getenv,ZA)),4),$(getenv,ZA));;setenv;HODNOTA;$M=$(+,1,$(getenv,HODNOTA));
[Čísluj - XXX]^C^C_-layer;_s;AG_ZAS_CISLA;;_-mtext;\_H;$M=$(*,$(getvar,DIMTXT),$(getvar,DIMSCALE));_J;_BL;_R;\@;$M=$(IF,$(<,$(strlen,$(getenv,PRED)),4),$(getenv,PRED))$M=$(IF,$(<,$(getenv,HODNOTA),100),0)$M=$(IF,$(<,$(getenv,HODNOTA),10),0)$M=$(getenv,HODNOTA)$M=$(IF,$(<,$(strlen,$(getenv,ZA)),4),$(getenv,ZA));;setenv;HODNOTA;$M=$(+,1,$(getenv,HODNOTA));
[--]

 

***POP12
[Cisluj]
Napiš čísla]*^C^C_.text _J $M=$(getenv,users2) \ $M=$(getvar,useri2) ^Z$(eval,$(getenv,users1)$(getvar,useri1));; useri1;$M=$(+,1,$(getvar,useri1));

[Napiš čísla 1]*^C^C_-mtext $M=$(getvar,VIEWCTR) _r $M=$(getvar,useri2) _J $(getenv,users2) @;$M=$(eval,$(getenv,users1)$(getvar,useri1));;_explode _L;_COPYBASE @ _L;;_ERASE _L;;_pasteclip \useri1;$M=$(+,1,$(getvar,useri1));

[Oprav čísla]*^C^C_change \;;;;;$M=$(eval,$(getenv,users1)$(getvar,useri1));useri1;$M=$(+,1,$(getvar,useri1));
               [--]
  [$(eval, Proměnná část = $(getvar,useri1)) ]^C^Csetvar useri1;
               [$(eval, Pevná část = $(getenv,users1)) ]^C^Csetenv users1;
 [$(eval, Výška písma = $(getvar,textsize)) ]^C^Csetvar textsize;
 [$(eval, Natočení písma = $(getvar,useri2)) ]^C^Csetvar useri2;
 [$(eval, Styl písma = $(getvar,textstyle)) ]^C^Cstyle
 [->$(eval, Zarovnání písma = $(getenv,users2)) ]
  [->Vlevo]
   [Nahoře \tTL]^C^Csetenv users2 _TL;
   [Střed \tML]^C^Csetenv users2 _ML;
   [<-Dole \tBL]^C^Csetenv users2 _BL;
    [->Vpravo]
   [Nahoře \tTR]^C^Csetenv users2 _TR;
   [Střed  \tMR]^C^Csetenv users2 _MR;
   [<-Dole  \tBR]^C^Csetenv users2 _BR;
  [->Střed]
   [Nahoře  \tTC]^C^Csetenv users2 _TC;
   [Střed \tMC]^C^Csetenv users2 _MC;
   [<-<-Dole \tBC]^C^Csetenv users2 _BC;
//