• masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Тема: Как программно изменить цвет блока?

Здравствуйте, все!
Проблема такая: блок не позволяет редактировать ему цвет. Начитавшись сего замечательного форума, я поняла, что причина кроется в том, что собирать блок надо на "0" слое, а вставлять его - в который надо. Я пыталась делать это так:

ThisDrawing.ActiveLayer = ThisDrawing.Layers("0")
Set blk = ThisDrawing.Blocks.Add(base_point, block_name)
'дальше я рисую в этот блок объекты
tmp(0) = blk.AddArc(center, R, start_angle, end_angle)
....
ThisDrawing.ActiveLayer = ThisDrawing.Layers("MyLayer")
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(CVar(base_point), blk.Name, 1#, 1#, 1#, 0)

Результат: блок оказывается в слое MyLayer (это хорошо), но не позволяет редактировать цвет (это очень плохо). Что делать? Подскажите, люди добрые, в чём я не права?
По-моему, я даже видела на форуме кусок кода, который мог бы меня спасти https://www.caduser.ru/forum/topic21207.html, но он на Lisp-е, в котором я ничего не понимаю, и даже не знаю, как запустить этот Lisp-овый фрагмент из моей VBA-шной программы.
Буду рада любым полезным советам.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как программно изменить цвет блока?

Для примитивов, входящих в описание блока, надо назначать цвет ByBlock. Может, оно? Только как это сделать на VBA, я слабо себе представляю

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Как программно изменить цвет блока?

Ага, точно. Спасибо, kpblc! А вот как удалось добиться нужного эффекта (для тех, кому это ещё может понадобиться): там, где я рисовала объекты в блок, пришлось вставить для каждого 

tmp(0).color = acByBlock.

Если этим ограничиться, то блоки рисуются белыми, как на "0" слое, поэтому после строчки 

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(CVar(base_point), blk.Name, 1#, 1#, 1#, 0)

  вставила 

blk.color = ByLayer

. Вроде, просто, но сразу я как-то не догадалась это сделать. Наверно, потому,  что в подсказке после blk. не всплывает слово "color". :)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как программно изменить цвет блока?

> masha
Кросс-пост немного, но все равно. Я пробовал здесь ( https://www.caduser.ru/forum/topic28572.html ) применять .color к обычным примитивам, ставя им acRed. Эффекта было нуль. Никаких объяснений я не нашел :(

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Как программно изменить цвет блока?

Раньше, если я указывала цвет примитивам, то они им рисовались, и Лариса утверждает то же самое... Может, заглючило что-нибудь, не зависящее от вас?  "Семь бед - один Reset"...

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как программно изменить цвет блока?

> masha
Я попробовал на 2005 ACAD, ADT, 2006 ADT - все едино. Ну наверняка это глюк моей конкретной машины, там столько наверчено на ней...
---
P.S. Молю!!!!! Меня - один!!!!

  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

Re: Как программно изменить цвет блока?

Прошу прощения за очередной оффтоп.
> P.S. Молю!!!!! Меня — один!!!!
kpblc, прости, пожалуйста, если обидела! Не со зла, честное слово! Забыла... Мы ведь, действительно, уже обсуждали "Ты" и "Вы" - https://www.caduser.ru/forum/topic27852.html . Ладно, буду перевоспитываться. :)