CAD FÓRUM - TIPY A TRIKY | UTILITY | DISKUZE | BLOKY | PODPORA | POMOC A RADY
Děkujeme za účast na konferenci CADfórum 2025 - podívejte se na reportáž
Přes 120.000 registrovaných u nás, celkem 1.105.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor a
proměnné prostředí AutoCADu.
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
|
tvorba bloku
Odpovědět 
|
archiv |
| Autor | |
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 |
 Téma: tvorba blokuZasláno: 12.úno.2009 v 08:53 |
|
Mám lisp pro vytvoření bloku
(defun...
...
(command "-purge" "_B" "*" "_N")
(setq DWG (cadr (fnsplitl (getvar "dwgname")))) (setq DWGC (strcat DWG "_C")) (setq DWGH (strcat DWG "_H")) (setq QS (ssget "X" (list (cons 0 "insert") (cons 2 DWG)))) (setq QSC (ssget "X" (list (cons 0 "insert") (cons 2 DWGC)))) (setq QSH (ssget "X" (list (cons 0 "insert") (cons 2 DWGH)))) (if (tblsearch "block" DWG) nil (progn (command "_-block" DWG "0,0" "_All" "_R" !QSC !QSH "") (command "_-insert" DWG "0,0" 1 1 0) (command "_-purge" "_A" "*" "_N") (command "_zoom" "_e") (command "_qsave") ) ) ...
)
Pokud ten lisp načtu, vytvoří se blok včetně DWGC a DWGH (pokud tam jsou) - což nechci
 ; potřebuji čistě blok ze všech entit kromě již hotových bloků DWGC a DWGH.Další zajímavost je, že při ladění lispu když řádek
(command "-block" DWG "0,0" "_All" "_R" !QSC !QSH "")
jsem vložil do p.ř., nic se neprovedlo. Pokud jsem to psal ručně, tak se to provedlo.  |
|
|
-FerTh-
|
|
 |
|
|
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: 12.úno.2009 v 08:57 |
Ty vykřičníky mi tam nějak nesedí. Zkusil bych to bez nich.
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: 12.úno.2009 v 10:12 |
|
To jsem samozřejmě již vyzkoušel. Nakopíruji-li do p.ř. (command "_-block"
tak to provede, ale pokud píšu ručně na p.ř. celý příkaz -block, tak tam musím psát !QSC..., jinak tu výběrovou množinu neuzná... Jak to má být v lispu?
|
|
|
-FerTh-
|
|
|
|
|
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ů: 22032 |
Zasláno: 12.úno.2009 v 13:07 |
|
V LISPU píšete jen název proměnné (symbolu) s výběrovou množinou. Při ručním zadávání příkazu žádný LISP neběží, takže se k hodnotě symbolu musíte dostat funkcí "!".
|
|
|
|
|
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: 12.úno.2009 v 14:39 |
|
Děkuji za objasnění. Takže při použití ! mi vytvořil blok včetně DWGC, DWGH proto, že výrazy !Q... v lispu jsou brány jako nil - vlastně jsem odebíral "nic"... Opraveno, vyzkoušeno, je to OK.
|
|
|
-FerTh-
|
|
|
|
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,164 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
