[IStugirev]

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

[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, сохранил у себя на всякий пожарный

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