Dobrý den,chtěl bych se zeptat jestli je nějaký seznam vytvořených užitečných maker. Nějaké jsem našel, ale moc jich nebylo. Nebo jaké používáte vy ?Díky :-)

Myslíte Diesel makra? Nebo LISP a VBA makra? Desítky jich najdete zde na stránce Download.

Myslel jsem Diesel makra. Co se nastavují v CUI. Přidám některá co jsem našel:







Normal
0


21


false
false
false

CS
X-NONE
X-NONE






































































































































































/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Normální tabulka";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Calibri","sans-serif";
mso-bidi-font-family:"Times New Roman";}







Normal
0


21


false
false
false

CS
X-NONE
X-NONE






































































































































































/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Normální tabulka";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Calibri","sans-serif";
mso-bidi-font-family:"Times New Roman";}



Rychlé vytvoření bloku: _select;\^C_COPYBASE;\_P;;_ERASE;_P;;_PASTEBLOCK;@;

Přidat ke kótě označení sražení
45°: ^C^C_dimoverride;dimpost;<>x45%%d;;\;

Přidat ke kótě označení průměru: ^C^C_dimoverride;dimpost;%%c<>;;\;

Přidat ke kótě označení
metrického závitu: ^C^C_dimoverride;dimpost;M<>;;\;

Přidat ke kótě závorky: ^C^C_dimoverride;dimpost;(<>);;\;

Přidat ke kótě znak ~: ^C^C_dimoverride;dimpost;~<>;;\;

Přidat ke kótě n x průměr: ^C^Csetenv;pocetkr;\_dimoverride;dimpost;$M=$(getenv,pocetkr)x%%c<>;;\;

Vrátit kótu do čistého stavu: ^C^C_dimoverride;dimpost;<>;;\;

Aktualizovat datum v razítku
(razítko musí být blok, datum musí být atribut s názvem DATUM): ^C^C_-ATTEDIT;;;DATUM;;\;_V;_R;$M=$(EDTIME,$(GETVAR,DATE),D.M.YY);;

Obdélník+ (po zadání 2 hodnot
vykreslí v daném bodě obdélník a nabídne jeho otočení) : ^C^Csetenv;delka;\setenv;vyska;\_rectang;\_non;@$M=$(getenv,delka),$M=$(getenv,vyska);_rotate;_l;;$M=$(getvar,lastpoint);

Nahrazení části úsečky jinou
(neviditelnou): ^C^C_BREAK;\_F;\'SETENV;BOD1;$M=$(GETVAR,LASTPOINT);\_-layer;_m;NEVID;;_LINE;_non;"$M=$(GETVAR,LASTPOINT)";_non;"$M=$(GETENV,BOD1)";;





Normal
0


21


false
false
false

CS
X-NONE
X-NONE






































































































































































/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Normální tabulka";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Calibri","sans-serif";
mso-bidi-font-family:"Times New Roman";}



Vybrat podobné: ^C^C_SelectSimilar

Plocha křivky: ^C^C_area;_e;\_-mtext;$M=$(getvar,viewctr);@;$m=$(rtos,$(/,$(getvar,area),1000000),2,2)m2;;_move;_l;;@;\

Rychlý blok: _select;\^C_COPYBASE;\_P;;_ERASE;_P;;_PASTEBLOCK;@;

Nastavit počátek: ^C^C_VKNULA

Čisti bez ptaní: ^C^C_-PURGE;_All;*;_N;

Tohle menu (je to ještě starý MNU) používám pro postupné číslování:
 
***MENUGROUP=D:\ACAD_UTIL\cisluj.mnu
***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;
 

Ještě upozornění:

V originále mám vždy jedno makro na jednom řádku. Obávám se, že při kopírování z předchozího příspěvku budou na konci řádků vloženy řídící znaky, ty bude nutno odmazat.