Vba em Autocad - P
Vba em Autocad - P
Vba em Autocad - P
Tavares
FEUP/DEMEGI/SDI
Bibliografia
MaterialdisponvelnoAfraLisp.netem http://www.afralisp.net ProgramaoemAutoCAD,CursoCompleto FernandoLusFerreira,JooSantos FCA SistemadeajudadoAutoCAD
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
Introduo
AprogramaoporobjectosVBA VisualBasic forApplications utilizafundamentosda programaoatravsdoVB VisualBasicmas emqueoambientededesenvolvimentoest includonoprprioAutoCAD MaisrpidodoqueasaplicaesemAutoLISP Comunicaofacilitadacomoutrasaplicaes Windows (Word,Excel,Access,etc.) Interfacededesenvolvimentomuitointuitae comgrandecapacidadedeajuda
CFAC:IntroduoaoVBAemAutoCAD @2007 JooManuelR.S.Tavares
Introduo
Asaplicaesdesenvolvidassogeridaspor eventos(devidosaacesdoutilizadoredo sistema) Acriaodecaixasdedilogoparaaexecuo dasaplicaesmuitosimples OsprojectosVBA podemficarembebidosnos desenhosouseremindependentes(globais)
Projectosembebidossoprojectosqueficam gravadoscomodesenho Projectosglobaissoprojectosqueficamgravados emficheirosseparados
CFAC:IntroduoaoVBAemAutoCAD @2007 JooManuelR.S.Tavares
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
Introduo
CadaobjectodoVBA definidoporumaclasse Cadaobjectotempropriedadesemtodos
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
readaspropriedades doobjectoactivo
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
Janeladecdigo
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
10
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
(executar)
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
11
AutoCAD
NoAutoCAD so considerados: considerados
Objectos Classes Coleces
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
12
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
AutoCAD
ObjectoDocument odesenhoactivo,a refernciaparaumdesenhoactivofeitacom ThisDrawing
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
13
DoAutoCAD
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
14
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
DoVBA
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
15
Forms
Mostrarforms:UserFormName.Show Carregarforms emmemria(porquestesderapidez): Load UserFormName Esconderforms:UserFormName.Hide Descarregarforms damemria: Unload UserFormNameouUnloadMe Eventos:
UserFormName_Click() UserFormName_Initialize() UserFormName Initiali e() UserFormName_QueryClose(CancelAsInteger,CloseMode AsInteger) UserFormName_Resize() UserFormName_Terminate()
CFAC:IntroduoaoVBAemAutoCAD @2007 JooManuelR.S.Tavares
16
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
ExemploI
Desenhar10crculosalinhados:
Output:
ThisDrawing.ModelSpace.AddCirclecenterPoint,5
CFAC:IntroduoaoVBAemAutoCAD @2007 JooManuelR.S.Tavares
17
ExemploII ExemploII
Desenhar5crculosconcntricos:
Output:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
18
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
ExemploIII ExemploIII
Perguntarnomeeidadeeapresentarmensagem:
Output:
CFAC:IntroduoaoVBAemAutoCAD @2007 JooManuelR.S.Tavares
19
ExemploIV ExemploIV
Desenharumtrapziodadoscomprimentos,altura,nguloeumponto:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
20
CFAC:IntroduoaoVBAemAutoCAD
10
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
21
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
22
CFAC:IntroduoaoVBAemAutoCAD
11
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
ExemploIV ExemploIV(cont.)
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
23
ExemploIV(cont.) ExemploIV
Funcionamento:
Output:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
24
CFAC:IntroduoaoVBAemAutoCAD
12
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
ExemploV
Alteraraescaladosobjectosseleccionadosrelativamenteaoseucentogeomtrico:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
25
ExemploVI
DestacarobjectosnumadeterminadaLayer:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
26
CFAC:IntroduoaoVBAemAutoCAD
13
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
ExemploVI(cont.) cont.)
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
27
ExemploVII VII
Identificarlayers existentesnumdesenhoealteraralayer deobjectosseleccionados:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
28
CFAC:IntroduoaoVBAemAutoCAD
14
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
29
Emfuncionamento:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
30
CFAC:IntroduoaoVBAemAutoCAD
15
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
ExemploVIII VIII
Desenharcaixaarredondadadadosumpontocentral,larguraecomprimento:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
31
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
32
CFAC:IntroduoaoVBAemAutoCAD
16
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
33
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
34
CFAC:IntroduoaoVBAemAutoCAD
17
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
Emfuncionamento:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
35
ExemploIX ExemploIX
Desenharfiguradadosumpontocentral,larguraealtura:
Output:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
36
CFAC:IntroduoaoVBAemAutoCAD
18
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
37
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
38
CFAC:IntroduoaoVBAemAutoCAD
19
@2007 JooManuelR.S.Tavares
FEUP/DEMEGI/SDI
Output:
CFAC:IntroduoaoVBAemAutoCAD
@2007 JooManuelR.S.Tavares
39
CFAC:IntroduoaoVBAemAutoCAD
20