Page 1 of 2 12 LastLast
Results 1 to 10 of 12

Thread: Dúvida sobre VBA e Lisp

  1. #1
    Member
    Join Date
    2007-04
    Location
    San Antonio - TX
    Posts
    7
    Login to Give a bone
    0

    Unhappy Dúvida sobre VBA e Lisp

    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

  2. #2
    Português Forum Moderator Brogueira-CADptbr's Avatar
    Join Date
    2003-08
    Location
    Porto-Portugal
    Posts
    416
    Login to Give a bone
    0

    Default Re: Dúvida sobre VBA e Lisp

    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,
    Last edited by augi574259; 2007-04-06 at 11:15 AM.
    João Greno Brogueira
    Moderador dos Fóruns em Português do AUGI
    Skype:joaobrogueira
    augi@brogueira.com
    www.topcadexperts.com

  3. #3
    Português - Programação Moderator Filipe Francisco's Avatar
    Join Date
    2001-12
    Location
    * PORTUGAL * Sintra *
    Posts
    859
    Login to Give a bone
    0

    Default Re: Dúvida sobre VBA e Lisp

    Quote Originally Posted by 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
    Podias explicar melhor o que pretendes... Pretendes através do VBA gerar Lisp's???


    Um Abraço
    Filipe
    Filipe Francisco
    AutoCAD Certified Professional
    Revit Certified Professional
    Autodesk Certified Instructor

  4. #4
    Member
    Join Date
    2007-04
    Location
    San Antonio - TX
    Posts
    7
    Login to Give a bone
    0

    Default Re: Dúvida sobre VBA e Lisp

    Quote Originally Posted by filipe-francisco
    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

  5. #5
    Português - Programação Moderator Filipe Francisco's Avatar
    Join Date
    2001-12
    Location
    * PORTUGAL * Sintra *
    Posts
    859
    Login to Give a bone
    0

    Default Re: Dúvida sobre VBA e Lisp

    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
    Filipe Francisco
    AutoCAD Certified Professional
    Revit Certified Professional
    Autodesk Certified Instructor

  6. #6
    Member
    Join Date
    2007-04
    Location
    San Antonio - TX
    Posts
    7
    Login to Give a bone
    0

    Default Re: Dúvida sobre VBA e Lisp

    Quote Originally Posted by filipe-francisco
    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)

  7. #7
    Member abdala's Avatar
    Join Date
    2006-10
    Posts
    10
    Login to Give a bone
    0

    Wink Re: Dúvida sobre VBA e Lisp

    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
    )

  8. #8
    Member
    Join Date
    2007-06
    Location
    Sumaré
    Posts
    36
    Login to Give a bone
    0

    Question Re: Dúvida sobre VBA e Lisp

    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 ????

  9. #9
    Active Member
    Join Date
    2007-01
    Location
    Ermesinde - Portugal
    Posts
    59
    Login to Give a bone
    0

    Smile Re: Dúvida sobre VBA e Lisp

    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
    Attached Files Attached Files
    Last edited by Rui Pestana; 2007-06-21 at 08:40 AM.

  10. #10
    Member
    Join Date
    2007-06
    Location
    Sumaré
    Posts
    36
    Login to Give a bone
    0

    Thumbs up Re: Dúvida sobre VBA e Lisp

    Bom dia, Rui!

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

    obrigado.

Page 1 of 2 12 LastLast

Similar Threads

  1. 2013: Dúvida sobre coordenadas relativas
    By marcusfillipess683806 in forum Português - AutoCAD / AutoCAD LT
    Replies: 1
    Last Post: 2012-12-06, 07:47 PM
  2. Duvida sobre UCS em 2D
    By darwin_lorente in forum Português - AutoCAD / AutoCAD LT
    Replies: 0
    Last Post: 2011-06-16, 02:48 PM
  3. Dúvida sobre AutoCAD.NET e C#
    By pferreira in forum Português - Customização / Programação
    Replies: 18
    Last Post: 2010-02-22, 07:42 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •