AutoCAD - Autocad 2011 LT a automatické číslování

Autocad 2011 LT a automatické číslování

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=12419
Datum vytištění: 20.dub.2026 v 02:15

Téma: Autocad 2011 LT a automatické číslování

Odeslal: DanJ
Předmět: Autocad 2011 LT a automatické číslování
Datum odeslání: 07.bře.2011 v 11:45

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??

Odpovědi:

Odeslal: Rostislav Říha
Datum odeslání: 07.bře.2011 v 11:51

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šší

-------------
Rostislav Říha

Odeslal: PepaR
Datum odeslání: 07.bře.2011 v 11:53

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 http://cadingandcoding.blogspot.com/2007/08/auto-increment-numbering-macro-for.html" rel="nofollow - Auto Increment Numbering Macro for AutoCAD LT .

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: Machacek
Datum odeslání: 07.bře.2011 v 11:54

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

-------------
Jiří Macháček

BricsCAD, Cadkon MEP

Odeslal: DanJ
Datum odeslání: 07.bře.2011 v 11:58

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

Odeslal: Machacek
Datum odeslání: 07.bře.2011 v 12:00

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

-------------
Jiří Macháček

BricsCAD, Cadkon MEP

Odeslal: Vladimír Michl
Datum odeslání: 07.bře.2011 v 12:09

Přírůstkové číslování je jedna z funkcí naší nadstavby http://www.cadstudio.cz/apps/ltextension/ - LT Extension . Pokud máte AutoCAD LT koupený u CAD Studia, dostáváte ji zdarma.

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: Sedláček
Datum odeslání: 07.bře.2011 v 13:19

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