CAD FÓRUM - TIPY A TRIKY | UTILITY | DISKUZE | BLOKY | PODPORA | POMOC A RADY
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.098.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ů.
AUTOCAD
INVENTOR
REVIT
CIVIL 3D
FUSION
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností
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
|
Zamena Bloku
Odpovědět 
|
archiv |
| Autor | |
Peter M. 
TOP uživatel 
Přihlášen: 15.srp.2006 Lokalita: ČR (ZL) Používám: AutoCAD 2013, Revit 2010, Inventor 2013 Stav: Offline Bodů: 334 |
 Téma: Zamena BlokuZasláno: 02.bře.2007 v 12:18 |
|
Zdravim panove,
opet se vracim k otazce BLOKY - mam vykres s 250ti stejnymi bloky a 100 z nich potrebuju vymenit za jiny blok. Nechcesemi rucne kazdy obklikavat - chci udelat jeden vyber a tyto vybrane hromadne zamenit za jiny blok. Je na to nekde funcke, nebo jak na to? |
|
|
Peter M.
|
|
 |
|
|
pavelstyl
Zasloužilý člen 
Přihlášen: 06.říj.2004 Lokalita: Czech Republic Používám: AutoCAD Mech 2025, SolidEdgeE 2025 Stav: Offline Bodů: 229 |
Zasláno: 02.bře.2007 v 12:45 |
|
Jestli tomu rozumím, tak chcete:
- oknem vybrat některé bloky ve výkrese
- a tyto bloky vyměnit za nějaký jiný blok (již existující ve výkrese)
- a aby zachoval vkládací bod, měřítka, otočení, ...
Pokud tomu dobře rozumím, tak je to lisp na 10 řádků.
Chcete ho napsat ?
Pavel Štyl
|
|
|
|
|
Ferdinand
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
Zasláno: 02.bře.2007 v 14:02 |
|
Z těch 250-ti se těch 100 jmenuje jak? Je to např. BL0051, BL0052, BL0053, ... anebo je to např SKL1, BAT15, PRO92, ... anebo je to jediný stejný název pro všechny např. VYTBOD, anebo je to úplně jinak? Ty bloky jsou všechny úplně identické (tj. každý obsahuje ty stejné entity se stejnými vlastnostmi)?
Upravil Ferdinand - 02.bře.2007 v 14:03 |
|
|
-FerTh-
|
|
|
|
|
Peter M.
TOP uživatel
Přihlášen: 15.srp.2006 Lokalita: ČR (ZL) Používám: AutoCAD 2013, Revit 2010, Inventor 2013 Stav: Offline Bodů: 334 |
Zasláno: 02.bře.2007 v 14:03 |
|
No to by bylo uzasne.
 Nemusi se vybirat oknem, staci jednotlive - kliknutim - protoze nejsou vedle sebe, ale ruzne rozmistneny.Takze to co vyberu at se zameni za jiny blok. |
|
|
Peter M.
|
|
|
|
|
Peter M.
TOP uživatel
Přihlášen: 15.srp.2006 Lokalita: ČR (ZL) Používám: AutoCAD 2013, Revit 2010, Inventor 2013 Stav: Offline Bodů: 334 |
Zasláno: 02.bře.2007 v 14:05 |
Je to 250 stejnych bloku (stejny nazev) a jen ty, co vyberu at se zameni za jiny blok. |
|
|
Peter M.
|
|
|
|
|
Ferdinand
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
Zasláno: 02.bře.2007 v 14:20 |
|
Tak na to je někde zde už hotový lispík pro záměnu bloku jiným blokem...jakpak se to jmenovalo?...už nevím, zkuste pohledat.
|
|
|
-FerTh-
|
|
|
|
|
Mantlík
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (Pha) Používám: ACAD/Map/Civil R10-> 2022 Stav: Offline Bodů: 2578 |
Zasláno: 02.bře.2007 v 14:20 |
|
Třeba pomůže tahle stará rutinka (autor neznámý). Jednoduchá, ale funguje. Zachová vztažný bod, měřítko i natočení
Omezení - musíte mít nový blok načtený ve výkresu - musíte jeho název vypsat ručně (aspoň poprvé, pokud si ho při vícenásobných nahrazováních uložíte do schránky, je to rychlejší)
- můžete najednou nahradit jen jeden blok
A možná někoho napadne i úprava (třeba že místo názvu bloku se ukáže na už použitý blok) .......
|
|
|
J. Mantlík
|
|
|
|
|
Peter M.
TOP uživatel
Přihlášen: 15.srp.2006 Lokalita: ČR (ZL) Používám: AutoCAD 2013, Revit 2010, Inventor 2013 Stav: Offline Bodů: 334 |
Zasláno: 02.bře.2007 v 14:42 |
|
Vyzkousim - snad mi to nezmeni i ty ostatni bloky. Zkousel jsem z ET Replace BL. w. an. BL, ale to menilo vsechny bloky se stejnym nazvem
 ....
|
|
|
Peter M.
|
|
|
|
|
pavelstyl
Zasloužilý člen
Přihlášen: 06.říj.2004 Lokalita: Czech Republic Používám: AutoCAD Mech 2025, SolidEdgeE 2025 Stav: Offline Bodů: 229 |
Zasláno: 02.bře.2007 v 14:49 |
|
Narychlo zplácnuté, ale myslím, že to dělá co potřebujete. Je to "ukazovací", takže se nic nepíše ručně. První výzva je výběr bloku, který chci vyměnit. Když něco vyberu budou se potom vybírat pouze bloky toho jména. Když dám ENTER, vyberu jakýkoliv blok. Druhá výzva je blok, kterým budu nahrazovat a musí již být vložen ve výkrese No a potom vyberu bloky, které chci vyměnit.
(defun C:VYBLOK (/ bl1 bl2 name2 i eg)
(setq bl1 (entsel "\nVyber blok, který budeme nahrazovat (nebo stiskni ENTER): "))
(setq bl2 (entsel "\nVyber blok, kterým budeme nahrazovat: ")) (setq name2 (cdr (assoc 2 (entget (car bl2))))) (if bl1 (setq vyber (ssget (list (cons -4 "<AND") (cons 0 "INSERT") (assoc 2 (entget (car bl1))) (cons -4 "AND>") ))) (setq vyber (ssget (list (cons 0 "INSERT")))) ) (if (null vyber) (progn (alert "\nNic nebylo vybrano.") (exit) ) ) (setq i 0) (while (< i (sslength vyber)) (setq eg (entget (ssname vyber i))) (setq eg (subst (cons 2 name2) (assoc 2 eg) eg)) (entmod eg) (setq i (1+ i)) ) (princ) ) Pavel Štyl
|
|
|
|
|
PepaR
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
CAD/BIM manager
Přihlášen: 29.lis.2004 Lokalita: ČR (ZL) Používám: ruky a hlavu (občas ;) Stav: Offline Bodů: 6206 |
Zasláno: 03.bře.2007 v 14:08 |
|
Něco podobného se tu již řešilo, viz nástroj BLKREDEF.LSP.
Upravil PepaR - 03.bře.2007 v 14:17 |
|
|
|
Možnosti tématu
Ferdinand napsal(a):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,344 sekund.
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
