Vytisknout stránku | Zavřít okno

Makra

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=12561
Datum vytištění: 29.dub.2026 v 00:30


Téma: Makra
Odeslal: Marlowwe
Předmět: Makra
Datum odeslání: 28.bře.2011 v 21:25
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 :-)


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 28.bře.2011 v 22:36
Myslíte Diesel makra? Nebo LISP a VBA makra? Desítky jich najdete zde na stránce Download.

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

Odeslal: Marlowwe
Datum odeslání: 29.bře.2011 v 07:31
Myslel jsem Diesel makra. Co se nastavují v CUI.


Přidám některá co jsem našel:

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)";;

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;

Odeslal: Sedláček
Datum odeslání: 29.bře.2011 v 07:59
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;
 

Odeslal: Sedláček
Datum odeslání: 29.bře.2011 v 08:04
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.
 


Vytisknout stránku | Zavřít okno