ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenomakro
 Odpovědět Odpovědět Stránka  12> archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
prasopal666 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 09.led.2007
Lokalita: ČR (KV)
Používám:
Autocad 2007
Stav: Offline
Bodů: 164
 Přímý odkaz na tuto zprávu Téma: makro
    Zasláno: 22.bře.2007 v 10:30
dobrý den,
lze udělat nějaké !makro" které by nahradilo text ve výkresu blokem, kde v atributu by byl právě nahrazovaný text?
Autocad 13 - user, PC 386, 16MHZ, 1MB RAM, 14" VGA monitor
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21953
 Přímý odkaz na tuto zprávu Zasláno: 22.bře.2007 v 10:35
Šlo, ale je to trochu nestandardní požadavek - co je konečným účelem?
 
Měla by být pro každý text zvláštní definice bloku? (respektující parametry textu) Nebo všechny texty vypadají podobně a lze pro ně použít jediný blok s atributem?
 
Víceřádkové texty budou takto fungovat je v AutoCADu 2008.
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
prasopal666 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 09.led.2007
Lokalita: ČR (KV)
Používám:
Autocad 2007
Stav: Offline
Bodů: 164
 Přímý odkaz na tuto zprávu Zasláno: 22.bře.2007 v 10:52
texty jsou podobné, je to textový řetězec o 13 místech. Atribut bloku by byl stejný.
Autocad 13 - user, PC 386, 16MHZ, 1MB RAM, 14" VGA monitor
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 22.bře.2007 v 10:59

V principu:

1. Vytvořte blok s jediným atributem a zapište ho do souboru na prohledávací cestě. Nazvěte ho třeba AUTODEF

(setq dz (entget (setq m(car(entsel)))))
(setq cislo (cdr(assoc 1 dz))
      bod (cdr(assoc 10 dz)))
(command "_ERASE" m "")
(setvar "ATTDIA" 0)
(command "_-INSERT" "AUTODEF" bod "1" "1" "0" cislo)
(setvat "ATTDIA" 1)
Vítězslav Seiner

Chrudim
Zpět nahoru
prasopal666 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 09.led.2007
Lokalita: ČR (KV)
Používám:
Autocad 2007
Stav: Offline
Bodů: 164
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 11:08
ještě k tomu makru, vůbec nevím jak se spouští, můžete mi prosíl polopatě poradit?
Autocad 13 - user, PC 386, 16MHZ, 1MB RAM, 14" VGA monitor
Zpět nahoru
Ferdinand Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (JM)
Používám:
AutoCAD2004 (EN) na Windows XP
Stav: Offline
Bodů: 1906
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 11:31
Poněvadž jsem rejpal vyššího stupně (RVT), nedá mi to: pane prasopal666, Makro je hypermarket...Big%20smile
(Prosím ostatní, aby mi to prominuli.)
Myslím, že jako "Zasloužilý člen" byste to snad už měl vědět...Wink(RVT): Načtení aplikace do výkresu se děje příkazem _appload
-FerTh-
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 11:40
Polopatě:
1. Zaslané uložte do souboru s příponou lsp. Nejlépe na prohledávací cestě.
2. Na příkazovou řádku napište (load "neco.lsp")
 
 Kód je sice funkce schopný, ale pokud by měl být opakovaně používán, bylo by vhodné:
- ošetřit lépe vypínání/zapínání ATTDIA (uložit stávající nastavení a na konci vrátit,
- upravit na definici příkazu (defun ...), ošetřit automatické načítání a strčit na nějaké tlačítko.
Vítězslav Seiner

Chrudim
Zpět nahoru
prasopal666 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 09.led.2007
Lokalita: ČR (KV)
Používám:
Autocad 2007
Stav: Offline
Bodů: 164
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 12:58

Původně odeslal(a) Ferdinand Ferdinand napsal(a):

Poněvadž jsem rejpal vyššího stupně (RVT), nedá mi to: pane prasopal666, Makro je hypermarket...Big%20smile
(Prosím ostatní, aby mi to prominuli.)
Myslím, že jako "Zasloužilý člen" byste to snad už měl vědět...Wink(RVT): Načtení aplikace do výkresu se děje příkazem _appload

a co je makro v příkazu makro?

 
ještě me napadá co bylo dříf Makro nebo makro?


Upravil prasopal666 - 27.bře.2007 v 12:59
Autocad 13 - user, PC 386, 16MHZ, 1MB RAM, 14" VGA monitor
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:02
příkaz MAKRO neznám :-(
Vysvětlete, prosím.
Vítězslav Seiner

Chrudim
Zpět nahoru
prasopal666 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 09.led.2007
Lokalita: ČR (KV)
Používám:
Autocad 2007
Stav: Offline
Bodů: 164
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:14
Původně odeslal(a) Seiner Seiner napsal(a):

příkaz MAKRO neznám :-(
Vysvětlete, prosím.
nástroje->makro->makra
 
makro:
množina instrukcí spouštěná zadáním jediného povelu
Autocad 13 - user, PC 386, 16MHZ, 1MB RAM, 14" VGA monitor
Zpět nahoru
prasopal666 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 09.led.2007
Lokalita: ČR (KV)
Používám:
Autocad 2007
Stav: Offline
Bodů: 164
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:17
Původně odeslal(a) Seiner Seiner napsal(a):

 
 Kód je sice funkce schopný, ale pokud by měl být opakovaně používán, bylo by vhodné:
- ošetřit lépe vypínání/zapínání ATTDIA (uložit stávající nastavení a na konci vrátit,
- upravit na definici příkazu (defun ...), ošetřit automatické načítání a strčit na nějaké tlačítko.
 
bohužel mi to MAKRO mi nějak nefunguje, když ho spustim, kliknu na text který chi převést do bloku, text zmyzí a v příkazové řádce se objeví "vyberte objekt"  zde končím respektive nevím jak vybrat objekt když tam žádný není?
 
Autocad 13 - user, PC 386, 16MHZ, 1MB RAM, 14" VGA monitor
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:22

Zkuste mi poslat výpis textové obrazovky.

Mně to píše:
Vyberte objekty:
Příkaz: _-INSERT Zadejte jméno bloku nebo [?]: AUTODEF
Jednotky: Bez jednotek   Převod:      1.00
Určete bod vložení nebo [Refbod/Měřítko/X/Y/Z/Otoč]:
Zadejte měřítko v ose X, zadejte protější roh nebo [Obdélník/XYZ] <1>: 1
Zadejte měřítko Y <použijte měřítko X>: 1
Určete úhel otočení <0.0000>: 0
Zadejte hodnoty atributů
U: fffff
Příkaz: 1
Vítězslav Seiner

Chrudim
Zpět nahoru
prasopal666 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 09.led.2007
Lokalita: ČR (KV)
Používám:
Autocad 2007
Stav: Offline
Bodů: 164
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:24

Příkaz: _appload
makro.lsp byl úspěšně načtený.
makro.lsp byl úspěšně načtený.


Příkaz:
Vyberte objekt:

"AUTODEF.dwg": Nemohu najít soubor ve vyhledávací cestě:
  C:\CADWorx Plant 2006\ (aktuální adresář)
  C:\cadworx plant 2006\support\
  C:\program files\autodesk architectural desktop 2005\support\
  C:\program files\autodesk architectural desktop 2005\fonts\
  C:\program files\autodesk architectural desktop 2005\help\
  C:\program files\autodesk architectural desktop 2005\support\color\
  C:\documents and settings\ales.ruzicka\data aplikací\autodesk\adt
2005\csy\support\
  C:\program files\graitec\advancesteel\profiledesigner\support\images\
  C:\Program Files\Autodesk Architectural Desktop 2005\
*Neplatné*

 


Funkce přerušena
Příkaz:
Příkaz:
Autocad 13 - user, PC 386, 16MHZ, 1MB RAM, 14" VGA monitor
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:28
Pravda - na VBA makra jsem zapomněl. Co je to makro, tak trochu tuším.
Bohužel terminologie v CZ AutoCADu je malinko neustálená, (makra v příkazovém řádku, programy v lispu, makra ve VBA, script soubory - dema)
 
šlo mi o spojení "příkaz makro". Příkaz je pro mne něco jiného, než volba z nabídky nebo název tlačítka.
 
Ale to už dost dlouho buším do prázdné slámy. Pojďme se radši věnovat rozchozeníá toho makra :-)
Vítězslav Seiner

Chrudim
Zpět nahoru
prasopal666 Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 09.led.2007
Lokalita: ČR (KV)
Používám:
Autocad 2007
Stav: Offline
Bodů: 164
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:32
makro už sem spustil, ale neměl jsem vytvořen ten blok AUTODEF, takže se omlouvám
 
leč sem narazil na další problém, když kliknu na text který chci převést do atributu bloku, tak mi to nepřevede


Upravil prasopal666 - 27.bře.2007 v 13:49
Autocad 13 - user, PC 386, 16MHZ, 1MB RAM, 14" VGA monitor
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:33

A to pro vás není dost návodné? Psal jsem přece, abyste si nejprve vytvořil ten blok s jedním atributem, nazval ho AUTODEF a uložil ho na prohledávací cestě. Samozřejmě ho také můžete vytvořit přímo ve výkrese.

 
Vítězslav Seiner

Chrudim
Zpět nahoru
Ferdinand Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (JM)
Používám:
AutoCAD2004 (EN) na Windows XP
Stav: Offline
Bodů: 1906
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:43
Makro je něco jako "proveď následující úkoly" (? - neznám, neumím...) a má tvar např.
Sub EditAttribPrompts()
    Dim obj As Object
...
    On Error Resume Next
    ThisDrawing.Utility.GetEntity obj, pt, "Vyberte blok: "
    If Err <> 0 Then
        Exit Sub
    End If
    Set ent = obj
    If StrComp(ent.ObjectName, "AcDbBlockReference", vbTextCompare) <> 0 Then
        MsgBox "Vybraná entita není blok !"
        Exit Sub
    End If
    Set blkref = ent
    If blkref Is Nothing Then
        MsgBox "Nelze získat blok !"
        Exit Sub
...
lisp je uživatelsky definovaná "nová" funkce (trošičku něco málo z toho znám...) která provede více než 1 operaci a má tvar např.
...
(defun C:DIMARC ( / pt1 pt2 cen a1 a2 D1 D2 D i p r oldOs oldCmde)
 (setq oldCmde (getvar "CMDECHO"))
 (setq oldOs (getvar "OSMODE"))
 (setvar "CMDECHO" 0)
 (prompt "Pick 2 points on an arc - ")
 (setvar "OSMODE" 512)
 (while (not cen)
  (setq    pt1 (getpoint "1st pt: ")
    cen (osnap pt1 "_CEN")
  )
  (if (not cen) (alert "Doesn't lay on an arc, retry")
        (setq pt2 (getpoint cen " 2nd pt: ")))
...
Mám za to, že v podstatě je to totéž ale napsaný jinou formou...(případně mne prosím opravte)
-FerTh-
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 27.bře.2007 v 13:49
NIKDO se neptal, co je to makro. JA jsem se ptal na PŘÍKAZ MAKRO.
 
Program v lispu NEMUSÍ definovat nový příkaz - je to jen jedna z možností použití.
Vítězslav Seiner

Chrudim
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 12654:VIPPřehled názvů všech interních příkazů Inventoru.
Tip 12504:VIPJak spustit nebo nakopírovat iLogic pravidlo z jiného dokumentu?
Tip 6790:VIPPřidání ikony vlastního příkazu/makra v Inventoru.
Tip 6648:VIPDávkové spuštění Převodníku hladin - vynucení standardů.
Tip 6337:VIPVe verzi 2009 a 2010 mi nefungují některá starší makra AutoCADu (menu, cui).
Tip 12845:VIP"AutoExec" - automatické startovací makro pro Autodesk PowerMill.


 Odpovědět Odpovědět Stránka  12> archiv

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,762 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img