Zobrazit plnou verzi příspěvku: Kopírovat a otočit

miro
31.05.2006, 11:09
Kdysi zde bylo publikováno makro na příkazy ,,kopírovat a otočit,, a ,,posunout a otočit,,. Napsal by někdo tyto příkazy ve formě pro zadání do souboru .mnu, abych je mohl dát do místní nabídky pravého tlačítka. Děkuji

PepaR
31.05.2006, 11:57
Tohle umí i Express Tools (MOCORO) nebo na netu je podobných lispů spousta, např.:
2006-05-31_115749_rotmove.zipPepaR2006-5-31 11:58:41

Hrnčíř
31.05.2006, 12:16
Kopírat a otočit bylo i v Mechsoftu (a spousta dalších výborných příkazů). Bohužel poslední Mechsoft byl pro Acad2004 a jeho platnost brzo končí. I když budu nucen upgradovat na verzi 2007, pravděpodobně kvůli Mechsoftu budu i nadále kreslit ve verzi 2004. Věčná škoda ukončení Mechsoftu pro Autocad.

Sedláček
31.05.2006, 12:26
pokud máte LT tak třeba
^C^C_select \_copy p ;\@;_MOVE p ;@ \_ROTATE p ;@ _R @ \\_SCALE p ;@ r @ \\

miro
31.05.2006, 12:34

[QUOTE=Sedláček]pokud máte LT tak třeba
^C^C_select \_copy p ;\@;_MOVE p ;@ \_ROTATE p ;@ _R @ \\_SCALE p ;@ r @ \\[/QUOTE]To je příkaz, ale co mám napsat hned na začátek řádku ID_......? Anglický příkaz kopírovat a otočit jsem nenašel, nebo jsem špatně hledal.

musil
31.05.2006, 12:48
Jestli to chcete do nabítky pod pravé tlačítko,tak v souboru .mnu nebo .mns vyhledejte tuto nabítku***pop501**CMDEFAULT a vložte červeně označený řádek.
***POP501**CMDEFAULT                 [Context menu for default mode]ID_CMNonLast   [&Repeat %s]^C^C;                 [--]ID_Cutclip     [Cu&t]^C^C_cutclip ID_Copyclip    [&Copy]^C^C_copyclip ID_Copybase    [Copy with &Base Point]^C^C_copybase ID_Pasteclip   [&Paste]^C^C_pasteclip ID_Pastebloc   [Paste as Bloc&k]^C^C_pasteblock ID_Pasteorig   [Paste to Original Coor&dinates]^C^C_pasteorig,ID_COPY ROTATE [COPY ROTATE]^C^C^Pselect;$M=$(if,$(getvar,cmdactive),\)copy p;;0,0,0;;move p;;\\rotate p;;@;                 [--] ID_U         &n bsp; [&Undo]^C^C_u ID_Redo        [Re&do]^C^C_mredo 1 ID_Pan         [P&an]'_pan ID_ZoomRealt   [&Zoom]'_zoom ;                 [--]ID_Filter      [&Quick Select...]^C^C_qselect ID_TextFind    [&Find...]^C^C_find ID_Preferenc   [&Options...]^C^C_options
Radši si jěště udělejte zálohu!!

miro
31.05.2006, 13:23

[QUOTE=musil]Jestli to chcete do nabítky pod pravé tlačítko,tak v souboru .mnu nebo .mns vyhledejte tuto nabítku***pop501**CMDEFAULT a vložte červeně označený řádek.
Tohle jsem měl přesně na mysli, ale místo kopie mi pouze vše ve výkresu odskočí a tím příkaz končí.

musil
31.05.2006, 13:39
Omlouvám se používám verzi en ,jestli je to tento problém.
Dnes už vám asi nepomohu už musim....

Sedláček
31.05.2006, 13:50
Pan Musil to nedopověděl, před anglické příkazy je nutno vložit _ (podtržítka), takže by příkaz vypadal:
^C^C^P_select;$M=$(if,$(getvar,cmdactive),\)_copy _p;;0,0,0;;_move _p;;\\_rotate _p;;@;

miro
31.05.2006, 14:56

[QUOTE=Sedláček]Pan Musil to nedopověděl, před anglické příkazy je nutno vložit _ (podtržítka), takže by příkaz vypadal:
^C^C^P_select;$M=$(if,$(getvar,cmdactive),\)_copy _p;;0,0,0;;_move _p;;\\_rotate _p;;@;[/QUOTE]Děkuji mnohokrát, teď už vše funguje jak má.