Восстановление контура штриховки

Напишите плиз, в чем фича проги

>Ринат из ЭлеСи

Штриховка есть, а контуры, которые были заштрихованы куда-то пропали. Что делать? -> Применяем сию штуку и контуры (насколько это возможно) - восстановлены...

Вещь безусловно полезная, жаль только штриховка не привязывается к этому контуру. Если перерисовать контур через "Recreate boundary" родного кадовского окна штриховки, то этот контур привяжется к ней...

Она позволяет создать контуры на множество штриховок разом, чтобы не приходилось вручную такать по одной штриховке, т.к. базовый инструмент умеет создавать только по одному контуру за команду.

Но есть один недостаток - если штриховка имеет самопересекающийся контур - лисп создает не замкнутую полилинию, о набор отрезков

Я тоже так думал.
НО! Стандартная команда все же умеет разом создавать контур штриховок, только через одно место(т.е. не явными манипуляциями)
Последовательность такая, выбираем одну штриховку, ПКМ - Создать контур. Создали контур - далее жмем - Повтор последней команды ( у меня она так же настроена на нажатие ПКМ, у кого то может по другому) после чего выбираем кучу штриховок которым надо создать контурк - Жмем Интер и вуаля, вся куча обведена полилинией после чего легко объем посчитать но это уже др.история)

Так что нет необходимости в данном лиспе, АВТОКАД УМЕЕТ СОЗДАВАТЬ ПО МНОЖЕСТВУ ШТРИХОВОК КОНТУРЫ ОДНИМ КЛИКОМ!

Действительно помогло, Благодарю. Но если кому надо лисп попроще, то ниже текст программки:
;восстанавливает контур для всех штриховок на чертеже.
(Defun c:HCONT (/ nab_HCH i Object)
(setq nab_HCH (ssget "_x" (list '(0 . "HATCH")))
i -1)
(if (null nab_HCH)
(progn
(princ "\n Нет штриховок ")
(princ))
(progn
(repeat (sslength nab_HCH)
(setq i (1+ i))
(setq Object (ssname nab_HCH i))
(command "_.hatchedit" Object "В" "П" "Н")
;(entdel Object)
)))
)

1000-ча благодарностей тем, кто движет эту цивилизацию вперед. Будьте здоровы - это самое искренне пожелание, которое можно оставить авторам разработки и этого поста. Бобра всем!)