***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;
//

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));
[--]

 

sice sem v tom Dieselu nikdy nedělal..tak snad najdu nejaky dobry navod...:)

 

dam když tak vědet jak sem pohořel..

 

A jeste jedna vec..když kliknu na jakýkoliv bod dotazem souřadnice..tak se ukažou jeho souřadnice x y z

Ale šlo by nějak udělat aby ten bod který bude označený nějakým čislem, tak aby se to číslo objevilo vedle tech souřadnic v přikazovém řádku po tom co na něj kliknu dotazem souřadnice???

 

jinak díky

 

potřebovali bychom nějak  do našeho autocadu 2011 LT dostat automatické číslování..

 

Na situaci potřebuje označit množstvé vybraných bodů číslem a pokaždé vypisovat nové číslo je neuveřitelne zdlouhavé, proto hledáme způsob jak si vytvořit blok ten jenom vkládat a ten by se rovnou automaticky čísloval.

 

Zatím jsem jen narazil na soubor Insert C ktery bohužel na LT nefunguje.

 

Netušíte někdo jak z toho ven??