CAD Fórum : pořadí příkazů v makrech https://www.cadforum.cz/forum/ Wed, 09 Sep 2026 12:03:32 +0000 Mon, 05 Nov 2012 10:13:11 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=15958 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[pořadí příkazů v makrech : Nejdelší makro mám zatím se 4...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73731&title=poradi-prikazu-v-makrech#73731 Autor: Petr75
Předmět: 15958
Zasláno: 05.lis.2012 v 10:13

Nejdelší makro mám zatím se 4 bloky a 3x4 atribut. Hodnoty jsem počítal u každého atributu. Makro je sice delší, ale pro vyhodnocení je "kratší" a funguje. Vkládám to sem na více řádcích kvůli lepšímu přehledu, ale jinak to je jeden řádek.

^C^C
_-insert Sch_4K.dwg \1 1 0 $M=$(getvar,USERI1);$M=$(+,1,$(getvar,USERI1));$M=$(+,2,$(getvar,USERI1));$M=$(+,3,$(getvar,USERI1));
_-insert Nar_4K.dwg @0,-2500 1 1 0 $M=$(getvar,USERI1);$M=$(+,1,$(getvar,USERI1));$M=$(+,2,$(getvar,USERI1));$M=$(+,3,$(getvar,USERI1));
_-insert Pud_4K.dwg @0,-1900 1 1 0 $M=$(getvar,USERI1);$M=$(+,1,$(getvar,USERI1));$M=$(+,2,$(getvar,USERI1));$M=$(+,3,$(getvar,USERI1));
_-insert Ram_4K.dwg @0,-1900 1 1 0 _setvar;USERI1;$M=$(+,4,$(getvar,USERI1))


Ještě bych se chtěl zeptat, jak to funguje s vícenásobnými uvozovkami.
]]> Mon, 05 Nov 2012 10:13:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73731&title=poradi-prikazu-v-makrech#73731 <![CDATA[pořadí příkazů v makrech : Pokud máte po přidání dalších...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73687&title=poradi-prikazu-v-makrech#73687 Autor: Sedláček
Předmět: 15958
Zasláno: 02.lis.2012 v 13:35

Pokud máte po přidání dalších dvou bloků makro již moc dlouhé, je možné váš algoritmus jinak.
Např. vložit nejprve bloky s nadefinovanými (jedinečnými) texty atributů (aaa bbb ccc) a ty pak zaměnit za požadovanou hodnotu pomocí příkazu _-ATTEDIT:
 
^C^C_-insert blok1.dwg \1 1 0 aaa;bbb;ccc;_-insert blok2.dwg @0,-200 1 1 0 aaa;bbb;ccc;_setvar;USERI2;$M=$(+,1,$(getvar,USERI1))^M_setvar;USERI3;$M=$(+,2,$(getvar,USERI1)) _-attedit n n;;;aaa;aaa;"""$M=$(getvar,USERI1)""";_-attedit n n;;;bbb;bbb;"""$M=$(getvar,USERI2)""";_-attedit n n;;;ccc;ccc;"""$M=$(getvar,USERI3)""";_setvar;USERI1;$M=$(+,3,$(getvar,USERI1)) (graphscr)
 
Po odladění makra ještě doporučuji doplnit na začátek "hvězdičku" * pro opakování makra:
*^C^C_-insert ....
]]> Fri, 02 Nov 2012 13:35:06 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73687&title=poradi-prikazu-v-makrech#73687 <![CDATA[pořadí příkazů v makrech : Příkazy SETENV a GETENV jsou stále...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73661&title=poradi-prikazu-v-makrech#73661 Autor: Vladimír Michl
Předmět: 15958
Zasláno: 01.lis.2012 v 16:14

Příkazy [CMD]SETENV[/CMD] a [CMD]GETENV[/CMD] jsou stále jen LT-příkazy. Plná verze má k tomuto účelu funkce (setenv) a (getenv). Navíc tam podobná DIESELová supermakra nejsou potřebná, protože se podstatně jednodušeji vytvoří v LISPu nebo VBA nebo v makrorekorderu.

]]> Thu, 01 Nov 2012 16:14:19 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73661&title=poradi-prikazu-v-makrech#73661 <![CDATA[pořadí příkazů v makrech : Petr75 napsal(a):Tentokrát...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73656&title=poradi-prikazu-v-makrech#73656 Autor: Sedláček
Předmět: 15958
Zasláno: 01.lis.2012 v 15:52

Původně odeslal(a) Petr75 Petr75 napsal(a):

Tentokrát to již funguje. Přidal jsem ještě další 2 bloky, ale asi mám makro již moc dlouhé.
Udělal jsem ještě zkrácení:
- _setvar;USERIx jsem zkrátil na USERx
- ^M jsem nahradil znakem ;
Ale pořád to je dlouhé. Dočetl jsem se, že makro má omezení na 256 znaků, ale délka výrazu $M=... se počítá až vyhodnoceného výraz.
Škoda, že v nápovědě AutoCADu jsou minimální informace u makrech a výrazech DIESEL a na internetu něco najít, je docela obtížné.

 
Když jsem před lety experimentoval s DIESELem tak jsem omezení na délku znaků řešil tak, že jsem část kódu uložil pomocí _SETENV (ukládá se do REGISTRY Windows) při tvorbě makra  a pak jej v  makru načetl pomocí _GETENV. Fungovalo to ale pouze v Autocadu LT - plná verze neznala příkazy _SETENV a _GETENV (bylo to v A2002LT - jak to je v nových verzích nevím). Opět bylo nutno experimentovat s uvozovkama, aby načítání proběhlo až v době, kdy už bude část makra zpracována (po několika průchodech interpretem DIESELu).
 
]]> Thu, 01 Nov 2012 15:52:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73656&title=poradi-prikazu-v-makrech#73656 <![CDATA[pořadí příkazů v makrech : Zajímavé. Ke konci jsem se v těch...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73578&title=poradi-prikazu-v-makrech#73578 Autor: Petr75
Předmět: 15958
Zasláno: 30.říj.2012 v 22:50

Zajímavé. Ke konci jsem se v těch uvozovkách začal ztrácet.]]> Tue, 30 Oct 2012 22:50:14 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73578&title=poradi-prikazu-v-makrech#73578 <![CDATA[pořadí příkazů v makrech : Jako ukázka využití uvozovek v...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73575&title=poradi-prikazu-v-makrech#73575 Autor: Sedláček
Předmět: 15958
Zasláno: 30.říj.2012 v 16:53

Jako ukázka využití uvozovek v DIESELu se mi líbí následující makro. Po zadání 4 bodů se mezi mimi vykreslí čtyřúhelník. Před spuštěním makra je třeba zapnout _SNAP (KROK). Před použitím výraz v nějakém textovém editoru (NOTEPADu) převeďte do jednoho řádku. 
 
^Cid;\$m=id;\$m=id;\$m=id;\$m=_line;$(getvar,lastpoint);"$(getvar,lastpoint);;
_line;$(getvar,lastpoint);""$(getvar,lastpoint);;_line;$(getvar,lastpoint);""""$(getvar,lastpoint);;
_line;"""""""$(getvar,lastpoint);"""""""$(getvar,lastpoint);;"""""""^C


Upravil Sedláček - 30.říj.2012 v 17:06]]> Tue, 30 Oct 2012 16:53:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73575&title=poradi-prikazu-v-makrech#73575 <![CDATA[pořadí příkazů v makrech : Tentokrát to již funguje. Přidal...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73553&title=poradi-prikazu-v-makrech#73553 Autor: Petr75
Předmět: 15958
Zasláno: 30.říj.2012 v 13:18

Tentokrát to již funguje. Přidal jsem ještě další 2 bloky, ale asi mám makro již moc dlouhé.
Udělal jsem ještě zkrácení:
- _setvar;USERIx jsem zkrátil na USERx
- ^M jsem nahradil znakem ;
Ale pořád to je dlouhé. Dočetl jsem se, že makro má omezení na 256 znaků, ale délka výrazu $M=... se počítá až vyhodnoceného výraz.
Škoda, že v nápovědě AutoCADu jsou minimální informace u makrech a výrazech DIESEL a na internetu něco najít, je docela obtížné.

]]> Tue, 30 Oct 2012 13:18:48 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73553&title=poradi-prikazu-v-makrech#73553 <![CDATA[pořadí příkazů v makrech : Tak ještě jednou, tentokrát jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73523&title=poradi-prikazu-v-makrech#73523 Autor: Sedláček
Předmět: 15958
Zasláno: 30.říj.2012 v 09:12

Tak ještě jednou, tentokrát jsem to i vyzkoušel a mělo by to fungovat. Pokud ne, tak si zapněte ty výše zmiňované proměnné (menuecho=8, macrotrace=1) a případně vystavte co vám bude Autocad hlásit.
 
 
Původně odeslal(a) Petr75 Petr75 napsal(a):

Mám makro:
^C^C_setvar;USERI2;$M=$(+,1,$(getvar,USERI1))^M_setvar;USERI3;$M=$(+,2,$(getvar,USERI1))^M_-insert blok1.dwg \1 1 0 """$M=$(getvar,USERI1)^M$M=$(getvar,USERI2)^M$M=$(getvar,USERI3)"""^M_-insert blok2.dwg @0,-200 1 1 0 """$M=$(getvar,USERI1)^M$M=$(getvar,USERI2)^M$M=$(getvar,USERI3)"""^M_setvar;USERI1;$M=$(+,3,$(getvar,USERI1))
 
 
]]> Tue, 30 Oct 2012 09:12:37 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73523&title=poradi-prikazu-v-makrech#73523 <![CDATA[pořadí příkazů v makrech : Děkuji za snahu, ale takhle to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73519&title=poradi-prikazu-v-makrech#73519 Autor: Petr75
Předmět: 15958
Zasláno: 30.říj.2012 v 07:36

Děkuji za snahu, ale takhle to také nefunguje.]]> Tue, 30 Oct 2012 07:36:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73519&title=poradi-prikazu-v-makrech#73519 <![CDATA[pořadí příkazů v makrech : Minule jsem se s tšmí uvozovkami...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73516&title=poradi-prikazu-v-makrech#73516 Autor: Sedláček
Předmět: 15958
Zasláno: 29.říj.2012 v 16:34

Minule jsem se s tšmí uvozovkami nějak moc rozjel. Asi by měly stačit:
 
 
[QUOTE=Petr75]Mám makro:
^C^C_setvar;USERI2;"$M=$(+,1,$(getvar,USERI1))^M_setvar;USERI3;$M=$(+,2,$(getvar,USERI1))"^M_-insert blok1.dwg \1 1 0 $M=$(getvar,USERI1)^M$M=$(getvar,USERI2)^M$M=$(getvar,USERI3)^M_-insert blok2.dwg @0,-2000 1 1 0 $M=$(getvar,USERI1)^M$M=$(getvar,USERI2)^M$M=$(getvar,USERI3)^M_setvar;USERI1;$M=$(+,3,$(getvar,USERI1))

]]> Mon, 29 Oct 2012 16:34:42 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=15958&PID=73516&title=poradi-prikazu-v-makrech#73516