[chon]

Есть скрипт HatchDel удаляет штриховки. Все Ок. Взял здесь.
Необходимо удалить таким же методом маскировки во вложенных блоках.

Код:

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

 (vlax-for Obj Blk
	  (if (= (vla-get-ObjectName Obj) "AcDbHatch")
            (vl-catch-all-apply 'vla-delete (list Obj))
	  ) ;_ end of if
	) ;_ end of vlax-for

Насколько понял штриховка ищется через AcDbEntity объект AcDbHatch.
Для маскировки не нашел класса AcDbEntity.

Как удалить маскировки?

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

Нарисуй маскировку и получи имя объекта:
(vla-get-objectname (vlax-ename->vla-object (car (entsel))))
И подставь вместо "AcDbHatch"
Правда, код убивает штриховки, похоже, вообще везде - но не затрагивает элементы на блокированных и замороженных слоях. Тоже вариант, конечно.

[Сергей812]

Насколько помню, маскировка связана со словарем ACAD_WIPEOUT_VARS

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

Если не ошибаюсь, то этот словарь просто регулирует показ рамок. Но это не точно
А так...

Код:

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

Command: WIPEOUT Specify first point or [Frames/Polyline] <Polyline>:
Specify next point:
Specify next point or [Undo]:
Specify next point or [Close/Undo]:
Command: (vla-get-objectname (vlax-ename->vla-object (car (entsel))))

Select object: "AcDbWipeout"

[chon]

Сообщение от Кулик Алексей aka kpblc Command: (vla-get-objectname (vlax-ename->vla-object (car (entsel)))) Select object: "AcDbWipeout"[/code]

Спасибо! За простую идею