[IStugirev]

Коллеги, добрый день!
Есть ситуация: из Ревита в DWG экспортированы чертежи - планы офиса. На плане офиса размещены блоки столов-рабочих мест. Каждое рабочее имеет свой номер и является отдельным блоком. Внутри каждого из блоков внутри периметра стола выполнена заливка, а по периметру, помимо линий стола, проведены белые линии, принадлежащие слою заливки (их появление связано с экспортом из Ревита). Эти линии не нужны, так как ухудшают видимость блоков и читаемость чертежа.
Вопрос в том, есть ли какой-нибудь способ автоматически удалить эти линии из ВСЕХ блоков чертежа сразу? Делать это вручную - абсолютно нерациональная задача. т.к. столов на плане может быть порядка сотни, заходить внутрь каждого блока и удалять линии - долго и мучительно. Может быть можно как-то удалить все объекты типа "линия", принадлежащие одному слою (в данном случае АР_Офисная мебель_Заливка) из всех блоков?

[Кулик Алексей aka kpblc]

_.laydel ?

[VitalyAF]

Каждое р.м. - блок? Т.е. сотни одинаковых столов в блоках разных имён?
Тогда нафиг расчленить их, и удалить ненужное, а заодно и ревитчика...

[maratovich]

1. Без образца файла сложно сказать.
2. VBA установлен для Автокада ?

[engngr]

Сообщение от VitalyAF Каждое р.м. - блок? Т.е. сотни одинаковых столов в блоках разных имён?

Из ревита экспорт может проходить так, что одинаковых по виду блоков с одним и тем же именем может и не быть. Разбить такие блоки правильнее всего. Ревитчик может быть ни при чем.

[Oleg T]

Сообщение от engngr Из ревита экспорт может проходить так, что одинаковых по виду блоков с одним и тем же именем может и не быть. Разбить такие блоки правильнее всего. Ревитчик может быть ни при чем.

Из архикада та же история.
Так _laydel сработает или нет (не могу сейчас проверить)? Если да, это лучшее решение для данного случая.
Правда, если только заливки не нужны )

[nickname2019]

1. Все блоки взорвать.
2. Удалить лишнее через быстрый выбор с фильтрами.
3. Файл почистить

[IStugirev]

Увы, разбить блоки не вариант, они нужны для дальнейшей работы. Заливка тоже нужна, удалить надо только линии. Вообще, как промежуточное решение мне помогла команда CDORDER, я цвет слоя заливки (255) переместил на задний фон, и визуально контур рабочих мест стал черным, а не белым, как раньше. но вот как именно удалить линии - вопрос пока открытый.

[AlexCondor]

1. КМК, проще всего, действительно договориться с ревитчиком. У него это один блок - ну пусть удалит эти линии перед экспортом.
2. Попробовать заменить блоки. Судя по картинке, их там всего два вида (второй - зеркальный).

[Boxa]

Автор, Вы бы файл с этими рабочими местами показали бы, Вам бы быстрее помогли, телепаты то пока с югов не вернулись.
Удалите всю не нужную и "секретную" инфу и выложите файл, так хоть предмет для разговора будет.

[Oleg T]

Здесь http://www.lee-mac.com/programs.html есть программка удаления объектов из блоков, не входя в редактор.
А так и макрос можно вполне написать под конкретно эту задачу (если есть кому).
Список блоков - поочередное открытие - удаление объектов с выбором по признаку - закрытие с сохранением.

[VitalyAF]

С мебелью всегда так - прямое, зеркальное, угол слева, справа, плюс комбинации расположения стульев, сами стулья разные...
короче, не парился никогда , стул - блок, стол - блок и т.д. и комбинируй их как надо, но комбинации никогда в блок не загонял, т.к. их м.б. больше чем исходных блоков, просто смысла нет! Весь этаж с мебелью м.б. блок или ссылка на файл, на практике так удобнее... я не просто т.д., а уверен!
Это в учреждениях, а в гостиницах и прочих частных заведениях и подавно!
Плюс иногда её чуть двигать приходится, что, отдельный блок для этого создавать...
Первый раз открыл Acad и сразу давай фейс править, или лисп ему подавай...
У нас начальник бюро любила в кальках править... мелкую моторику нам вырабатывала и ничё, выжили...

[koMon]

Достаточным будет выложить только один блок.

[IStugirev]

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

----- добавлено через ~33 мин. -----

Сообщение от Oleg T Здесь http://www.lee-mac.com/programs.html есть программка удаления объектов из блоков, не входя в редактор. А так и макрос можно вполне написать под конкретно эту задачу (если есть кому). Список блоков - поочередное открытие - удаление объектов с выбором по признаку - закрытие с сохранением.

Спасибо! Не подскажете, что конкретно за программа? По списку не удалось найти похожую.

[Кулик Алексей aka kpblc]

Какие линии-то сносить?

[IStugirev]

Белые линии слоя АР_офисная мебель_Заливка из блоков

[Oleg T]

Сообщение от IStugirev Не подскажете, что конкретно за программа? По списку не удалось найти похожую.

Действительно, автор по каким-то причинам удалил.
Есть более ранняя версия, команда Remove
PS
Похоже, здесь не вариант, поскольку заливки на переднем плане
PPS
Хотя приспособиться можно. Блоки переместить в другой слой, отключить отображение заливок, слой АР_Офисная мебель заморозить.
Тогда все работает, но все равно будет достаточно долго (объекты - отрезки, и выбираются по одному)

[Кулик Алексей aka kpblc]

Сообщение от IStugirev Белые линии слоя АР_офисная мебель_Заливка из блоков

Белые или с цветом "ПоСлою"? Белые = цвет 7, 255 или RGB?
И чем все-таки не нравится _LayDel с опцией _name, не понимаю

[IStugirev]

Те, что 255
Потому что в таком случае удалится и штриховка сплошная, а это недопустимо. (либо я что-то делаю не так)

[Oleg T]

Сообщение от IStugirev Те, что 255 Потому что в таком случае удалится и штриховка сплошная, а это недопустимо. (либо я что-то делаю не так)

Можно так:
1. Перенести блоки в другой слой
2. Слой с мебелью заморозить (АР_Офисная мебель)
3. В новом слое создать заливки указанием точки внутри контура
4. Слой АР_Офисная мебель_Заливка РМ удалить
5. Добавить к блокам новые заливки (файл выше, команда ADD2BLOCK)

Я попробовал, работает.

[AMDen]

Линии слоя АР_офисная мебель_Заливка перекрывают контур мебели при печати. В этом проблема?
Решение не самое правильное, но быстрое: увеличить толщину слоя контура мебели (АР_офисная мебель).

[koMon]

там не только линии, есть ещё и крошечные дуги.

Код:

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

 
;*******************************************************************************************

(vl-load-com)

;*******************************************************************************************

(defun c:Remove_Certain_Entities ( )
	(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
	(vlax-for every_db_block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
		(vlax-for block_entry every_db_block
			(cond
				(
					(and
						(or
							(= "AcDbLine" (vla-get-objectname block_entry))
							(= "AcDbArc" (vla-get-objectname block_entry))
						)
						(= "АР_Офисная мебель_Заливка РМ" (vla-get-layer block_entry))
					)
						(vla-delete block_entry)
				)
				(
					t
				)
			)
		)
	)
	(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
	(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
	(princ)
)

;*******************************************************************************************

[CaMoCAD]

Сообщение от IStugirev У всех элементов заданы атрибуты (специальным скриптом), поэтому мне их удалять и никак трогать нельзя, поэтому взорвать блок нельзя.

Можно. Команда burst из Express Tools разбивает блоки с сохранением значения аттрибута

[VitalyAF]

IStugirev
О-о-о знакомые стульчаки и стены...! Родной Architectural Desktop!!! )))
А номера р.м. из секретного скрипта - свойства - PropertySetDefinition (читай атрибуты блока)
Попробуй Object Enabler для него установить, если часто подобные проекты спускают, то пользу извлечёшь!
Вместо мебели просто закрашенных прямоугольников накидали... а туману напустили как будто и правда незнайчё...

Сообщение от CaMoCAD Можно. Команда burst из Express Tools разбивает блоки с сохранением значения аттрибута

Да и Барст рулит...

[IStugirev]

Сообщение от koMon там не только линии, есть ещё и крошечные дуги. Код: [Выделить все] ;******************************************************************************************* (vl-load-com) ;******************************************************************************************* (defun c:Remove_Certain_Entities ( ) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (vlax-for every_db_block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (vlax-for block_entry every_db_block (cond ( (and (or (= "AcDbLine" (vla-get-objectname block_entry)) (= "AcDbArc" (vla-get-objectname block_entry)) ) (= "АР_Офисная мебель_Заливка РМ" (vla-get-layer block_entry)) ) (vla-delete block_entry) ) ( t ) ) ) ) (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) ;*******************************************************************************************

Спасибо большое за помощь! К сожалению, почему-то код не срабатывает, при применении команды пишется "Regenerating model", но линии остаются. Может быть, что-то делаю не так.

[koMon]

Сообщение от IStugirev но линии остаются

линии остаются, но они вообще-то в другом слое - "АР_Офисная мебель", в то время как лисп удаляет линии/дуги из слоя "АР_Офисная мебель_Заливка РМ".

[VitalyAF]

Из-за чего шум поднялся, всё смотрится приемлемо с настройками по умолчанию на листе и в модели так же.
Контур стен толстоват, на мой взгляд, т.к. они для данной марки чертежа на важны. И вообще всю архитектуру можно приглушить на 50%. Буря в стакане воды... имхо!

[Oleg T]

Сообщение от IStugirev К сожалению, почему-то код не срабатывает, при применении команды пишется "Regenerating model", но линии остаются. Может быть, что-то делаю не так.

Как я понимаю, программа дает именно требуемый результат

[IStugirev]

Сообщение от Oleg T Как я понимаю, программа дает именно требуемый результат

Отлично, результат именно тот, что нужен. Вероятно, я что-то сделал не так при создании и загрузке .lsp файла? Честно говоря, до этого опыта с таким делом не имел. Я скопировал код в Notepad, сохранил его в расширении .lsp и подгрузил через _appload в Автокад. Затем вводил команду Remove_Certain_Entities, но после этого выдавалась надпись Regenerating Model и белые линии оставались

[Oleg T]

Сообщение от IStugirev Я скопировал код в Notepad

Как производилось копирование? Лучше делать это не через кнопку "Выделить все" (в этом случае в файле появляются лишние строки), а через кнопки в окошке, которое всплывает в правом верхнем углу.

[IStugirev]

Сообщение от Oleg T Как производилось копирование? Лучше делать это не через кнопку "Выделить все" (в этом случае в файле появляются лишние строки), а через кнопки в окошке, которое всплывает в правом верхнем углу.

Через "Выделить все", лишние строки потом удалял. Через всплывающее окошко не получается, кстати. а у Вас будет возможность скинуть .lsp файл, чтобы я попробовал? Буду очень благодарен.

[Oleg T]

Сообщение от IStugirev Через "Выделить все", лишние строки потом удалял. Через всплывающее окошко не получается, кстати. а у Вас будет возможность скинуть .lsp файл, чтобы я попробовал? Буду очень благодарен.

Пожалуйста. Большое спасибо koMon, сохранил у себя на всякий пожарный

[IStugirev]

Сообщение от Oleg T Пожалуйста. Большое спасибо koMon, сохранил у себя на всякий пожарный

Коллеги, СПАСИБО огромное! Все работает как нужно!