INSTALACIN

1. Copiar los archivos a la carpeta C:\Autocad lisp1.3dPolyFillet_eng.lsp2.3doffset.dvb3.bandejaj3d.dvb

2. Aadirlos en Autocad desde Tools/Load Application y en el StartupSuite

3. Aadir los accesos directos con click derecho en la barra de herramientas y luego Customize

4. Utilizar el botn Create a new command1.Bandeja: Macro: ^C^C-vbarun formulario2.3doffset: Macro: ^C^C-vbarun offset3d3.Soportes: Macro: ^C^C-vbarun callsopform4.Accesorios: Macro: ^C^C-vbarun callaccform

VISUAL BASIC

Tools/Macro/Visual Basic EditorObject Browser

ESQUEMA DEL PROGRAMA

Declaracin de variablesPublic tipo As StringDim ruta1 As Acad3DPolyline

Nombre del programa-macroSub formulario()

BandForm.ShowEnd Sub

FORMULARIOS

FUNCIONES

Insertar un bloque' Return a point using a prompt

returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")

' Insert the blockSet blockRefObj = ThisDrawing.ModelSpace.InsertBlock(returnPnt,

"C:\Soportes bloque\" & SopTipo & ".dwg", 1#, 1#, 1#, 0)blockRefObj.ExplodeblockRefObj.DeleteSet blockRefObj = Nothing

FUNCIONES

Seleccionar un casoSelect Case sistema

Case "15 KV Potencia"Set capa = ThisDrawing.Layers.Add("Band_Sist1")ThisDrawing.Layers("Band_Sist1").color = acRed

Case "5 KV / 2.4 KV Potencia"Set capa = ThisDrawing.Layers.Add("Band_Sist2")ThisDrawing.Layers("Band_Sist2").color = acYellow

Case "600 V / 120 V Potencia"Set capa = ThisDrawing.Layers.Add("Band_Sist3")ThisDrawing.Layers("Band_Sist3").color = acBlue

End Select

FUNCIONES

Ciclo repetitivo ForFor i = 0 To repetir - 1

bandeja2.Highlight Truebandeja2.Updatearreglo(i).Highlight Truearreglo(i).Updatebandeja2.Boolean acUnion, arreglo(i)

Next i

FUNCIONES

Decisin IfIf (coordenada(5 + j) - coordenada(2 + j)) > 0 Then

angle2 = 3.1416 / 2Elseangle2 = -3.1416 / 2

End If

FUNCIONES

Subrutina, se declaran las variables en la misma funcin

Sub Offset3dPoly( _o3dpoly As AcadObject, _dDistanceHorizontal As Double, _s3dPolyLayer As String, _o3dpolynew As Acad3DPolyline)