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řenoNahradenie textu v kóte

 Odpovědět Odpovědět Stránka  12> archiv
Autor
michaelflyer Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.úno.2007
Lokalita: Slovensko
Používám:
AutoCAD
Stav: Offline
Bodů: 105
Přímý odkaz na tuto zprávu Téma: Nahradenie textu v kóte
    Zasláno: 19.čer.2008 v 12:56
Dobrý deň.

Chcel by som poradiť ohľadom nahradenia niečoho za niečo iné...
Chcem nahradiť text z jednej kóty za druhý z druhej kóty. Chýba mi len ten príkaz....

(defun c:VY ()
(prompt "\nVyber kotu:")
(setq ent1 (ssget))
(prompt "\nVyber kotu NA ZMENU:")
(setq ent2 (ssget))

(setq entita1 (ssname ent1 0))
(setq entita2 (ssname ent2 1))

(setq zoznam_ent (entget entita1))
(setq a (cdr (assoc 42 zoznam_ent)))


(setq     ent2 ?????
               (cons 1 a)
      )
)


Vopred ďakujem.
Michal MUCHA
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: 19.čer.2008 v 13:32
K čemu je to dobré? Vy snad nekreslíte v měřítku 1:1 ?  Přepisovat skutečné kóty silně nedoporučuji!

Upravil Ferdinand - 19.čer.2008 v 13:33
-FerTh-
Zpět nahoru
michaelflyer Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.úno.2007
Lokalita: Slovensko
Používám:
AutoCAD
Stav: Offline
Bodů: 105
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 13:37
Keď niečo odrežem a skrátim tak, aby sa mi to vošlo na výkres, treba zakótovať skutočnú dĺžku
Michal MUCHA
Zpět nahoru
Rostislav Říha Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.říj.2004
Lokalita: ČR (Pha)
Používám:
ACA 2010
Stav: Offline
Bodů: 1615
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 13:52
Původně odeslal(a) Ferdinand Ferdinand napsal(a):

K čemu je to dobré? Vy snad nekreslíte v měřítku 1:1 ?  Přepisovat skutečné kóty silně nedoporučuji!
my třeba kreslíme v měřítku 1:1 a přesto - co si budem nalhávat - je občas třeba kótu upravit. Od kohosi máme lisp, který umí všechny kóty, které jsou přepsané, buď barevně zvýraznit, nebo hodit do extra hladiny, nebo jejich text podtrhnout. takže přepisujeme úplně klidně, protože máme prostředek, jak to po sobě pak zkontrolovat....
Rostislav Říha
Zpět nahoru
Rostislav Říha Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.říj.2004
Lokalita: ČR (Pha)
Používám:
ACA 2010
Stav: Offline
Bodů: 1615
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 13:55
Původně odeslal(a) michaelflyer michaelflyer napsal(a):

Keď niečo odrežem a skrátim tak, aby sa mi to vošlo na výkres, treba zakótovať skutočnú dĺžku
pokial mate na mysli to, ze trebars dlhy tram zobrazite s tou vlnovkou v strede, akoze je skrateny, a pomedzi vlnovkami sa neodohrava nic zaujimave, tak odporucam nerobit to "natvrdo" skratenim prvku, ale skor vykreslit prvok cely, zakotovat realisticky a vo vykresovom priestore spravit zodva vyrezy vedla seba, troska ich odsadit a tie vlnovky spravit tam.
 
PS: jak se ty "vlnovky" jmenují odborně?
Rostislav Říha
Zpět nahoru
michaelflyer Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.úno.2007
Lokalita: Slovensko
Používám:
AutoCAD
Stav: Offline
Bodů: 105
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 14:11
Keby to bol len jeden dielec, tak by to šlo. Ale je toho veľa. Potrebujem to vytlačiť aj tak M 1:1 a hlavne aby sa toho zmestilo na výkres čo najviac. A tá skutočná dĺžka bude len v kusovníku (ten dielec už niekde nemám vykreslený, lebo to nepotrebujem. Ide len o detail koncov, ako ich treba urobiť).

PS: Myslíte polyline, alebo (toto skôr) spline
Michal MUCHA
Zpět nahoru
pavelstyl Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 06.říj.2004
Lokalita: Czech Republic
Používám:
AutoCAD Mech 2025, SolidEdgeE 2025
Stav: Offline
Bodů: 229
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 14:14
Zkuste toto:
 

(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 (cdr (assoc 1 zoznam_ent1)))
 (setq zoznam_ent2 (subst (cons 1 text1) (assoc 1 zoznam_ent2) zoznam_ent2))
 (entmod zoznam_ent2)
 (command "_regen")
 (princ)
)
 
Pavel Štyl
 
Zpět nahoru
michaelflyer Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.úno.2007
Lokalita: Slovensko
Používám:
AutoCAD
Stav: Offline
Bodů: 105
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 14:40
Takto to nefunguje

Možno to asi nechápem, ale nie je mi jasné prečo to chcete vtlačiť do zoznamu entity. Ono to podľa mňa musí prepísať a nie pridať ďalší "list" riadok. Možno preto nechce urobiť to čo chcem...

Ale ďakujem za pomoc.
Michal MUCHA
Zpět nahoru
vbehun Zobrazit panel
TOP uživatel
TOP uživatel
Avatar

Přihlášen: 04.říj.2004
Lokalita: ČR (ZL)
Používám:
Autocad R10 >> Autocad 2023 / altern. QCad Prof.
Stav: Offline
Bodů: 1247
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 14:56
"Vlnovky" jako čára přerušení řezu nebo obrazu?   U rotačních rotačních částí se ještě kreslí taková jako osmička s jedním šrafovaným a jedním polovičním bříškem (dvě symetricky zrcadlené proti sobě).
Jinak vlnovka v textu je "tilda" . Čára přerušení se dá rovněž nakreslit jako složená čára s textovým znakem "tilda/vlnovka".
Původně odeslal(a) Rostislav Říha Rostislav Říha napsal(a):

PS: jak se ty "vlnovky" jmenují odborně?


Upravil vbehun - 19.čer.2008 v 19:21
Zpět nahoru
cestár Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 27.říj.2006
Lokalita: Slovensko
Používám:
Civil 3D 2018
Stav: Offline
Bodů: 313
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 15:38
[/QUOTE] PS: jak se ty "vlnovky" jmenují odborně?[/QUOTE]
Nie je reč o breakline? (po česky/slovensky to neviem)
Zpět nahoru
Rostislav Říha Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.říj.2004
Lokalita: ČR (Pha)
Používám:
ACA 2010
Stav: Offline
Bodů: 1615
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 15:52
je. dik.
takze: jaky je cesky preklad slova "breakline"?:)
Rostislav Říha
Zpět nahoru
Mrázek Zobrazit panel
TOP uživatel
TOP uživatel
Avatar

Přihlášen: 05.říj.2004
Lokalita: ČR (LB)
Používám:
Inventor 2018, AutoCAD 2018, Vault Pro 2018
Stav: Offline
Bodů: 1199
Přímý odkaz na tuto zprávu 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
Zpět nahoru
michaelflyer Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.úno.2007
Lokalita: Slovensko
Používám:
AutoCAD
Stav: Offline
Bodů: 105
Přímý odkaz na tuto zprávu Zasláno: 19.čer.2008 v 19:44
Vie mi ešte niekto poradiť, s mojím problémom???
Michal MUCHA
Zpět nahoru
michaelflyer Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.úno.2007
Lokalita: Slovensko
Používám:
AutoCAD
Stav: Offline
Bodů: 105
Přímý odkaz na tuto zprávu 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
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ů: 21952
Přímý odkaz na tuto zprávu Zasláno: 20.čer.2008 v 09:14
nevím sice přesně důvod, ale uvozovky k TEXTu přidáte např. pomocí:
(strcat (chr 34) TEXT (chr 34))
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Sedláček Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 15.dub.2005
Lokalita: Czech Republic
Používám:
AutoCad 2024 LT
Stav: Offline
Bodů: 384
Přímý odkaz na tuto zprávu Zasláno: 20.čer.2008 v 09:32

Nejde spíše o převod z čísla na text? Pak funkce ITOA nebo RTOS.

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

Přihlášen: 05.úno.2007
Lokalita: Slovensko
Používám:
AutoCAD
Stav: Offline
Bodů: 105
Přímý odkaz na tuto zprávu 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
Zpět nahoru
michaelflyer Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.úno.2007
Lokalita: Slovensko
Používám:
AutoCAD
Stav: Offline
Bodů: 105
Přímý odkaz na tuto zprávu 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
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 5416:Po aktualizaci Windows XP se nezobrazuje text ve výkresech Inventoru!
Tip 11421:VIPPosunuté nebo širší texty v DWG při úpravě vlastností ve Vaultu.
Tip 13998:VIPSnadné hromadné vyhledání a nahrazení textu ve výkresech Inventoru - iLogic (viz nový tip)
Tip 10898:VIPRozmazané texty nebo nesprávné zobrazení UI ve vysokém rozlišení.
Tip 3730:VIPPřidání masky pozadí pro vybrané texty výkresu najednou.
Tip 8207:VIPUzamčené, needitovatelné texty ve výkresu Civilu 2012.


 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,402 sekund.