Zobrazit plnou verzi příspěvku: Kótovací štýl

Marián Mošať
07.08.2006, 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))
 

Ferdinand
11.09.2006, 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 ... )