Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

|
Odpovědět ![]() |
archiv |
Autor | |
Marlowwe ![]() Diskutér ![]() Přihlášen: 09.kvě.2008 Používám: acad 2008 Stav: Offline Bodů: 45 |
![]() Zasláno: 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 :-) |
|
![]() |
|
Vladimír Michl ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor ![]() ![]() ARKANCE Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 22004 |
![]() |
Myslíte Diesel makra? Nebo LISP a VBA makra? Desítky jich najdete zde na stránce Download.
|
|
![]() |
|
Marlowwe ![]() Diskutér ![]() Přihlášen: 09.kvě.2008 Používám: acad 2008 Stav: Offline Bodů: 45 |
![]() |
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; |
|
![]() |
|
Sedláček ![]() TOP uživatel ![]() Přihlášen: 15.dub.2005 Lokalita: Czech Republic Používám: AutoCad 2024 LT Stav: Offline Bodů: 384 |
![]() |
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; |
|
![]() |
|
Sedláček ![]() TOP uživatel ![]() Přihlášen: 15.dub.2005 Lokalita: Czech Republic Používám: AutoCad 2024 LT Stav: Offline Bodů: 384 |
![]() |
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.
|
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět ![]() |
|
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,445 sekund.