[egorus2014]

Я не разбираюсь, больше как прикладное применение Када...
Нужно перекрасить блоки в другие цвета.

Когда блок выделен - в свойствах "Цвет" отображается совсем другой цвет, серый.
А на экране блок все равно фиолетовый остается.
Пробовал и входить в редактирование блока - там тоже указано, что цвет серый.

1. Попутно... Говорят, можно как-то взрывать блоки. Как мне быстро выделить все блоки и их взорвать?
Они при этом разваливаются на отрезки или остаются сгруппированы по виду первоначального блока?

PS. Пока нашел такое. Express - Blocks - Explode atributes to text.
Мне это приходится делать два раза. Потому что за один раз мои блоки не разбиваются.
Но это ладно, взрыв - на крайний случай...

2. Может, есть специальные инструменты для перекрашивания?

(Пробовал запускать lisp norm-blocks_v3.lsp
Установил. А дальше что делать?

PS. Ввел (norm-blocks 8) - перекрасилось.

Вообще, я пытаюсь найти что-то похожее из моих программ ))
Если у чего-то есть цвет - значит, он должен быть в чем-то, называемом, например, палитрой.
И если в палитре поменять этот цвет - все объекты этого цвета также перекрасятся.

Здесь можно так делать? Глобально менять цвет на другой?

[kp+]

Сообщение от egorus2014 Пробовал и входить в редактирование блока - там тоже указано, что цвет серый.

Чтобы элементы блока перекрашивались в соотвествии с генеральной линией партии цветом блока как объекта, у них должен быть цвет "Поблоку" ("Byblock")

[egorus2014]

Ну вот, в Свойствах. стоит цвет По блоку.
И в блок войти - тоже стоит цвет По блоку
И в блоке в блок захожу - и там поставил цвет По блоку.

Не меняется оно...
Как был фиолетовый, так и остается...

[kp+]

Сообщение от egorus2014 И в блоке в блок захожу

Такие "матрешки" не дадут соскучиться... Впрочем, без самого блока в dwg больше не о чем говорить...

[name02]

Сообщение от kp+ Впрочем, без самого блока в dwg больше не о чем говорить...

Автору - выложи блок с которым у тебя проблема, будем смотреть

[egorus2014]

файл

[name02]

У тебя в блоке есть параметр видимости.
Во-первых: внутри основного блока находятся много разных блоков, переключение между которыми происходит с помощью параметра видимости.
Ты выбрал видимость "Т15", зашел в блок, но в блоке отображается другая видимость и ты меняешь цвет не для того блока.
Во-вторых: внутренний блок тоже состоит из объектов у которых цвет задан "ПоСлою" или "Цвет 212", а надо тоже "ПоБлоку"

[egorus2014]

Текущий вопрос - как в редакторе блока выбрать другую видимость для перекраски?


Глобальный вопрос...
Так вот, если в файле 5000 блоков, и у каждого по 50 видимостей...
Я поэтому и спрашивал - есть ли способ не ручной поштучной перекраски?

[Dinoxromniy]

egorus2014, результат не проверял, смортите корректность сами.

[name02]

Сообщение от egorus2014 Я поэтому и спрашивал - есть ли способ не ручной поштучной перекраски?

Может это подойдет (команда BGBLFIX):
https://forum.dwg.ru/showthread.php?t=66355

[egorus2014]

Сообщение от Dinoxromniy egorus2014, результат не проверял, смортите корректность сами.

Как делали?

[Dinoxromniy]

Писал на Visual Basic коротенькую программу, лет так 8 назад. Честно говоря - толком не пойму, чего я тогда понаписал кроме этого, если удалить все непонятное, то вроде бы должно быть так:

Код:

[Выделить все]

Public Sub color_by_block_CTB()
' задает цвета всех объектов блока по блоку для цветозависимой таблицы
    Dim i As Integer
    Dim ent As Object
    Dim Bl As AcadBlock    

    For Each Bl In ThisDrawing.Blocks

        If Left(Bl.Name, 1) <> "*" Or (Left(Bl.Name, 1) = "*" And Left(Bl.Name, 2) = "*U") Then

            For i = 0 To Bl.count - 1
                Bl.Item(i).color = acByBlock
               
            Next i

        End If
    Next Bl
    ThisDrawing.Regen acActiveViewport

End Sub

Лучше пользоваться лиспами, указанными name02.

[egorus2014]

А что охначает "блока по блоку"? У Вас в программе есть такое слово.

[Dinoxromniy]

egorus2014, это просто мой комментарий, чтобы не забыть, что делает именно эта программа. Она перебирает все блоки и для каждого примитива входящего в состав блока, устанавливает цвет "поблоку" (то, о чем писал kp+). Беда в том, что прога писалась под конкретный файл, и делала что-то еще, но исходя из своих комментариев сейчас понять не могу, чего и зачем, поэтому все непонятное я поудалял.
Все таки я бы на вашем месте смотрел в сторону lisp, с VBA потом очень тяжело спрыгнуть, а возможности у него поскромнее.