menuload and cuiload

[reinaldo.sampaio]

Amigos,

Estou buscando uma solução para carregar menus
através de lisp ou VBA.

Consegui criar as rotinas, porém.

O menu é carregado, mas não aparece na barra superior de Menus.

Esta é a rotina em lisp.

(defun c:msamp ()
(setvar "filedia" 0)
(command "cuiload" "alpha.cui")
(setvar "filedia" 1)
);defun msamp



Se aplico os comandos "MENULOAD" ou "CUILOAD" através da linha de comando, manualmente, o resultado é positivo.


Porém com Lisp ou VBA, o menu é carregado, mas não está disponível da barra de menus.


Agradeço a ajuda.






(

[reinaldo.sampaio]

Friends,

I am searching for a Lisp or VBA solution to load menus

I have wrote the codes, and the result was not good.

I can load the menus, but they are not available on menu bar.

This is the lisp routine

(defun c:msamp ()
(setvar "filedia" 0)
(command "cuiload" "alpha.cui")
(setvar "filedia" 1)
);defun msamp



The result is good, when I aplly the commands on Command Line.




Thanks for help.

[Brogueira-CADptbr]

Tomei a iniciativa de fazer o "merge" dos dois threads sobre o mesmo assunto pois apesar de estarem em Línguas/Idiomas diferentes o assunto é o mesmo.

Se pretende colocar este tipo específico de questão em Inglês, deve-o fazer num sub-forum do AUGI em língua inglesa, sugiro que o faça num dos seguintes Forums

http://forums.augi.com/forumdisplay.php?f=88

E já agora...quando obtiver resposta em inglês ter a gentileza de traduzir e colocar a tradução aqui.

Os especialistas de VBA aqui de Portugal devem estar de férias, pois o mês de fico de Verão é Agosto e a maior parte das pessoas começou suas férias este fim-de-semana (esta realidade é válida para todo o hemisfério norte incluindo assim os membros que vivem nos USA, no Canada e Reino Unido...).

Nada impede que um assunto seja colocado em simultâneo em diversas Línguas/Idiomas no AUGI desde que colocados nos sub-fóruns certos que poderão ser escolhidos percorrendo a extensa árvore cuja raiz é esta http://forums.augi.com/index.php? .

Porém peço a todos os membros que falam Português que disponham um pouco do seu tempo para traduzir as respostas e colocá-las no respectivo sub-fórum em português caso vejam interesse na sua divulgação.

Só assim estaremos a enriquecer a Comunidade de Lingua Portuguesa do AUGI.

[Rui Pestana]

Caro Reinaldo,

em VB(A) pode usar a colecção MenuGroups para carregar os seus "CUI":
ThisDrawing.Application.MenuGroups.Load("alpha.cui").

Não se esqueça que este ficheiro e todos os ficheiros que ele referencia devem estar num caminho de suporte:
ThisDrawing.Application.Preferences.SupportPath=""c:\..."

Para mais informações veja os códigos de exemplo da "Developer Documentation": "MenuGroups Example" e "SupportPath Example"