Duvida - Criar menu toolbar no autocad

Dúvidas sobre AutoLISP...

Moderador: Moderadores

Responder
Avatar do usuário
samu20ifnd
Novato
Novato
Mensagens: 4
Registrado em: Seg 07 Abr 2008 12:00:00 am

Duvida - Criar menu toolbar no autocad

Mensagem por samu20ifnd »

Estou querendo fazer um menu toolbar no autocad, mas não estou conseguindo.
O menu toolbar deve executar uma função lisp.
Minha duvida é
Como criar um lisp, que carrega uma toolbar, que em cada botão executará uma
função lisp especifica.

Se alguem souber, será de grande ajuda
Vlw abraço! 8)
Avatar do usuário
cleyson
Prata 1/3
Prata 1/3
Mensagens: 430
Registrado em: Seg 19 Jun 2006 12:00:00 am

Mensagem por cleyson »

Bom dia

Baseie no abaixo para criar o seu ...

[lsp]//
//
// AutoCAD menu file - C:\SAID\SAID.mnc
//

***MENUGROUP=SAID

***POP1
[SAID]
[->Importação]
ID_Importa_Trimble__VersãoI_0 [<-Importa_Trimble]^C^C(load"SAID")(princ);vidatual
[->Google Earth]
ID_Exporta_KML_0[<-Exporta_KML]^C^C(load "SAID")(princ);kmlfile
[--]
[->Administrador]
ID_Administrador_0 [Administrador]^C^C(load"SAID")(princ);administrador


***TOOLBARS
**Vida
**TB_Vida
**Projetar_Rede
ID_Projetar_0 [_Toolbar("Projetar Rede", _Right, _Show, 0, 0, 1)]
ID__17 [_Button("Inserir Poste", "IPOSTEP.bmp", "Cleyson.bmp")]^C^C(load "SAID")(princ);iposteprojetado
ID__18 [_Button("Excluir Poste e Estrutura", "IESTRPP.bmp", "Cleyson.bmp")]^C^C(load "SAID")(princ);apaga_estrprojetado

//
// End of AutoCAD menu file - C:\SAID\SAID.mnc [/lsp]


Para Carregar no CAD

(defun Instal ()
(setq mypath1 "c:\\SAID")
(setq mypath2 "c:\\SAID\\Arquivos_Trimble")
(setq mypath3 "c:\\SAID\\Banco")
(setq mypath4 "c:\\SAID\\DCL")
(setq mypath5 "c:\\SAID\\Dwg")
(setq mypath6 "c:\\SAID\\DXF")
(setq mypath7 "c:\\SAID\\icons")
(setq mypath8 "c:\\SAID\\Registro")
(setq pathacad (getenv "ACAD"))
(setq unipaths (strcat pathacad ";" mypath1 ";"mypath2 ";"mypath3 ";"mypath4 ";"mypath5 ";"mypath6 ";"mypath7 ";"mypath8";"))
(if (= (wcmatch (strcase pathacad) (strcat "*" (strcase mypath1) "*")) nil)
(setenv "ACAD" unipaths)
)
(princ)
)
(instal)

(defun carregaMenu ()
(setvar "cmdecho" 0)
(if (null (menugroup "SAID"))
(progn
(command "menuload" "c:\\SAID\\SAID.mns")
(menucmd "P25=+SAID.pop1")
)
(progn

(menucmd "P25=+SAID.pop1")
)
)
(princ)
);defun
(carregaMenu)
Cuiabá - Mato Grosso
“Na morte que me sigam, pois não deixo ninguém a chorar”. Cleyson
“Na vida as horas passam e tudo se renova, não invoque a morte, amanhã é um novo dia”. Cleyson
“Deus fez os caminhos, o homem faz o destino” Cleyson
Avatar do usuário
samu20ifnd
Novato
Novato
Mensagens: 4
Registrado em: Seg 07 Abr 2008 12:00:00 am

Mensagem por samu20ifnd »

ID__17 [_Button("Inserir Poste", "IPOSTEP.bmp", "Cleyson.bmp")]^C^C(load "SAID")(princ);iposteprojetado

O comando load 'SAID' executa uma funcao no lisp?
Avatar do usuário
cleyson
Prata 1/3
Prata 1/3
Mensagens: 430
Registrado em: Seg 19 Jun 2006 12:00:00 am

Respondendo ...

Mensagem por cleyson »

Bom dia

(load "SAID") - Arquivo.VLX com todas Rotinas Autolisp
iposteprojetado - Nome de Execução da Rotina

Ex: (defun c:iposteprojetado ()
...
);defun

Atenciosamente
Cleyson Cloves do Carmo
Cuiabá - Mato Grosso
“Na morte que me sigam, pois não deixo ninguém a chorar”. Cleyson
“Na vida as horas passam e tudo se renova, não invoque a morte, amanhã é um novo dia”. Cleyson
“Deus fez os caminhos, o homem faz o destino” Cleyson
Avatar do usuário
samu20ifnd
Novato
Novato
Mensagens: 4
Registrado em: Seg 07 Abr 2008 12:00:00 am

Mensagem por samu20ifnd »

amigo vlw pela ajuda,,,
jah terminei o proj.

aki vlw
Responder