CAD Fórum : Makra https://www.cadforum.cz/forum/ Thu, 30 Apr 2026 21:38:51 +0000 Tue, 29 Mar 2011 08:04:13 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=12561 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Makra : Ještě upozornění: V originále...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60276&title=makra#60276 Autor: Sedláček
Předmět: 12561
Zasláno: 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.
 
]]> Tue, 29 Mar 2011 08:04:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60276&title=makra#60276 <![CDATA[Makra : Tohle menu (je to ještě starý...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60275&title=makra#60275 Autor: Sedláček
Předmět: 12561
Zasláno: 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;
 
]]> Tue, 29 Mar 2011 07:59:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60275&title=makra#60275 <![CDATA[Makra : Myslel jsem Diesel makra. Co se...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60273&title=makra#60273 Autor: Marlowwe
Předmět: 12561
Zasláno: 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 hodnotvykreslí 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;



]]> Tue, 29 Mar 2011 07:31:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60273&title=makra#60273 <![CDATA[Makra : Myslíte Diesel makra? Nebo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60268&title=makra#60268 Autor: Vladimír Michl
Předmět: 12561
Zasláno: 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.]]> Mon, 28 Mar 2011 22:36:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60268&title=makra#60268 <![CDATA[Makra : Dobrý den,chtěl bych se zeptat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60267&title=makra#60267 Autor: Marlowwe
Předmět: 12561
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 :-)
]]> Mon, 28 Mar 2011 21:25:57 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12561&PID=60267&title=makra#60267