CAD Fórum : Nahradenie textu v kóte https://www.cadforum.cz/forum/ Fri, 15 May 2026 09:12:27 +0000 Tue, 01 Jul 2008 13:13:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=6658 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Nahradenie textu v kóte : Chcel by som vylepšiť to prepisovanie...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32636&title=nahradenie-textu-v-kote#32636 Autor: michaelflyer
Předmět: 6658
Zaslá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ť???]]> Tue, 01 Jul 2008 13:13:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32636&title=nahradenie-textu-v-kote#32636 <![CDATA[Nahradenie textu v kóte : Tu som to upravil tak, aby užívateľ...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32438&title=nahradenie-textu-v-kote#32438 Autor: michaelflyer
Předmět: 6658
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)
)]]> Sun, 22 Jun 2008 10:32:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32438&title=nahradenie-textu-v-kote#32438 <![CDATA[Nahradenie textu v kóte : Ak som to pochopil správne tak...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32437&title=nahradenie-textu-v-kote#32437 Autor: michaelflyer
Předmět: 6658
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).
]]> Sun, 22 Jun 2008 08:47:46 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32437&title=nahradenie-textu-v-kote#32437 <![CDATA[Nahradenie textu v kóte : Ještě jste psal o zaokrouhlování,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32426&title=nahradenie-textu-v-kote#32426 Autor: Sedláček
Předmět: 6658
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" ]]> Fri, 20 Jun 2008 15:17:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32426&title=nahradenie-textu-v-kote#32426 <![CDATA[Nahradenie textu v kóte : Mne sa to zdalo, že to nejaká...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32425&title=nahradenie-textu-v-kote#32425 Autor: michaelflyer
Předmět: 6658
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]]> Fri, 20 Jun 2008 15:02:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32425&title=nahradenie-textu-v-kote#32425 <![CDATA[Nahradenie textu v kóte : Počet desetinných míst je jedním...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32424&title=nahradenie-textu-v-kote#32424 Autor: Sedláček
Předmět: 6658
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))
]]> Fri, 20 Jun 2008 14:41:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32424&title=nahradenie-textu-v-kote#32424 <![CDATA[Nahradenie textu v kóte : Ďakujem za radu. Čo sa týka toho...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32421&title=nahradenie-textu-v-kote#32421 Autor: michaelflyer
Předmět: 6658
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.
]]> Fri, 20 Jun 2008 14:26:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32421&title=nahradenie-textu-v-kote#32421 <![CDATA[Nahradenie textu v kóte : Na čáru přerušení je příkaz breakline...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32414&title=nahradenie-textu-v-kote#32414 Autor: Ferdinand
Předmět: 6658
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]]> Fri, 20 Jun 2008 12:26:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32414&title=nahradenie-textu-v-kote#32414 <![CDATA[Nahradenie textu v kóte : Nastavit jednotky na 1 desetinné...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32412&title=nahradenie-textu-v-kote#32412 Autor: Ferdinand
Předmět: 6658
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.]]> Fri, 20 Jun 2008 12:08:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32412&title=nahradenie-textu-v-kote#32412 <![CDATA[Nahradenie textu v kóte : Pokud si vzpominam, na počet desetinných...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32411&title=nahradenie-textu-v-kote#32411 Autor: pavelstyl
Předmět: 6658
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
 
]]> Fri, 20 Jun 2008 12:01:19 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6658&PID=32411&title=nahradenie-textu-v-kote#32411