Dobrý den
 
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??
 
 
 DanJ2011-03-07 11:47:33

jde si na to napsat makro v DIESELu - kdysi jsme to tak používali - na tlačítko nebo do roletového menu si dáte příkaz, kterým se vloží text a jako jeho obsah se použije hodnota proměnné (getvar nebo getenv) - a její hodnota se zvýší, takže při dalším vložení bude hodnota zas vyšší

Nu pokud by Vám stačil text, tak v jazyku DIESEL jde udělat automatické číslování s přírůstkem. Více informací viz článek Auto Increment Numbering Macro for AutoCAD LT.

pořiďte si od CADStudia rozšíření pro LTéčko - LT extension... tam to je a funguje to velice dobře

dobře dekuji všem za nápady....a nejak to zkusim...
 
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

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

Přírůstkové číslování je jedna z funkcí naší nadstavby LT Extension. Pokud máte AutoCAD LT koupený u CAD Studia, dostáváte ji zdarma.

Já jsem si jdysi vytvořil toto menu:
 
***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;//