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
|
Nahradenie textu v kóte
Odpovědět 
|
Stránka 12> archiv |
| Autor | |
michaelflyer 
Zasloužilý člen 
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
 Téma: Nahradenie textu v kóteZasláno: 01.čvc.2008 v 13:13 |
|
Chcel by som vylepšiť to prepisovanie kót takto:
Vyberiem smerodajnú (prvú) kótu a zvýrazni mi ju, zmení sa kurzor myši a vyberám ostane kóty (kóty na zmenu). Chcem to spraviť na spôsob ako je príkaz: '_matchprop Dá sa to????  Alebo vedel by mi niekto pomôcť???
|
|
|
Michal MUCHA
|
|
 |
|
|
michaelflyer
Zasloužilý člen
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
Zasláno: 22.čer.2008 v 10:32 |
|
Tu som to upravil tak, aby užívateľ mohol vybrať viac kót na zmenu podľa prvého výberu. Len neviem, či by nebolo lepšie to naprogramovať tak, aby užívateľ vybral prvú kótu ako smerodajnú a ostatné k tomu. Všetko by bolo obsiahnuté iba v jednom výbere ssget (ent1).
(defun c:VY (/) (prompt "\nVyber kotu:") (setq ent1 (ssget)) (prompt "\nVyber koty NA ZMENU:") (setq ent2 (ssget)) (setq entita1 (ssname ent1 0)) (setq entita2 (ssname ent2 0)) (setq cislo_posled_entity2 (sslength ent2)) (setq meno_posled_entity2 (ssname ent2 (1- cislo_posled_entity2))) (setq zoznam_ent1 (entget entita1)) (setq n 0) (while (<= n (1- cislo_posled_entity2)) (setq entita2 (ssname ent2 n)) (setq zoznam_ent2 (entget entita2)) (setq text1 (setvar "LUPREC" 1) text1 (rtos (cdr (assoc 42 zoznam_ent1)))) (setq zoznam_ent2 (subst (cons 1 text1) (assoc 1 zoznam_ent2) zoznam_ent2)) (entmod zoznam_ent2) (setq n (1+ n)) (princ n) ) (princ) ) |
|
|
Michal MUCHA
|
|
|
|
|
michaelflyer
Zasloužilý člen
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
Zasláno: 22.čer.2008 v 08:47 |
|
Ak som to pochopil správne tak táto funkcia sa stará aj o to zaokrúhľovanie:
(setvar "LUPREC" 1) Hádam som to pochopil správne od kolegov (tu na fóre). |
|
|
Michal MUCHA
|
|
|
|
|
Sedláček
TOP uživatel 
Přihlášen: 15.dub.2005 Lokalita: Czech Republic Používám: AutoCad 2024 LT Stav: Offline Bodů: 384 |
Zasláno: 20.čer.2008 v 15:17 |
|
Ještě jste psal o zaokrouhlování, na to je jednoduchá finta, před použitím funkce RTOS přípočtěte k číslu 0,05 (pokud zaokrouhlujete na jedno desetinné číslo) a druhé desetinné číslo "odříznete"
|
|
|
|
|
michaelflyer
Zasloužilý člen
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
Zasláno: 20.čer.2008 v 15:02 |
|
Mne sa to zdalo, že to nejaká ta funkcia má, len som si nebol istý a bál som sa, že budem písať blbosti!
Upravil michaelflyer - 20.čer.2008 v 15:03 |
|
|
Michal MUCHA
|
|
|
|
|
Sedláček
TOP uživatel
Přihlášen: 15.dub.2005 Lokalita: Czech Republic Používám: AutoCad 2024 LT Stav: Offline Bodů: 384 |
Zasláno: 20.čer.2008 v 14:41 |
|
Počet desetinných míst je jedním z parametrů funkce RTOS, takže asi (nezkoušel jsem)
(setq text1 (rtos (cdr (assoc 42 zoznam_ent1))2 1))
|
|
|
|
|
michaelflyer
Zasloužilý člen
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
Zasláno: 20.čer.2008 v 14:26 |
|
Ďakujem za radu.
Čo sa týka toho ssget, tak sa mi na ňom páči to, že my vybraný objekt zvýrazní. Tak viem, že som ho vybral. Ale u entsel neviem, či som objekt trafil a zároveň vybral, alebo nie. |
|
|
Michal MUCHA
|
|
|
|
|
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: 20.čer.2008 v 12:26 |
|
Na čáru přerušení je příkaz breakline v Expresech.
Osobně ze zásady nikdy nepoužívám "nereálné" anebo upravované kóty.
To Říha: Vy to sice budete vědět, ale jakmile takový výkres dwg předáte dál (myslím externě) jako podklad k dalšímu zpracování, dotyčný tam bude sice vidět "různobarevné" kóty, ovšem asi ho bude zlobit, když si odměří vzdálenosti na výkresu a ty nebudou v korespondenci s kótama...Pak nastává (zbytečně) zdlooouhavý proces prověřování všech kót výkresu hezky jednu po druhé - poněvadž on už ten dotyčný nástroj nemá/nezná...Anebo (což je velmi pravděpodobný) má pouze LTčko a všechny "bleskurychlé" pomocníci z rodiny Lispů jsou mu k ničemu. Upravil Ferdinand - 20.čer.2008 v 12:28 |
|
|
-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 |
Zasláno: 20.čer.2008 v 12:08 |
|
Nastavit jednotky na 1 desetinné místo - příkazem _units, myslím že to řídí proměnná luprec.
|
|
|
-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: 20.čer.2008 v 12:01 |
|
Pokud si vzpominam, na počet desetinných míst má vliv proměnná LUPREC.
Zkusil bych před ten řádek s funkcí rtos přidat (setvar "LUPREC" 1) a za tím rtos zase vrátit na původní hodnotu.
Jinak k programu jedna připomínka.
Je tam použita funkce ssget, která umožní vybrat jednu i více entit. Program ale zpracuje pouze první vybranou. Buď bych místo ssget použil entsel nebo bych program upravil tak, aby opravil všechny entity ve výběru. Takhle je to trošku matoucí.
Pavel Štyl
|
|
|
|
|
michaelflyer
Zasloužilý člen
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
Zasláno: 20.čer.2008 v 11:37 |
|
Ešte by som sa chcel opýtať, ako by som dosiahol, aby bolo číslo iba s jedným desatinným miestom. Zaokrúhľovať to nemusí. Ale ak aj to niekto viete tak, som samé ucho, teda oko
 Upravil michaelflyer - 20.čer.2008 v 11:39 |
|
|
Michal MUCHA
|
|
|
|
|
michaelflyer
Zasloužilý člen
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
Zasláno: 20.čer.2008 v 10:38 |
|
Ďakujem všetkým za pomoc.
Vyriešil som to. Mali ste pravdu, treba to premeniť na text :) Tak, definitívne ak by to niekto chcel použiť: (defun c:VY (/ ent1 ent2 entita1 entita2 text1) (prompt "\nVyber kotu:") (setq ent1 (ssget)) (prompt "\nVyber kotu NA ZMENU:") (setq ent2 (ssget)) (setq entita1 (ssname ent1 0)) (setq entita2 (ssname ent2 0)) (setq zoznam_ent1 (entget entita1)) (setq zoznam_ent2 (entget entita2)) (setq text1 (rtos (cdr (assoc 42 zoznam_ent1)))) (setq zoznam_ent2 (subst (cons 1 text1) (assoc 1 zoznam_ent2) zoznam_ent2)) (entmod zoznam_ent2) (command "_regen") (princ) ) |
|
|
Michal MUCHA
|
|
|
|
|
Sedláček
TOP uživatel
Přihlášen: 15.dub.2005 Lokalita: Czech Republic Používám: AutoCad 2024 LT Stav: Offline Bodů: 384 |
Zasláno: 20.čer.2008 v 09:32 |
|
Nejde spíše o převod z čísla na text? Pak funkce ITOA nebo RTOS. |
|
|
|
|
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ů: 22035 |
Zasláno: 20.čer.2008 v 09:14 |
|
nevím sice přesně důvod, ale uvozovky k TEXTu přidáte např. pomocí:
|
|
|
|
|
michaelflyer
Zasloužilý člen
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
Zasláno: 20.čer.2008 v 08:00 |
|
Konečne som prišiel na to prečo to nefunguje!!!
Tuto bola drobná chyba: (setq text1 (cdr (assoc 42 zoznam_ent1))) a tu je pes zakopaný: (cons 1 text1) ten text1 treba dať do úvodzoviek. Napíše to takto (1 . 1030), ale keď text1 dám do úvodzoviek tak mi napíše (1 . "text1") Ako by sa dali doplniť tie úvodzovky??? Potrebujem dostať tvar (1 . "1030"). "pavelstyl": Ospravedlňujem sa vám za môj skepticizmus! Vopred ďakujme. |
|
|
Michal MUCHA
|
|
|
|
|
michaelflyer
Zasloužilý člen
Přihlášen: 05.úno.2007 Lokalita: Slovensko Používám: AutoCAD Stav: Offline Bodů: 105 |
Zasláno: 19.čer.2008 v 19:44 |
|
Vie mi ešte niekto poradiť, s mojím problémom???
|
|
|
Michal MUCHA
|
|
|
|
|
Mrázek
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
TOP uživatel
Přihlášen: 05.říj.2004 Lokalita: ČR (LB) Používám: Inventor 2018, AutoCAD 2018, Vault Pro 2018 Stav: Offline Bodů: 1199 |
Zasláno: 19.čer.2008 v 16:00 |
|
Jak už použil pan Běhunčík - čára přerušení. Při ručním kreslení se používalo leccos (nejčastěji čára od ruky, u hřídelů zmíněná vlnovka apod.), při konstruování na počítači se asi nejvíce ujala "cik-cak" čára. I když občs někdo použije spline apod.
|
|
|
Ing. Zdeněk Mrázek
Preciosa Ornela a.s. AIP 2018, ACADM 2018, Vault Pro 2018 |
|
|
|
|
Rostislav Říha
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
TOP uživatel
Přihlášen: 03.říj.2004 Lokalita: ČR (Pha) Používám: ACA 2010 Stav: Offline Bodů: 1620 |
Zasláno: 19.čer.2008 v 15:52 |
|
je. dik.
takze: jaky je cesky preklad slova "breakline"?:)
|
|
|
Rostislav Říha
|
|
|
|
Možnosti tématuPro 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,496 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
