CAD Fórum : Kótovací štýl https://www.cadforum.cz/forum/ Mon, 29 Jun 2026 17:03:11 +0000 Mon, 11 Sep 2006 16:24:29 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=2933 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Kótovací štýl : Je ve výkresu načtený jako předdefinovaný...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2933&PID=14139&title=kotovaci-styl#14139 Autor: Ferdinand
Předmět: 2933
Zasláno: 11.zář.2006 v 16:24

Je ve výkresu načtený jako předdefinovaný kótovací styl ten _ND0 ?

(command "_.dimstyle" "_r" "_ND0")
možná by bylo lepší
( ... _.-dimstyle ... )
]]> Mon, 11 Sep 2006 16:24:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2933&PID=14139&title=kotovaci-styl#14139 <![CDATA[Kótovací štýl : Na definíciu kótovacích štýlov...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2933&PID=13359&title=kotovaci-styl#13359 Autor: Marián Mošať
Předmět: 2933
Zasláno: 07.srp.2006 v 10:33

Na definíciu kótovacích štýlov používam vlastnú utilitku v autolispe. Od verzie AutoCadu 2006 sú v štýle ďalšie nastavenia - pevná dĺžka vynášacích čiar a farba výplne textu. Tieto nastavenia nemajú systémovú premennú. Nové štýly definujem pomocou commandu -dimstyle zo šablóny štýlov. Problém je, že nastavenie dlžky vynášacích čiar a farby výplne sa príkazom -dimstyle nastaví na defaultné hodnoty a nie tie ktoré sú nastavené v štýle "_ND0" z ktorého nový štýl tvorím. Pomocou dialógu sa to nastavuje správne. Prikladám spomínanú časť lispu:

(defun c:ND_OBRYS ()
(s_mierka)
(setq cmd (getvar "CMDECHO"))(setvar "CMDECHO" 0)
(command "_.dimstyle" "_r" "_ND0")
(setvar "dimscale" mierka)
(setvar "dimdec" 0)
(if (=(getvar"userr5") 1.0)(setvar "dimdec" 3))
(setq dstyle (strcat "_ND_obrys_" (rtos (getvar "useri1") 2 0) "_m"))
(if (=(getvar"userr5") 1000.0)(setq dstyle (strcat dstyle "m")))
(if (=(tblsearch "dimstyle" dstyle) nil)(command "_.dimstyle" "_s" dstyle)
(command "_.dimstyle" "_s" dstyle "_y"))
(command "_.layer" "_m" dstyle "_c" FarbaKot "" "")
(setvar "CMDECHO" cmd)(princ)
)

 

]]> Mon, 07 Aug 2006 10:33:43 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2933&PID=13359&title=kotovaci-styl#13359