[lexluther]

Добрый день,

Как при помощи Лиспа можно создать свой тулбар с кнопкой и привязать к нему команду?

Спасибо за помощь

[Brendovich]

http://dwg.ru/art/8

[VVA]

Здесь посмотри. Правда там добавляется кнопка в уже существующий тулбар.
Возможно ли ЛИСПом посадить иконку на кнопку

[lexluther]

Я новичек в АвтоЛиспе но знаю синтаксис Коммон Лисп, можете пожалуйста сказать мне на какие методы и свойства мне нужно обратить внимание чтобы добавить новый тулбар и кнопку на него? И хотя бы краткий пример если не сложно.

[VVA]

lexluther, Ссылку #3 смотрел. Открываешь lsp файл и смотришь. Сразу натыкаешься на vla-get-Toolbars Чтобы добавить, нужно использовать vla-add. Но нужно четко представлять объектную модель (есть в справке) и еще не помешает проштудировать это.

[Makswell]

Может это немного поможет
http://forum.dwg.ru/showthread.php?t=31939

[lexluther]

Вот сумел создать тулбар!! А как к нему привязать код на языке лисп (что мне нужно указываеть вместо TEST_SOMETHING)?

Код:

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

(vl-load-com)

  (defun createToolbar ()
    (setq newToolbar (vla-add (vla-get-toolbars(vla-item(vla-get-menugroups(vlax-get-acad-object)) "ACAD")) "LM"))

    (setq openMacro (strcat (chr 3) (chr 3) (chr 95) "TEST_SOMETHING" (chr 32)))
    
    (setq newToolbarButton (vla-addToolbarButton
             newToolbar
             (1+ (vla-get-count newToolbar))
             "LM" "LM" openMacro
           )
    )
    (setq SmallBitmapName "LM-S-I.bmp")
    (setq LargeBitmapName "LM-L-I.bmp")
    
    (vla-setBitmaps newToolbarButton SmallBitmapName LargeBitmapName)

    (vla-put-helpString newToolbarButton "Export to LabelMark")
  )

[Makswell]

Просто свой код оформляешь функцией и определяешь её как команду Автокада.

Т.е. в любом месте (ну например в конце того же файла с твоим кодом) прописываешь:

Код:

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

(defun C:TEST_SOMETHING ()
;;;твой код на лиспе
)

Естественно грамотно определяя локальные переменные в (defun C:TEST_SOMETHING ( / ....