Již 10.000+ CAD tipů.
Přes 118.000 registrovaných u nás, celkem 1.092.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
Stránka <12 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 |
![]() |
To Buba: Jasně, příkaz jako takový jsem vyzkoušel a funguje bez jediného zádrhelu (2x kliknout, 1x napsat, 1x Enter). Ovšem zde jsme ve fóru Programování, tudíž to chci použít v lispu. Bohužel, v tomto případě asi mám smůlu. To Sedláček: To myslíte sáhnout do kódu gatte.lsp ?
|
|
-FerTh-
|
|
![]() |
|
Sedláček ![]() TOP uživatel ![]() Přihlášen: 15.dub.2005 Lokalita: Czech Republic Používám: AutoCad 2024 LT Stav: Offline Bodů: 384 |
![]() |
Ano myslel jsem sáhnout do GATTE.LSP. Ale obávám se, že to nebude až ak jednoduché.
Jen pro úplnost jsem zkoušel příkaz _-ATTEDIT. I zde jsem narazil na problém s diakritikou. (Mám A2002LT)
Jsem rád, že jsem si zvykl (jako odkojenec DOSu) psát názvy souborů, bloků, hladin... bez hacku bez carek.
|
|
![]() |
|
Luděk Líkař ![]() Diskutér ![]() Přihlášen: 10.čer.2005 Lokalita: ČR (JČ) Používám: AutoCad LT 2018 Stav: Offline Bodů: 41 |
![]() |
Pro to co potřebujete mám udělanou utilitku ve VBA, která mi běží pod AC 2004 na XP (vzhledem k použitým funkcím XP nutné). Po nastavení prohledá soubor a změní hodnotu daného atributu ve všech blocích výkresu daného jména. Pro nastavení je nutné mít daný blok v samostaném souboru. U výkresů s velkým množstvím entit to trvá déle. Pokud budete mít zájem mohu utilitku nahrát na server iprojekt. Dejte vědět.
|
|
Líkař
|
|
![]() |
|
chlebovsky ![]() 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
Zasloužilý člen ![]() ![]() Přihlášen: 18.čer.2007 Lokalita: ČR (JM) Používám: Autocad R9 - 2022 Stav: Offline Bodů: 112 |
![]() |
Pokud jsem dobře pochopil tak ve výkrese je spousta bloků, a já potřebuju vybrat jen se jménem "RT1" a u těchto bloků změnit pouze atribut "DATUM" na nějaký napsaný text.
Toto by to mělo vyřešit :
(setq ssbloky (ssget "X" '((0 . "INSERT") (2 . "RT1"))))
(if (/= ssbloky nil) (progn (setq newdate (strcase (getstring "\nNovy datum: <2008-07-01> "))) (setq i 0) (repeat (sslength ssbloky) (setq blok (entget (ssname ssbloky i))) (setq ent blok) (while (= (cdr (assoc 0 (setq ent (entget (entnext (cdr (assoc -1 ent))))))) "ATTRIB") (if (= "DATUM" (cdr (assoc 2 ent))) (progn (setq ent (subst (cons 1 newdate) (assoc 1 ent) ent)) (entmod ent) (entupd (cdr (assoc -1 ent))) ) ) ) (setq i (1+ i)) ) ) (alert "Ve výkrese se blok RT1 nevyskytuje.") ) teda doufám :-)
jinak ten zázračný příkaz jak bylo hned na začítku poptáváno je entnext....
ono totiž attributy a vertexy od křivek nelze nikde jen tak jednoduše vyhledat, ale je vždy pravidlem že když vytvoříte blok s atributama nebo křivku, tak první entita je vždy ten blok, a zaním jsou přiřazené entity - atributy popř. body na křivce, a jsou tak dlouho dokud to není uzavřené SEQEND, pak následují další entity....
takže získat jméno entity bloku = BLOKJM a
následující atribut je
ATT1 (entnext BLOKJM)
ATT2 (entnext ATT1)
ATT3 (entnext ATT2)
...
...
...
a to tak dlouho dokud to nebude SEQEND
taktéž i se křivkou, a můžete tím měnit i jednotlivé body :-)
Snad jsem pomohl. |
|
Ing. Martin Chlebovský
www.kde-je-auto.cz GPS monitoring provozu vozidel a osob. WebDeveloper. Programátor aplikací pro Autocad a MS Office. Tvorba WWW aplikací. Modelování domů a staveb.&l |
|
![]() |
|
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 |
![]() |
To Chlebovsky: Hned to jdu vyzkoušet.
To Líkař: OK, pokud to dáváte k použití pro širokou veřejnost, tak si to z iprojectu stáhnu (jaký má název ten soubor?) a vyzkouším.
Děkuji všem!
|
|
-FerTh-
|
|
![]() |
|
Luděk Líkař ![]() Diskutér ![]() Přihlášen: 10.čer.2005 Lokalita: ČR (JČ) Používám: AutoCad LT 2018 Stav: Offline Bodů: 41 |
![]() |
Líkař
|
|
![]() |
|
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 |
![]() |
Po rozbalení mi antivir hlásí virus.
![]() |
|
-FerTh-
|
|
![]() |
|
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 |
![]() |
To Chlebovsky: Pochopil jste mne dobře, děkuji, tohle mi chodí bez problému.
|
|
-FerTh-
|
|
![]() |
|
Luděk Líkař ![]() Diskutér ![]() Přihlášen: 10.čer.2005 Lokalita: ČR (JČ) Používám: AutoCad LT 2018 Stav: Offline Bodů: 41 |
![]() |
Projel jsem stažený soubor z i-projektu AVG a je čistý, tak netuším jak to, že Vám to hlásí vir. Tohle se mi stalo v září u GGmenu a u CAD standardů, ale soubor jsem nahrával v červenci.
|
|
Líkař
|
|
![]() |
|
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 |
![]() |
OT: (Nejspíše do fóra Non-acad-sw ... ale zde se to týká uvedeného souboru) Používáme antivirový program VirusScan. Náš specialista IT tvrdí, že každý antivir dělá nějak "jinak", něco "jiného", že se zaměřuje na určitou oblast.
|
|
-FerTh-
|
|
![]() |
|
Luděk Líkař ![]() Diskutér ![]() Přihlášen: 10.čer.2005 Lokalita: ČR (JČ) Používám: AutoCad LT 2018 Stav: Offline Bodů: 41 |
![]() |
Soubor jsem prověřil také pomocí NOD32 a je čistý. Zkuste použít jiný antivirus. Význam textu v závorce ?? |
|
Líkař
|
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět ![]() |
Stránka <12 archiv |
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,188 sekund.