Dúvida sobre VBA e Lisp

[leo_munters]

Pessoal
estou fazendo uma macro de VBA para inserir blocos e Xref´s em um desenho
quero que quando eu clicar no botão "Gerar Desenho" sejam rodadas várias LISP´s em
sequencia, cada uma inserindo no desenho um bloco ou xref.
alguém tem alguma dica ou idéia de como fazer isto?

Leonardo

[Brogueira-CADptbr]

Muito recentemente descobri um Blog sobre VBA para AutoCAD de que falo neste meu post

http://cad.blogs.com/cadptbr/2007/04...obre_vba_.html

e claro que gostava que o Autor participásse no nosso Forum.

Abraço,

[Filipe Francisco]

Pessoal
estou fazendo uma macro de VBA para inserir blocos e Xref´s em um desenho
quero que quando eu clicar no botão "Gerar Desenho" sejam rodadas várias LISP´s em
sequencia, cada uma inserindo no desenho um bloco ou xref.
alguém tem alguma dica ou idéia de como fazer isto?

Leonardo

Podias explicar melhor o que pretendes... Pretendes através do VBA gerar Lisp's???


Um Abraço
Filipe

[leo_munters]

Podias explicar melhor o que pretendes... Pretendes através do VBA gerar Lisp's???


Um Abraço
Filipe

Filipe
o que acontece é assim:
tenho algumas lips já prontas e gostaria de usar o VBA para roda-las em sequencia, dependendo da necessidade (farei isto usando comandos IF do VBA) a ser definida através de uma caixa de diálogo (FORM)

ficou mais claro?

obrigado pelo interesse
Leonardo

[Filipe Francisco]

Boas,

Já tens algum código desenvolvido, ou ainda não tens nada, se tens gostava de ver o que tens...

Se pretendes colocar todos de seguida, e ele usa os lisps conforme o que encontra, é muito trabalhoso, tens de ponderar todas as hipoteses.

Se pretendes escolher os lisps que queres usar, cria uns botões onde ele executa o lisp pretendido.

Um Abraço

[leo_munters]

Boas,

Já tens algum código desenvolvido, ou ainda não tens nada, se tens gostava de ver o que tens...

Um Abraço

Caro Filipe
obrigado pelo interesse
na verdade já desisti de usar lisp e estou fazendo tudo dentro do VBA mesmo.
porém tenho mais uma dúvida que voce talvez possa me ajudar:
tenho um bloco chamado "FORMA3" que na realidade é um formato A3 onde através de caixas de texto do FORM quero inserir os dados no formato. como posso fazer isto?
segue o código onde eu insiro 2 instancias dos FORMA3 no desenho. o problema é: como posso acesar os atributos destes blocos para inserir neles os conteudos das caixas de textos? Cada bloco possui 7 atributos.

obs: os blocos já fazem parte do template, por isto não é necessário inseri-los como desenho externo

código:

'definição da inserção dos Formatos
Dim Form As AcadMInsertBlock
Dim insertptForm(0 To 2) As Double
'Define o ponto de inserção
insertptForm(0) = 0
insertptForm(1) = 0
insertptForm(2) = 0
'insere os formatos
Set Form = ThisDrawing.ModelSpace.AddMInsertBlock(insertptForm, "Forma3", 1, 1, 1, 0, 1, 2, 0, 400)

[abdala]

Olá colegas,
Sugiro que o VBA chame somente um LISP, e que o lisp no final dele, chame o seguinte e o próximo sucessivamente até o fim.
Porque se é para rodar em sequencia, nada melhor que deixar o LISP fazer daí em diante, e deixar o VBA de fora.


ARQUIVO 1
(defun LISP ()
(setq etc etc) (setq etc etc) (setq etc etc)
(setq etc etc) (setq etc etc) (setq etc etc)

(load "C:/LISP2") (LISP2)
)

ARQUIVO 2
(defun LISP2 ()
(setq etc etc) (setq etc etc) (setq etc etc)
(setq etc etc) (setq etc etc) (setq etc etc)

(load "C:/LISP3") (LISP3)
)

ARQUIVO 3
(defun LISP3 ()
(setq etc etc) (setq etc etc) (setq etc etc)
(setq etc etc) (setq etc etc) (setq etc etc)

;FIM
)

[marcio.cartacho]

Boa tarde, pessoal!

será que alguém tem algum exemplo de como inserir uma MTEXT contendo um texto de por exemplo dez linhas em um dwg qualquer atraves do VBA ????

[Rui Pestana]

Olá Mario,

fiz um pequeno VBA para fazer o que pretende através de um formulário onde:
1. definimos o estilo de texto seleccionando um dos estilos de texto presentes no desenho
2. escrevemos o texto numa "TextBox", com o número de linhas que quisermos

3. Seleccionamos o ponto do canto superior esquerdo do MTEXT

4. Inserimos o texto clicando num botão.

Este é um exemplo muito simples que tem as seguintes limitações:

1. Apenas insere o MTEXT no ModelSpace
2. A formatação do texto é limitada ao estilo seleccionado

Espero que sirva como exemplo do que se pode fazer. Se tiver qualquer dúvida ou necessitar de alguma melhoria que não consiga implementar não hesite em dizer.

Obrigado,

Rui Pestana

Rui Pesta

[marcio.cartacho]

Bom dia, Rui!

Cara, muito obrigado pela ajuda! este exemplo é muito jóia. valeu mesmo!

obrigado.