Tenha uma nova experiência ao navegar no Fórum pelo computador de forma integrada ao portal principal. Acesse o seguinte link: https://www.autolisp.com.br/board/. Entretanto para dispositivos móveis recomendamos acessar este outro link: https://www.autolisp.com.br/forum/

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 » Seg 07 Abr 2008 9:57:24 am

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 » Seg 07 Abr 2008 11:10:40 am

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 » Seg 07 Abr 2008 11:38:30 am

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 » Seg 07 Abr 2008 12:25:55 pm

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 » Seg 07 Abr 2008 12:52:13 pm

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

aki vlw

Responder