Pracuji ve firmě, která se zabývá kolejovým svrškem, takže jednotlivé díly jsou dost dlouhé a nedá se použít zase moc velké zmenšení, aby bylo něco vidět. Problém je v tom, že se často musejí kolejnice přerušovat a uměle zkrátit. Abych měl v kótách správnou hodnotu musím ji ručně přepsat. Není nějaký příkaz, který navrdo místo špičatých závorek v dialogu kótování vypíše naměřenou hodnotu. Pak bych měl ještě dotaz jestli jde u kót a poznámek si vynutit psaní textu jak nad kótovací čarou tak pod ní současně. A ještě jeden dotaz jde měnit umístění textu u radiusů, v panelu vlastnosti je tato volba zašedlá. Jde o to, že se mi třeba v jednom místě jeden radius mění v druhý a potřebuji zakótovat oba v tomto místě. Jeden vlevo druhý vpravo. Teď kóty rozkládám, abych se k tomuto dostal. Mám Autocad Mechanical 2005.

Dík za případné reakce a přeju úspěšný den.

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

Seiner napsal(a): Asi bych si v takovém případě dal DIMASSOC na 0. Pro opakované použití si udělat přepínací tlačítko, nebo extra panel pro asociativní a extra pro neasociativní kótování.

Zkoušel jsem vaši radu, taky by to tak šlo, ale spíš bych se přikláněl k vaší druhé variantě, aby kóta zůstala jako blok. Zkoušel jsem nastavení na 0, ale fungovalo to na cad kóty na power kóty se mi vždy nastaví hodnota na 2. Zkoušel jsem i v panelu možnosti vypnout volbu nové kóty vytvářet jako asociativní, ale zase to fungovalo pouze u cad kót, jakmile jsem zakótoval power kótou tak ta byla asociativní a v panelu se objevila volba zaškrtnutá.

3D modeláře (např. Inventor) se ke zkracovaným součástem chovají tak, že v modelu zůstane součást celá a systém zná její skutečný rozměr. Ve výkrese se příslušně zkrátí (pouze výkresová reprezentace), ale kótu si zachová správnou.

Není u ACAD Mechanicalu nějaké podobné udělátko (např. s využitím modelového a výkresového prostoru)? Vzhledem k tomu, že s ACADem již nepracuji, tak nevím, ale určitě by něco podobného bylo užitečné.

mark napsal(a): 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  http://www.cadforum.cz/cadforum/qaid.asp?tip=3637 - Víceřádkové texty kót pomocí řídících znaků

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)

Vladimír Michl napsal(a): mark napsal(a): 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  http://www.cadforum.cz/cadforum/qaid.asp?tip=3637 - 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.

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.

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.