Desenhar um Círculo

Desenhar um Círculo através de VBA

Uma forma de desenhar círculos já com coordenadas e raio pre-definidas.

AutoCAD 2009 Perguntas Frequentes

AutoCAD 2009 Perguntas Frequentes

Artigo transcrito da página da Micrograf sobre Perguntas Frequentes sobre o AutoCAD 2009 em relação ao VBA

...

9. As aplicações criadas por outras empresas para o AutoCAD 2004/2005/2006/2007/2008 funcionam com o AutoCAD 2009 de 32 bits?

As aplicações suplementares criadas por outras empresas com base nas linguagens de programação Visual LISP® ou AutoLISP®, VBA, ActiveX® e ObjectARX® e nas ferramentas para programadores do AutoCAD 2007 são compatíveis com o AutoCAD 2009 de 32 bits. O AutoCAD 2009 é compatível com os dados do AutoCAD 2007/2008 e utiliza o mesmo formato de ficheiro DWG.

As aplicações criadas por outras empresas para o AutoCAD 2004/2005/2006 baseadas em Visual LISP ou AutoLISP também são compatíveis com o AutoCAD 2009. As aplicações criadas por outras empresas com base em VBA para o AutoCAD 2004/2005/2006 são compatíveis com o AutoCAD 2009 de 32 bits em alguns casos, mas poderá haver situações em que essas aplicações terão de ser modificadas. Para obter mais informações sobre a compatibilidade de aplicações para o AutoCAD 2004/2005/2006 baseadas em VBA, visite o Centro para Programadores do AutoCAD. As aplicações criadas por outras empresas para o AutoCAD 2004/2005/2006 baseadas em ActiveX e ObjectARX terão de ser actualizadas para serem compatíveis com o AutoCAD 2009. Consulte o seu programador/fornecedor de aplicações relativamente à disponibilidade de aplicações concebidas para o AutoCAD 2009.

Poderá encontrar mais informações sobre a migração de aplicações para o AutoCAD 2009 no Guia de Migração de Aplicações incluído no SDK de ObjectARX do AutoCAD 2009. O SDK de ObjectARX e muitas outras informações sobre a programação de aplicações e a personalização do AutoCAD estão disponíveis no Centro para Programadores do AutoCAD.

10. As aplicações criadas por outras empresas para o AutoCAD 2004/2005/2006 funcionam com o AutoCAD 2009 de 64 bits?

As aplicações suplementares criadas por outras empresas com base em Visual LISP ou AutoLISP para o AutoCAD 2004/2005/2006 irão funcionar no AutoCAD 2009 de 64 bits. A Autodesk desenvolveu uma solução interna independente para os clientes que pretendem utilizar VBA no AutoCAD de 64 bits. Os clientes antigos terão de converter as aplicações em VBA para VSTA ao utilizarem o AutoCAD de 64 bits. As aplicações suplementares criadas por outras empresas com base em VBA para o AutoCAD 2007 irão ser executadas de forma independente no AutoCAD 2009 de 64 bits. As aplicações baseadas em VBA para o AutoCAD 2004/2006/2005 poderão ser executadas de forma independente em alguns casos, mas terão de ser modificadas noutros. Para obter mais informações sobre a compatibilidade de aplicações baseadas em VBA para o AutoCAD 2004/2005/2006, visite o Centro para Programadores do AutoCAD.

As aplicações criadas por outras empresas para o AutoCAD 2007 com base em ActiveX e ObjectARX terão de ser actualizadas para funcionarem no AutoCAD 2009 de 64 bits. Poderá encontrar mais informações sobre a migração para o AutoCAD 2009 de 64 bits consultando o Guia de Migração para 64 bits do ObjectARX incluído no SDK do AutoCAD 2009 de 64 bits ou visitando o Centro para Programadores do AutoCAD. As aplicações para o AutoCAD 2004/2005/2006 baseadas em ActiveX e ObjectARX terão de ser actualizadas para o AutoCAD 2007, para além de terem de ser preparadas para 64 bits. Consulte o seu programador/fornecedor de aplicações relativamente à disponibilidade de aplicações concebidas para o AutoCAD 2009 de 64 bits....

Para ver o artigo original Perguntas Frequentes ou visite aqui www.micrograf.pt

Usar o nosso template

Usar o nosso template

Como carregar o nosso template .DWT personalizado usando o VBA

Inserir Imagem (Raster)

Inserir uma Imagem (Raster)



Com um mês cheio de novidades e muito dedicado ao estudo do novo AutoCAD 2009, aqui fica um simples código, de como inserir uma imagem (raster) com local, escala e rotação definida.

"Print Screen" através de VBA

"Print Screen" através de VBA

Existe a possibilidade em aceder via VBA a todas as teclas do teclado usando o SENDKEYS (funciona com todas as teclas do teclado), mas infelizmente não consegui usar o sendkeys para o printscreen, testei outras teclas, como o ALT, o END, o INSERT e funcionam perfeitamente, o printscreen é uma das que eu não consegui por a funcionar. Esta tecla é muito boa para podermos realizar por ex: manuais, ou capturas do algo do AutoCAD, para colocarmos noutro programa.

Para o "PRINTSCREEN" (Captura do todo o ecran)

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C
Sub PrintScreen()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

Para o "ALT+PRINTSCREEN" (Captura do formulário/form activo)

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2

Private Const VK_SNAPSHOT = &H2C

Private Const VK_MENU = &H12

Sub AltPrintScreen()

keybd_event VK_MENU, 0, 0, 0

keybd_event VK_SNAPSHOT, 0, 0, 0

keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0

keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0

End Sub

Download da rotina PrintScreen, espero que seja muito útil esta rotina...

Pontos definidos pelo Utilizador

Pontos definidos pelo Utilizador

Desenhar uma linha, solicitando os Pontos ao utilizador através da prompt do AutoCAD.



simplesmente usando strings...

Carregar uma Macro VBA

Carregar uma Macro VBA através de uma toolbar ou Menus

No local da execução do comando ou da toolbar colocar o seguinte:



pode-se usar isto nas rotinas que mais usamos, ganhando tempo de execução da rotina

filename - Nome do ficheiro .dvb
moduloname - Nome do Modulo
macroname - Nome da Macro

ex: -VBARUN rotina.dvb!projectoteste.runvba

Criar uma Layer através de uma InputBox

Criar uma Layer através de uma InputBox



Mensagem se já existir uma mensagem com esse nome



Mensagem de Nova Layer criada



Código da Rotina

Soma de Texto

Soma de Texto

Através da criação de Texto, existe a possibilidade de somar (juntar) partes de texto...



Resultado Final

Inserir Texto

Inserir Texto

Para inserir texto, como uma string (texto definido pelo utilizador) e com o uso de coordenadas para colocação do texto no desenho.

Código da Rotina...



Aspecto final, colocação do texto com o ponto de inserção definido.

Qual será O Futuro do VBA... Parte 2

Qual será O Futuro do VBA... Parte 2

Continuando o post de que falava sobre o Futuro do VBA (http://vbacadpt.blogspot.com/2007/07/o-futuro-do-vba.html), cada dia que passa é uma realidade muito próxima.

Na semana passada em Las Vegas (de 27 a 30 Dez) realizou-se o grande evento Autodesk University 2007, um evento onde participa os maiores especialistas do mundo de produtos autodesk.

Onde pelas informações que retirei do Blog oficial do Evento http://au.autodesk.com/blogs/BLAUG/ cheguei a seguinte conclusão, o fim está próximo, digo isto porquê... De todas as sessões de treino neste evento só 3 acções destinadas unicamente ao VBA, o resto das sessões (e houve um grande aumento de sessões) foi sobre VB.NET.

Futuramente mais noticias sobre este assunto…

Add Procedure Dialog Box

Add Procedure Dialog Box

Criar novos "procedimentos" numa rotina usando a Add Procedure Dialog Box...

Pode-se criar um novo Procedimento (Sub, Function ou Property) do tipo Publico (Public) ou Privado (Private)



Onde encontrar a "Add Procedure Dialog Box"
Menu Insert > Procedure...

Regen

Regen

Para aplicar um regen numa determinada situação...



ThisDrawing.Regen acAllViewports 'Realiza um regen a todos os viewports

acAllViewports poderá ser substituído por acActiveViewport (que realiza um regen apenas ao viewport activo.

Purge All

Purge All

Para aplicar um "Purge All" (limpeza Geral) ao Desenho



ThisDrawing.PurgeAll

Pode-se usar no final de uma rotina, por ex: ao fechar e salvar um desenho

Criar uma Macro

Criar uma Macro

Comando VBAMAN, menu VBA Manager

seleccionar o botão Macros



Escolher o nome pretendido para a macro



Associar ao Desenho DWG para criar a macro



Macro criada...

Quit

Quit

Código para sair do AutoCAD "QUIT"



ThisDrawing.Application.Quit

Audit

Audit



Código para efectuar um Audit ao desenho

ThisDrawing.AuditInfo FixError (True ou False)

True - Encontra e corrige os erros

False - Encontra e não corrige os erros

A Roda do Rato não Funciona... parte 4

A Roda do Rato não Funciona... parte 4

Apesar do problema resolvido, com o AutoCAD 2008 e o Windows Vista, a Roda do Rato funciona com as scrollbars, corrigindo uma falha que existia nas versões anteriores.

Para quem continua a usar o Windows XP não funciona, encontrei este aplicativo VBScroll v1.3.1 para fazer as scrollbars funcionarem, testei e já não me desfaço dele. Vale apena.

Para mais informações e download visite:

http://www.gasanov.net/VBScroll.asp

Os outros posts em que falei no assunto:
A Roda do Rato não Funciona...
A Roda do Rato não Funciona... parte 2
A Roda do Rato não Funciona... parte 3

"Get String"

"Get String" - usando dados inseridos pelo utilizador

Pergunta na prompt do AutoCAD



Resposta numa Message Box, com a resposta que introduzimos na prompt



Código para realizar "Get String"

Ficheiro .txt

Ficheiro .txt

Como criar um ficheiro .txt (notepad) através do autocad (vba).


Este é o código para criar esse documento, convém alterar a localização do ficheiro.



pode ser usado também para criar um ficheiro .doc (substituir onde diz txt por doc)