CAD Fórum : Kóty https://www.cadforum.cz/forum/ Wed, 29 Apr 2026 15:36:09 +0000 Fri, 18 Mar 2005 10:10:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=587 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Kóty : Pokud máte v objektu cca 5 oken,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2232&title=koty#2232 Autor: PepaR
Předmět: 587
Zasláno: 18.bře.2005 v 10:10

Pokud máte v objektu cca 5 oken, tak je to zbytečné. Avšak zkuste kótovat a zapisovat text pod kótu standarním způsobem přes Vlastnosti nebo editaci textu kóty, zatím co já použiji lisp s dialogem, kde mám navoleny typizované rozměry v objektu nejčastěji používané. Veřím tomu, že okótuji stajný objekt alespoň o 1/3 rychleji...
]]> Fri, 18 Mar 2005 10:10:38 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2232&title=koty#2232 <![CDATA[Kóty : A proč používat lisp. když je...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2228&title=koty#2228 Autor: Miroslav Harant
Předmět: 587
Zasláno: 18.bře.2005 v 09:27

A proč používat lisp. když je to standardně nastavitelné? ]]> Fri, 18 Mar 2005 09:27:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2228&title=koty#2228 <![CDATA[Kóty : Text pod kótovací čarou šikovný...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2223&title=koty#2223 Autor: PepaR
Předmět: 587
Zasláno: 17.bře.2005 v 22:20

Text pod kótovací čarou šikovný lisp, kde si můžete předdefinovat vlastní text, který se bude pod kótu vkládat. Lisp se jmenuje Dimension Note / Autor: Mike Lapinski.
]]> Thu, 17 Mar 2005 22:20:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2223&title=koty#2223 <![CDATA[Kóty : Aha, takže takhle: 1. založte...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2200&title=koty#2200 Autor: Seiner
Předmět: 587
Zasláno: 17.bře.2005 v 09:33

Aha, takže takhle:

1. založte si textový soubor někde na prohledávací cestě AutoCADu (např. support) a nazvěte ho DEA.lsp.

2. Přes schránku do něj vložte text:

(defun c:dea (/ a m o)
(setq a(entget(setq o(nth 0(entsel "\nVyber kotu ")))))
(if (= "DIMENSION" (cdr(assoc 0 a)))(progn
(setq m(rtos(cdr(assoc 42 a))(getvar "DIMDEC")))
(setq a(subst (cons '1  m) (assoc 1 a) a))
(entmod a)(princ m))(Princ "NENÍ KÓTA"))(princ))

3. Na příkazovou řádku napište (load "DEA")

4. Odteď vám ve výkrese funguje příkaz DEA ("deasociace" :-)

5. Pokud se vám to bude líbit, dejte si do acad.mnl řádek

(AUTOLOAD "DEA" '("DEA"))

6. Případně si můžete udělat na příkaz DEA tlačítko.



Upravil Seiner]]> Thu, 17 Mar 2005 09:33:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2200&title=koty#2200 <![CDATA[Kóty : Seiner napsal(a): Zkuste tohle: (setq...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2199&title=koty#2199 Autor: mark
Předmět: 587
Zasláno: 17.bře.2005 v 09:09

Původně odeslal(a) Seiner Seiner napsal(a):

Zkuste tohle:

(setq a(entget(setq o(nth 0(entsel "\nVyber kotu ")))))
(setq m(rtos(cdr(assoc 42 a))(getvar "DIMDEC")))
(setq a(subst (cons '1  m) (assoc 1 a) a))
(entmod a)

Bohužel s programováním nemám žádné zkušenosti. Jsem pouhý uživatel. Dík za snahu, ale potřeboval bych ještě nakopnout co tím a kam s tím. Chápu, že je to asi něco v lispu, ale nevím co dál.

]]> Thu, 17 Mar 2005 09:09:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2199&title=koty#2199 <![CDATA[Kóty : Vladimír Michl napsal(a): ...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2198&title=koty#2198 Autor: mark
Předmět: 587
Zasláno: 17.bře.2005 v 09:05

Původně odeslal(a) Vladimír Michl Vladimír Michl napsal(a):

Původně odeslal(a) mark mark napsal(a):

Původně odeslal(a) Pepa Pepa napsal(a):

psát text i pod kótovací čáru cad umí - po sekvenci \X je následující text pod čarou, když použijete \P,  je text zas "o patro" níž - lze použít u textu kóty nad i pod čarou. Jo, X i P musí být velké.

Dík dobrý tip to jsem nevěděl

viz tip Víceřádkové texty kót pomocí řídících znaků

Už jsem to tu psal bohužel se nemůžu dostat na tipy. Doma Net nemám a v práci nám asi administrátor zakázal přístup ne přímo na tyto stránky, ale prostě to nejde. Jsme připojeni přes proxy server. Když jsme to zkoušeli přes modem tak jsme se tam dostali, ale ten v kanclu nemám.

]]> Thu, 17 Mar 2005 09:05:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2198&title=koty#2198 <![CDATA[Kóty : Zkuste tohle: (setq a(entget(setq...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2197&title=koty#2197 Autor: Seiner
Předmět: 587
Zasláno: 17.bře.2005 v 09:04

Zkuste tohle:

(setq a(entget(setq o(nth 0(entsel "\nVyber kotu ")))))
(setq m(rtos(cdr(assoc 42 a))(getvar "DIMDEC")))
(setq a(subst (cons '1  m) (assoc 1 a) a))
(entmod a)

]]> Thu, 17 Mar 2005 09:04:38 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2197&title=koty#2197 <![CDATA[Kóty : mark napsal(a): Pepa napsal(a):psát...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2194&title=koty#2194 Autor: Vladimír Michl
Předmět: 587
Zasláno: 17.bře.2005 v 08:51

Původně odeslal(a) mark mark napsal(a):

Původně odeslal(a) Pepa Pepa napsal(a):

psát text i pod kótovací čáru cad umí - po sekvenci \X je následující text pod čarou, když použijete \P,  je text zas "o patro" níž - lze použít u textu kóty nad i pod čarou. Jo, X i P musí být velké.

Dík dobrý tip to jsem nevěděl

viz tip Víceřádkové texty kót pomocí řídících znaků

]]> Thu, 17 Mar 2005 08:51:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2194&title=koty#2194 <![CDATA[Kóty : Přes výkresový prostor a výřezy...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2193&title=koty#2193 Autor: Pepa
Předmět: 587
Zasláno: 17.bře.2005 v 08:46

Přes výkresový prostor a výřezy to jde určitě, že mě to nenapadlo dřív,taky jsem to párkrát použil - do jednotlivých výřezů se dají jen ty"zajímavý" části. Určitě je výhodou, že nemusíte v modelu nic řezat azkracovat a v případě úprav znovu překótovávat.]]> Thu, 17 Mar 2005 08:46:58 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2193&title=koty#2193 <![CDATA[Kóty : Vydržte - už na tom dělám :-) ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2192&title=koty#2192 Autor: Seiner
Předmět: 587
Zasláno: 17.bře.2005 v 08:40

Vydržte - už na tom dělám :-)]]> Thu, 17 Mar 2005 08:40:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=587&PID=2192&title=koty#2192