Vytisknout stránku | Zavřít okno

Kótovací štýl

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=2933
Datum vytištění: 29.čer.2026 v 10:51


Téma: Kótovací štýl
Odeslal: Marián Mošať
Předmět: Kótovací štýl
Datum odeslání: 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)
)

 



-------------
MM

Revit 2015, Civil 2015



Odpovědi:
Odeslal: Ferdinand
Datum odeslání: 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 ... )


-------------
-FerTh-



Vytisknout stránku | Zavřít okno