Dobrý den, potřeboval bych lispem přečíst a modifikovat parametry šrafy "AR-SAND". Umím přečíst barvu popředí (62 . 4) a měřítko šrafy (41 . 0.01). Neumím však přečíst barvu pozadí šrafy.Ve výpisu příkazu viz. níže nikde tu barvu pozadí nevidím.[code](entget (car (entsel)))[/code]AutoCAD Mechanical 2014Poradí někdo?DěkujiPavel Štyl

S barvou pozadí je to složitější. Není to přímá vlastnost, ale je doplněna pomocí XData. Viz např. [CODE]1001HATCHBACKGROUNDCOLOR1071-1023410175[/CODE] nebo příkaz XDLIST.

Díky za tip. Už to číslo umím přečíst.Teď už by mě jenom zajímalo, co to číslo znamená.Sice se mi ho již asi podařilo rozkódovat na RGB (případně acad barvu), ale není na to v lispu nějaká funkce?-1023410175 ... barva 1 (červená)-1023410174 ... barva 2 (žlutá)-1023410173 ... barva 3 (zelená)-1023541248 ... 254,0,0 (rgb)-1023606784 ... 253,0,0 (rgb)atd atd atd.Díky mocPavel Štyl

Je, např.: [CODE](defun GetRGB (truecolor) (list  (logand (lsh truecolor -16) 255) ; R  (logand (lsh truecolor -8) 255) ; G  (logand truecolor 255) ; B ))[/CODE] 

Myslel jsem, jak dostat RGB z toho čísla barvy pozadí (např. -1023410175).Nicméně takhle mi to stačí.Díky moc za pomocPavel Štyl