Usando forms VBA a partir do AutoLISP

[Josue Silva]

Amigo Francisco

Já me apercebi que é um expert em programação para o Autocad. Assim vou-lhe por a seguinte questão:
Como sabe no Autolisp/VisualLisp se pretendermos criar uma rotina com caixa de diálogo, (correspondente ao Userform no VBA) é tarefa hercúlea! sei por experiência própria pois já criei algumas, infelizmente a Autodesk com todas as evoluções que imprime aos produtos ainda não resolveu e simplificou este processo (com alguma coisa do género "Visual DCL").
Será que no VisualLisp com as funções Activex ou outra (ainda não estou muito familiarizado com Visuallisp) é possivel numa rotina chamar para execução uma Userform criada no VBA e passar os valores para a rotina de Visuallisp? Como é notório é muito mais fácil criar as caixas de diálogo no VBA.
Obrigado

[Filipe Francisco]

Boas,

Em relação ao VisualLisp eu não te posso ajudar, porque não é a minha área, em relação ao VBA ai já posso dizer alguma coisa (apesar de não ser um expert).

Dentro do VBA sei que é possível fazer correr rotinas feitas em Lisp, agora interligar as duas, não sei se é possível.

Fiz uma busca e o que achei, foi o seguinte, através do "VL-object" é possível comunicar com o VBA, agora como se faz no VisualLisp... não sei

Agora o que é possivel é dentro do VBA puxar e executar uma rotina Lisp, isso assim funciona bem.

Option Explicit
Sub CORRERUMLISP()
Dim sLispFile As String
Dim sCmdString As String
sLispFile = "C:\\LISP\\LISPFILE.lsp" 'ALTERAR SO O NOME E LOCALIZAÇÃO DO LISP
sCmdString = "(load " & Chr(34) & sLispFile & Chr(34) & ")" & vbCr
ThisDrawing.SendCommand sCmdString
End Sub

Espero de alguma forma ter ajudado, é simples mas ajuda para o efeito

[fpmalard]

Filipe,

A questão é a seguinte. Não é possível usar os forms do VBA dentro do VisualLISP de forma direta, apenas usando comandos.
Por outro lado, o VisualLISP suporta a utilização de interfaces ActiveX a, sendo assim, você pode criar um Form em VB num projeto ActiveX e consumi-lo dentro do VisualLISP.

Funciona mais ou menos assim:

1) No projeto VB ActiveX:

Public Sub Metodo1(ByVal val As Long)
MsgBox "Metodo1: " + Str(val)
End Sub
Public Sub Metodo2(ByVal strVal As String)
MsgBox "Metodo2: " + strVal
End Sub

No exemplo, estou considerando que o projeto VB se chama "SeuActiveX" e o objeto exportado se chama "ObjetoExportado". Você pode usar qualquer nome que quiser.

2) No VisualLISP:

(defun teste()
  (vl-load-com) 
  ;;efetua a leitura do servidor ActiveX
  (setq meuObj (vlax-invoke-method (vlax-get-acad-object) "GetInterfaceObject" "SeuActiveX.ObjetoExportado"))
  ;;aciona um método
  (vlax-invoke-method meuObj "Metodo1" 100)
  ;;aciona outro metodo
  (vlax-invoke-method meuObj "Metodo2" "Uma mensagem!!!")
  (vlax-release-object meuObj) 
)

Veja este artigo também, parece interessante:
http://aec.cadalyst.com/aec/article/....jsp?id=100883

Espero que ajude.
Abraços,
Fernando Malard.

[Filipe Francisco]

Obrigado Fernando,

Eu de Lisp não tenho bases nenhumas (tenho que começar), mas pelo que vi achei o artigo sobre vba e lisp que indicaste muito interessante. Assim que tiver um pouco de tempo vou dar uma vista de olhos mais aprofundada.

Um Abraço

[Josue Silva]

Afinal até parece que a minha ideia não era tão "idealista" assim! Já vejo luz ao fundo do túnel. Hei-de cá voltar com mais tempo
Obrigado

[Josue Silva]

Amigo F. Malard

Agora com mais tempo e concretizando: costumo criar rotinas Lisp paramétricas para desenho, usando o dcl para as caixas de diálogo o que é trabalhoso e limitado (as ferramentas "tools" não são tão extensas como o VBA) a minha ideia seria criar um projecto dvb com a user form para substituir a caixa que habitualmente crio com dcl, criar a rotina em Visuallisp que invocasse a Userform para o utilizador colocar os dados, passasse os dados à rotina Vlisp e executasse o desenho.
Se pudesse explorar um pouco o processo de passagem de valores (variáveis em memória) do dvb para o código Vlisp, agradecia porque ainda não estou ver bem o processo. Logo que tenha possibilidade criarei um dvb para ilustrar melhor a ideia.
Obrigado

[Josue Silva]

Amigo Francisco

Tenho duas Newsletter da Cadalyst Harry's Code Class: Tips for Programmers que penso te irão interessar, infelizmente tentei inserir os emails mas não consegui, assim vou-te enviar directamente para o teu endereço
Espero que te sejam uteis
Bom fim de semana

[Filipe Francisco]

Tenho duas Newsletter da Cadalyst Harry's Code Class: Tips for Programmers que penso te irão interessar, infelizmente tentei inserir os emails mas não consegui, assim vou-te enviar directamente para o teu endereço
Espero que te sejam uteis

Obrigado por te teres lembrado , mas eu sou assinante dessa newsletter

Obrigado

[Josue Silva]

Caro Amigo

De facto, na sexta-feira, quando te tentei enviar, por qualquer mal funcionamento do correio electronico, não consegui. Hoje foi a primeira coisa que fiz mal cheguei ao alcance do meu computador, só depois li o teu último post, desculpa a inconveniência, diz-me o que achaste da leitura.

Cumprimentos