Vytisknout stránku | Zavřít okno

Barva pozadí šrafy AR-SAND

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=19982
Datum vytištění: 13.kvě.2026 v 03:28


Téma: Barva pozadí šrafy AR-SAND
Odeslal: pavelstyl
Předmět: Barva pozadí šrafy AR-SAND
Datum odeslání: 29.zář.2014 v 12:05
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.
(entget (car (entsel)))

AutoCAD Mechanical 2014

Poradí někdo?
Děkuji
Pavel Štyl


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 29.zář.2014 v 13:25
S barvou pozadí je to složitější. Není to přímá vlastnost, ale je doplněna pomocí XData. Viz např.
 
1001
HATCHBACKGROUNDCOLOR
1071
-1023410175
 
nebo příkaz XDLIST.


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: pavelstyl
Datum odeslání: 30.zář.2014 v 12:19
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 moc
Pavel Štyl

Odeslal: Vladimír Michl
Datum odeslání: 30.zář.2014 v 12:47
Je, např.:
 
(defun GetRGB (truecolor)
 (list
  (logand (lsh truecolor -16) 255) ; R
  (logand (lsh truecolor -8) 255) ; G
  (logand truecolor 255) ; B
 )
)
 


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: pavelstyl
Datum odeslání: 01.říj.2014 v 07:44
Myslel jsem, jak dostat RGB z toho čísla barvy pozadí (např. -1023410175).
Nicméně takhle mi to stačí.

Díky moc za pomoc
Pavel Štyl


Vytisknout stránku | Zavřít okno