• altver
  • Активный участник
  • На форуме с 19 мая 2006г.
  • Сообщений: 313
  • Спасибо: 1

Тема: програмно изменить цвет штриовки

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

(setq ent (car (entsel)))
(command "-HATCHEDIT" ent "" "CO" 21 ".")

  • AMD
  • Участник
  • На форуме с 2 февраля 2012г.
  • Сообщений: 84
  • Спасибо: 2

Re: програмно изменить цвет штриовки

По-моему, должно быть так:

(setq ent (car (entsel)))
(command "_-HATCHEDIT" ent "_CO" 21 "")

На деле это будет выглядеть следующим образом:

Команда: (setq ent (car (entsel)))
Выберите объект: <Имя объекта: 7ed41778>
Команда: (command "_-HATCHEDIT" ent "_CO" 21 "")
_-HATCHEDIT
Выберите объект штриховки:
Задайте параметр штриховки [Неассоциативная/сТиль/Свойства/поРядок
прорисовки/Добавить контуры/Удалить контуры/Восстановить
контур/свяЗать/Отдельные штриховки/Исходная точка/Аннотативный/Цвет
штриховки/сЛой/Прозрачность] <Свойства>: _CO
Новый цвет [изПалитры/Альбом/. (для работы с текущим)] <25>: 21
Новый цвет фона [изПалитры/Альбом/. (если без значения)] <160>:
Команда: nil

  • altver
  • Активный участник
  • На форуме с 19 мая 2006г.
  • Сообщений: 313
  • Спасибо: 1

Re: програмно изменить цвет штриовки

Спасибо, Андрей!!!