[Димас]

Уважаемые,
не подскажете возможно ли написать следующий макрос:

полилинией рисуется замкнутый контур, который сразу же заливается solid'ом.
при этом слой штриховки зависит от слоя, которым рисуется полилиния.

[Лентяй]

Что-то вроде этого.

Код:

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

^C^Cpline "" -h s (entlast) ""

[Димас]

Сообщение от Лентяй Что-то вроде этого. Код: [Выделить все] ^C^Cpline "" -h s (entlast) ""

не работает((
контур обводиться, но не заливается

[Profan]

Вот такой простенький макрос:

Код:

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

^C^C_hatch;_s;;

[Лентяй]

Тогда, мобыть, так:

Код:

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

^C^Cpline;_hatch;_s;(entlast);;

[VVA]

Проуй так

Код:

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

^C^C(progn(setvar "CMDECHO" 1)(command "_pline" pause)(while (= (getvar "CMDACTIVE") 1)(command pause))(vla-put-Closed (vlax-ename->vla-object (entlast)) :vlax-true)(command "_-bhatch" "_P" "_SOLID" "_S" (entlast) "" ""))

[Profan]

Для Лентяй.
Не мобыть так. (entlast) вообще не годится. В крайнем случае можно было задать для выбора объектов опцию _L
А вообще, проверить вам было трудно?
Я вот тут сочинял еще разные варианты типа такого:
^C^C_pline;\\;;_-bhatch;_s;_l;_p;_s;
Этот макрос не работает, как хотелось бы. Тут только Vova сможет, наверное, разобраться.

[Profan]

Для VVA
Эта конструкция работает, только уж вроде и не макрос это, а программа, записанная в пункт меню. Типа этого и я сделал программу в файл LSP. Но ведь в AutoCAD LT такой макрос работать не будет.

[VVA]

>Profan Думаю только макросом реализовать такое невозможно, т.к.
1. пауза (\) срабатывает на 1 запрос, а не известно, сколько сегментов в полилинии пользователь будет рисовать
2. замкнута ли она?
AutoCAD LT обрабатывает DIESEL? Если да, то можно будет попробывать проверить значение CMDACTIVE при помощи него, а замкнутость полилинии оставить на совести рисовавшего или воспольваться _rectang

[Profan]

Для VVA.
Это вы правильно говорите. Но с DIESEL я не успел в свое время разобраться, вцепился в Lisp.

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

Стоп, в начале не было ни слова про LT. А если LT, то DIESEL может прочитать значения системных переменных, но применить, например, конструкцию (while (/= (getar "cmdactive") 0) (command pause)) невозможно - конструкция-то лисповая... Для всех остальных вариантов кроме как лисп приемлемого решения лично я не вижу (хотя можно, конечно, на Delphi или еще чем наваять специальное приложение, которое будет обращаться к объектной модели када, строить там чего-то, потом закрашивать... Вопрос - а стОит ли овчинка выделки?)

[VVA]

Согласен с kpblc. Лисп наименее геморройный.

[Димас]

Сообщение от VVA Проуй так Код: [Выделить все] ^C^C(progn(setvar "CMDECHO" 1)(command "_pline" pause)(while (= (getvar "CMDACTIVE") 1)(command pause))(vla-put-Closed (vlax-ename->vla-object (entlast)) :vlax-true)(command "_-bhatch" "_P" "_SOLID" "_S" (entlast) "" ""))

все работает спасибо огромное - ускорит работу

еще вопрос - можно ли сюда добавить вторую штриховку? т.е чтоб автоматом заливалось сразу двумя штриховками?

[VVA]

Можно. Какую именно? Только что можно увидить, если заливать solid'oм, разве что цветным печатать?

[Димас]

все правильно)) штрихуем цветными заливками

а как сделать так контур - полилиния 7-го, одна заливка допустим ANSI37 7-го цвета, под ней штриховка SOLID допустим красного цвета?

[Profan]

Вот такая программа на AutoLisp (код сохранить в файле bo_hatch.lsp):

Код:

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

(defun C:КОНШТРИХ ( / osm cecol echo con)
(setq osm (getvar "OSMODE"))
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 1)
(setq cecol (getvar "CECOLOR"))
(setvar "CECOLOR" "7")
(command "_pline" pause)
(while (= (getvar "CMDACTIVE") 1)(command pause))
(vla-put-Closed (vlax-ename->vla-object (entlast)) :vlax-true)
(setq kon (entlast))
(command "_-bhatch" "_P" "ANSI37" "100" "" "_S" kon "" "")
(setvar "CECOLOR" "1")
(command "_-bhatch" "_P" "SOLID" "_S" kon "" "")
(command "_draworder" "_L" "" "_B")
(setvar "OSMODE" osm)
(setvar "CMDECHO" echo)
(setvar "CECOLOR" cecol)
(princ)
)

Возможный макрос для кнопки или пункта меню:

Код:

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

^C^C(if (not C:КОНШТРИХ) (load "bo_hatch")) КОНШТРИХ

[Димас]

спасибо огромное будем пробовать)))

[Profan]

Надо бы третьей строкой в коде написать:

Код:

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

(setvar "OSMODE" 0)

Забыл, понимаешь...

[Димас]

вот такой вот макрос)), решил без лиспа еще раз попробовать.

^C^C-HATCH;W;Y;/;p;SOLID;;

немного недоделан - приходиться в конце entr жать, но им можно рисовать и внутренние контуры.

поможите до конца доработать? как сюда прикрепить чтоб сверху еще другая штриховка ложилась? допустим "Ansi37" и 7-го цвета? (все остальное у меня ByLayer)

[KAI]

По моему удобнее нарисовать сначала контуры, а потом уж их залить все сразу (с наследованием свойств полилиний).
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=21672kY