[dorogi-dorogi]

Здравствуйте!
Использую палитры, как каталог блоков, реже для вызова черчения полилиний с заданными линиями.
В примерах палитр есть вкладки с командами, мне хотелось прописать то же самое, но не найду, как это сделать. Более того, запихнуть хотелось бы не просто команду, а уточненную

Пример 1:
в модели начерчена полилиния, щелкаю по иконке в палитре (которую надо создать), запускается команда разметка, задается блок и шаг, т.е. остается только щелкнуть по полинии, она разметится как надо..

Пример 2:
что-то вроде команды "копировать свойства". Есть в модели полилиния, щелкаю по иконке в палитре, запускается команда, выбираю полилнию, она уходит в нужный слой, цвет, тип и т.п.

Всем добра!

[Vova]

По первому примеру можно попробовать Action recorder, если задача решается вручную автокадовскими командами и даже с применением лиспа.
По второму это типичная кисточка

[Valery Brelovsky]

Сообщение от dorogi-dorogi Пример 2:

^C^C_-Linetype;_Load;"DASHDOTX2" "acad.lin"; ^C^C_-layer New SBG_CL; ^C^C_-layer Color 3 SBG_CL; ^C^C_-layer Ltype DASHDOTX2 SBG_CL;C^C(if (not C:SBG_CL) (LOAD "DP.lsp")) SBG_CL \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

(vl-load-com)
(defun c:SBG_CL()
(setq theobj (car (entsel "\nSelect Object: ")))
(setq theobj (vlax-ename->vla-object theobj))
(vla-put-Layer theobj "SBG_CL")
(vla-put-color theobj "BLayer")
(vla-put-ConstantWidth theobj 0.0)
(vla-put-Linetype theobj "BLayer")
(vla-put-LinetypeGeneration theobj 1)
(vla-put-LinetypeScale theobj 1.0)
)

За качество и правильность Лиспа не отвечаю, но у меня он работает в сочетаниии с макросом.
Но прицип такой.
Я всё организовол по такому принципу. И темплет файлом не пользуюсь. Нужные слои образуются по ходу обращения.

Сообщение от dorogi-dorogi Пример 1:

^C^C_-layer New SBG_KV_819;^C^C_-layer Color 9 SBG_KV_819;^C^C_-layer Set SBG_KV_819;C^C-insert D:/AutoDesk_14/T14/S819_D ^C^C^P(command "_measure" pause "b" "S819_D" "" 2.5)(princ)
Разметка стоянок через 2,5м. Опятьже создаётся слой соответствующий номеру линии разметки, и вставляется блок вдоль края проежзей части. Правда сегодня я создал динамический блок разметки стоянок для прямых участков, но встречаются и кривые.

[Profan]

Да, это что-то.

[dorogi-dorogi]

Сообщение от Vova По первому примеру можно попробовать Action recorder, если задача решается вручную автокадовскими командами и даже с применением лиспа. По второму это типичная кисточка

Видимо, я не очень ясно изъяснился. Речь идет о том, как запихать эту кисточку с преднастроенными командами в палитру

----- добавлено через 45 сек. -----
Valery Brelovsky, спасибо!
Валерий, подскажите, как все это записать иконкой в палитру?

Profan, что-то что?

[Vova]

Сообщение от dorogi-dorogi Видимо, я не очень ясно изъяснился. Речь идет о том, как запихать эту кисточку с преднастроенными командами в палитру

Да-да, про преднастроенные свойства ты не сказал. Тем не менее канва такая:
1. Нарисуй, скажем, линию. Забери ее в буфер. Сбрось на палитру. Появится работающая иконка нескольких команд рисования
2. ПК по иконке и правим ее свойства: Меняем имя команды на свое
В строке Use flyout меняем Yes на No
Меняем макро, чтобы получилось так: ^C^C_Matchprop;\s
3. Пробуем команду, оказывается, буквой "S" вызывается диалоговое окно Property Setting, в котором надо удалять птички в ненужных клеточках, но ты ведь хочешь этого избежать. Для этого надо подавить диал. окно, для чего обычно служит переменная CMDDIA=0. Но этого здесь не происходит, поэтому нужно выражения лиспа, которое я не знаю. А если бы окно подавилось то надо продолжить макрос установкой сеттинга в правильные птички. А в конце макроса вернуть диал. окно на место.
4. Надо заменить иконку, нарисовав свою

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

Я почему-то подозреваю, что простыми средствами решить поставленные задачи вряд ли удастся.

[pan]

Сообщение от dorogi-dorogi как запихать эту кисточку с преднастроенными командами в палитру

Перетаскиванием из диалогового окна НПИ (CUI), конечно.
Там надо сначала создать новую команду. По п. 1 макрос будет выглядеть так: ^C^C_measure;\25

[dorogi-dorogi]

Товарищи, объясните, пожалуйста, дуракоупорно. Я хуже вас знаю автокад.

[pan]

Сообщение от dorogi-dorogi Товарищи, объясните, пожалуйста, дуракоупорно. Я хуже вас знаю автокад.

1. В командной строке набираешь _CUI
2. В появившемся диалоговом окне нажимаешь кнопку с пятиконечной звездой и оранжевым символом "звездочка". Создается новая команда Команда1.
3. Справа в окне находишь строку Макросы. Копируешь туда ^C^C_measure;\25
4. Слева внизу нажимаешь на свою Команду1 и тащишь на палитру
5. Не забываем нажать Ок в диалоге