• KIRILL.CO.IL
  • Восстановленный участник
  • На форуме с 29 мая 2003г.
  • Сообщений: 39
  • Спасибо: 0

Тема: Как узнать номер цвета объекта?

помогите кто может !
в свойствах объекта цвет по слою не конкретезируется,
то же самое в листе т.е. надо  зайти в слои и проверить
какой цвет объекта ! хотелось бы запрограмировать
простенькую кнопку, выдающую номер цвета .
а может есть где такой lisp ?
заранее всем спасибо !

  • На форуме с 14 марта 2004г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как узнать номер цвета объекта?

Поставь поставь панельку свойств Properties и будет тебе счастье

  • KIRILL.CO.IL
  • Восстановленный участник
  • На форуме с 29 мая 2003г.
  • Сообщений: 39
  • Спасибо: 0

Re: Как узнать номер цвета объекта?

если цвет по слою - его номер виден ТОЛЬКО в слоях !
раньше в бонусе была кнопка extended change properties -
так там в скопках был дан номер цвета даже если он по слою .
а теперь такой штучки нет :(   раздражает очень !

  • На форуме с 23 апреля 2003г.
  • Сообщений: 795
  • Спасибо: 0

Re: Как узнать номер цвета объекта?

Один из вариантов:

(defun C:ncolor()
  (vl-load-com)
  (setq vlaobj(vlax-ename->vla-object
          (car
        (entsel)
        )
          )
    )
  (if
    (=
      (setq ncol(vla-get-color vlaobj))
      256)
      (progn    
           (vla-get-color
         (vla-item
         (vla-get-layers
           (vla-get-activedocument
             (vlax-get-acad-object)
             )
           )
         (vla-get-layer vlaobj)
         )
          )
    )
      ncol)
    )

  • KIRILL.CO.IL
  • Восстановленный участник
  • На форуме с 29 мая 2003г.
  • Сообщений: 39
  • Спасибо: 0

Re: Как узнать номер цвета объекта?

я дико извиняюсь, а как это посадить на кнопку ?