CAD programy 4M
(acad_truecolordlg číslo barvy [flag])
Zobrazí dialog Barva se záložkami Indexové barvy, True Color a Knihy barev.
Tato funkce zobrazí dialog Barva se záložkami Indexové barvy, True Color a Knihy barev. Tato funkce vrací barvu, kterou uživatel zvolí z dialogu nebo nil, když uživatel klikne na tlačítko Storno.
Argument čísla barvy vám umožní zajistit výchozí barvu, která je zvolena, když se okno otevře. - Napište hodnotu 62 (typ long) = Indexovou barvu v rozmezí 0 - 256. Je aktivní záložka Indexové barvy. Všimněte si, že když je defcol 0, tak výchozí hodnota je BYBLOCK; když je defcol 256, výchozí hodnota je BYLAYER. - Napište hodnotu 420 (typ long) = hodnota barvy RGB COLORREF. Je aktivní záložka True Color. - Napište hodnotu 430 (typ string) = barva$názevknihybarev odděleno '$'.
Když je flag nil, dialogový box deaktivuje tlačítek BYBLOCK a BYLAYER.
Funkce vrací barvu, která byla zvolena uživatelem v seznamu obsahující tečkované dvojice:
Indexové barvy - je zde pouze jeden tečkovaný pár: typ skupinového kódu 62, což je zvolená indexová barva. True color - Dva tečkované pára. Poslední tečkovaný pár je typ skupinového kódu 420, což je zvolená true color a první tečkovaný pár je nejbližší vhodná indexová barva. Barva kniha barva - Tři tečkované páry. Poslední tečkovaný pár je typ skupinového kódu 430, což je zvolená color book color. Druhý tečkovaný pár je korespondující true color a první tečkovaný pár je nejbližší vhodná indexová barva.
Příklad
Následující příklad otvírá dialogové okno s červenou jako výchozí barvu.
Když si uživatel zvolí jinou barvu, hodnota bude přiřazena proměnné zvolenáBarva:
Získat hodnotu vrácení:
POZNÁMKA: Prvních 8 čísel barev má následující významy:
Následující příklad otvírá dialogové okno s barva kniha barva jako výchozí.
Když si uživatel zvolí jinou barvu, hodnota bude přiřazena proměnné zvolenáBarva:
Získat hodnotu vrácení:
Tato funkce zobrazí dialog Barva se záložkami Indexové barvy, True Color a Knihy barev. Tato funkce vrací barvu, kterou uživatel zvolí z dialogu nebo nil, když uživatel klikne na tlačítko Storno.
Argument čísla barvy vám umožní zajistit výchozí barvu, která je zvolena, když se okno otevře. - Napište hodnotu 62 (typ long) = Indexovou barvu v rozmezí 0 - 256. Je aktivní záložka Indexové barvy. Všimněte si, že když je defcol 0, tak výchozí hodnota je BYBLOCK; když je defcol 256, výchozí hodnota je BYLAYER. - Napište hodnotu 420 (typ long) = hodnota barvy RGB COLORREF. Je aktivní záložka True Color. - Napište hodnotu 430 (typ string) = barva$názevknihybarev odděleno '$'.
Když je flag nil, dialogový box deaktivuje tlačítek BYBLOCK a BYLAYER.
Funkce vrací barvu, která byla zvolena uživatelem v seznamu obsahující tečkované dvojice:
Indexové barvy - je zde pouze jeden tečkovaný pár: typ skupinového kódu 62, což je zvolená indexová barva. True color - Dva tečkované pára. Poslední tečkovaný pár je typ skupinového kódu 420, což je zvolená true color a první tečkovaný pár je nejbližší vhodná indexová barva. Barva kniha barva - Tři tečkované páry. Poslední tečkovaný pár je typ skupinového kódu 430, což je zvolená color book color. Druhý tečkovaný pár je korespondující true color a první tečkovaný pár je nejbližší vhodná indexová barva.
Příklad
Následující příklad otvírá dialogové okno s červenou jako výchozí barvu.
(setq selectedColor (acad_truecolordlg '(62 . 1)))
Když si uživatel zvolí jinou barvu, hodnota bude přiřazena proměnné zvolenáBarva:
(setq selectedColor (acad_truecolordlg '(62 . 1))
((62 . 180))
Získat hodnotu vrácení:
(cdr (car selectedColor))
180
POZNÁMKA: Prvních 8 čísel barev má následující významy:
| Number | Color |
|---|---|
| 1 | Red |
| 2 | Yellow |
| 3 | Green |
| 4 | Cyan (light blue) |
| 5 | Blue |
| 6 | Magenta (pink) |
| 7 | Black or White |
| 8 | Dark Gray |
| 9 | Light Gray |
Následující příklad otvírá dialogové okno s barva kniha barva jako výchozí.
(setq selectedColor(acad_truecolordlg '(430 . "Orange$Color book sample")))
((62 . 222) (420 . 8388800) (430 . "Deeppink$Color book sample"))
Když si uživatel zvolí jinou barvu, hodnota bude přiřazena proměnné zvolenáBarva:
(setq colorPair (assoc 430 selectedColor))
(430 . "Deeppink$Color book sample")
Získat hodnotu vrácení:
(cdr (car selectedColor))
180