[MrBrown]

Здравствуйте, мастера ЛИСПа!
Помогите, пожалуйста, у кого найдётся времечко, сваяйте мне небольшой макрос:
На плане города обвожу кварталы полилинией и потом штрихую обведенную полилинией площадь.
Хотелось бы автоматизировать: нарисовал полилинию, а она, после команды "ЗАМКНУТЬ" - автоматически заштриховалась бы штриховкой по умолчанию (то есть, той, какую я вначале работы установлю - образец штриховки, слой, цвет и т.д., то есть это будут все свойства полилинии-контура).
Ну и в конце макрос перемещал бы эту штриховку на самый нижний слой вместе с контуром-полилинией.
Спасибо всем откликнувшимся.
p.s. Полилинии рисую без дуг, только прямыми отрезками.
Работаю в AutoCAD-2014 RUS

[Boxa]

Ээээ... а может просто немного поменять схему работы?
Сначала все обвести, а потом все скопом заштриховать в режиме выбора объектов и установив галочку Create separate hatches ("Создавать отдельные штриховки")

[MrBrown]

Boxa, я, в принципе, так и делаю, выделяю контур каждой штриховки в процессе рисования. Если сперва нарисовать контуры, а потом выделять, то можно пропустить какой-нибудь контур. Нет?
______________________
Так, я, видимо, не понял вашего ответа. Пробую с галкой (которая "2"). О результатах отпишусь.
______________________
Через пару минут: нет, не получается: чтобы выделить все контуры, мне приходится скрывать слой с домами и улицами, так как они (квадраты домов) тоже выполнены полилиниями и тоже штрихуются

[Boxa]

Хорошо, добавим в последовательность еще одну команду: _layiso
Т.е.
1 чертим полилинии
2 изолируем слои _layiso
3 штрихуем
4 Восстанавливаем слои _Layuniso

[MrBrown]

Boxa, выход. Спасибо. Но ведь, "лень-двигатель прогресса". Хочется без лишних телодвижений, пусть даже пальцем на мышке

[Krieger]

Вот, накидал:

Код:

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

(defun c:plhatch ()
	(vl-load-com)
	(VL-CATCH-ALL-APPLY '(lambda()(command "_.PLINE")(while (> (getvar "CMDACTIVE") 0) (command pause))))
	(vla-put-Closed(vlax-ename->vla-object(entlast)) :vlax-true)
	(command "_-hatch" "_s" "_l" "" "")
	(command "_draworder" "_l" "" "_b")
 )

[Boxa]

Krieger, а настройки для штриховки откуда берутся?

[Krieger]

По дефолту

[Boxa]

Krieger, слой, тип и вес линий все по текущем настройкам, получилось прямо как у Вас в подписи =))))
Я не хочу обидеть, ИМХО, такое решение заменяет тыканье с одних кнопок на другие и не дает нужной автоматизации.

[Krieger]

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

[MrBrown]

Krieger, ай, спасибо!!!! Всё работает, как надо!!!
Моя вам великая благодарность.

[Boxa]

ИМХО, все настройки должны принудительно устанавливаться "послою", масштаб линий равен 1, слой для этих штриховок должен быть обособлен, т.е. называться как то так "Штриховка домов" и если этого слоя нет, он должен создаваться автоматически. Настройки штриховки должны быть отделены от кода и прописаны в отдельной процедуре (штрихуется же не только дома, так что настройки штриховки могут быть разные и каждый раз когда хочешь заштриховать дома их не перебивать).
Как то так...

[Krieger]

Я, обычно, все это в параметры функции вывожу, однако заказчик доволен.

автоматически заштриховалась бы штриховкой по умолчанию

[Boxa]

Дай бог! я только рад этому.

[Do$]

https://chronicle.autodesk.com/main/...3-355b956d95ef

[Эдуард]

Здравствуйте.
Зачем изобретать велосипед.
Посмотрите штатную команду Автокада -Hatch

[Boxa]

Эдуард, Здравствуйте. Попробуйте прочитать тему с самого начал.