Dxf » DXF/COLOR

Переменные

*byblock*
Описание: переменная *byblock* определяет значение цвета по блоку. Пример использования: 

 (format t "~X~%" *byblock*) => -3F000000
*byentity*
Описание: переменная *byentity* участвует в вычислении параметров цвета по EntityColor.
*byindex*
Описание: переменная *byindex* участвует в вычислении параметров цвета по его индексу.
*bylayer*
Описание: переменная *byblock* определяет значение цвета по блоку. Пример использования: 

 (format t "~X~%" *bylayer*) => -40000000

Функции

entity->index(entity)
Описание: функция entity->index Пример использования: 

 (entity->index  *bylayer*)  => 256
 (entity->index  *byblock*)  => 0
 (entity->index -1023410175) => 1 
 (entity->index -1023410172) => 4 
 (entity->index -1023410169) => 7
 (entity->index -1023409921) => 255
 (entity->index 
  (rgb->entity 
   '( 10 250  65))) => 100
 (entity->index 
  (rgb->entity 
   '(165   0 124))) => 224
index->entity(index)
Описание: функция index->entity Пример использования: 

 (index->entity   1) => -1023410175
 (index->entity   4) => -1023410172
 (index->entity   7) => -1023410169
 (index->entity 255) => -1023409921
index->rgb(index)
Описание: функция index->rgb преобразует index в диапазоне от 1 до 256 в представление rgb. Пример использования:

 (index->rgb 0) => NIL 
 (index->rgb 1) => (255 0 000)
 (index->rgb 2) => (255 255 0)
 (index->rgb 4) => (0   255 255)
 (index->rgb 7) => (255 255 255)
 (index->rgb 250) => (51 51 51)
 (index->rgb 253) => (173 173 173)
 (index->rgb 256) => NIL
index->true(index)
Описание: функция index->true Пример использования: 

  (index->true   1) => 16711680 (24 bits, #xFF0000)
  (index->true 255) => 16777215 (24 bits, #xFFFFFF)
rgb->index(rgb)
Описание: функция rgb->index преобразует цвет в представлении rgb в индекс системы AutoCad. Пример использования:

 (rgb->index '(256 0 0))    => 1 
 (rgb->index '(0 256 0))    => 3
 (rgb->index '(0 0 256))    => 5
 (rgb->index '(56  56  56)) => 250 
 (rgb->index '(114 208 47)) => 72 
 (progn
   (format t "(list ")
           (dotimes (i 50)(let ((r (random 255))(g (random 255))(b (random 255)))
   		              (format t "(= ~A (rgb-2-ac-ci '~S))~%"
			              (rgb->index (list r g b ))
			              (list r g b))))
           (format t ")"))
Пример использования: 

 (defun rgb-2-ac-ci (rgb)
  (if (null *po*)
    (setq *po* (vlax-ename->vla-object (car (entsel)))))
  (setq	col (vlax-create-object
	      (strcat "AutoCAD.AcCmColor."
		      (substr (getvar "ACADVER") 1 2))))
  (vla-SetRGB col (car rgb)(cadr rgb)(caddr rgb))
  (vlax-put-property *po* 'TrueColor col)
  (vla-put-color *po* (vla-get-color *po*))
  (vla-get-color *po*))
rgb->true(rgb)
Пример использования: 

   (rgb->true '(114 208 47))   7524399
true->index(true)
Описание: функция true->index возвращает индекс цвета. Пример использования: 

 (true->index 40)    => 178 
 (true->index 15000) => 154
 (true->index 15568) => 162
true->rgb(true)
Описание: функция true->rgb выполяет преобразование цвета, представленного в 32-битном выражении EntityColor список трех целых RGB. Пример использования: 

 (true->rgb *byblock*)   => '(0 0 0)
 (true->rgb *bylayer*)   => '(0 0 0)
 (true->rgb -1032662993) => '(114 208 47)
 (true->rgb     7524399) => '(114 208 47)

 (true->rgb -7524399)    => '(141 47 209)

Классы

<color>
OptionValue
Superclasses:(t)
Metaclass:standard-class
Default Initargs:nil
; Blue (RO) = 0 ; BookName (RO) = "" ; ColorIndex = 18 ; ColorMethod = 194 ; ColorName (RO) = "" ; EntityColor = -1040187392 ; Green (RO) = 0 ; Red (RO) = 0 #+nil ( IAcadAcCmColor (New) EntityColor - Property ColorName - Property BookName - Property Red - Property Blue - Property Green - Property ColorMethod - Property ColorIndex - Property SetColorBookColor - Method SetNames - Method Delete - Method SetRGB - Method)
  • entity-color
    Код 62 и 420
    OptionValue
    Allocation:instance
    Type:nil
    Initarg::entity-color
    Initform:dxf/color:*bylayer*
    Accessors:(entity-color)