Afstudeerverslag van: Mentor: Afstudeerrichting: Onderwerp:
Inhoudsopgave
Johan Troelstra de heer ir. R. Boeklagen ACE System Maneger ConaX
ConaX
Inleiding
blz. 1
Hoofdstuk 1 1.1 Indeling 1.2 Beschrijving 1.3 De organisatie 1.4 De aanleiding 1.5 De Probleemstelling 1.6 De doelstelling
blz. blz. blz. blz. blz. blz.
2 2 3 4 5 6
Hoofdstuk 2 2.1 Beschrijving van de huidige situatie.
blz. 7
Hoofdstuk 3 3.1 De oplossing
blz. 8
Hoofdstuk 4 4.1 Weergave van de werking d.m.v. Dialoogboxen. 4.2 ConaX-main (de code)
blz. 9 blz.11
Inleiding
Een bedrijf is altijd bezig om een goede balans te vinden tussen de mensen binnen het bedrijf en de bestaande en nieuwe zakenrelaties. Om dit te kunnen realiseren moet men eerst een goede balans vinden binnen het bedrijf. Dit maakt het mogelijk om optimaal te presteren. En op die manier een betrouwbaar zakenpartner te zijn. Johan Troelstra
ConaX
Om de balans binnen ons bedrijf vanuit het bedrijfsbureau naar de werkplaats te verbeteren heb ik besloten om een programma te schrijven in AutoCad VBA, die coördinaten in Excel kan weergeven. Dit leidde tot de geboorte van ConaX. ConaX staat voor coördinaten naar Excel.
Johan Troelstra
ConaX
Hoofdstuk 1 1.1 Indeling In hoofdstuk 1 wil ik de volgende onderdelen in het kort nader toelichten; • • • •
De beschrijving Organisatie Aanleiding Probleemstelling
In hoofdstuk 2 wil ik een duidelijke omschrijving geven van de huidige situatie en op deze mannier het probleem duidelijk in kaart brengen. In hoofdstuk 3 wil ik de oplossing aandragen om ons huidige probleem te verhelpen. In hoofdstuk 4 probeer ik door middel van dialoogboxen en een stukje code duidelijk te maken hoe het programma in elkaar zit. 1.2 Beschrijving In het bedrijf waar ik werkzaam ben is een verspanende afdeling aanwezig. Op deze afdeling wordt gebruik gemaakt van CNC frees- en draaimachines. Deze machines worden door onze technische medewerkers zelf geprogrammeerd. Als men een frees- of draaimachine een bewerking wil laten uitvoeren moet men de X, Y en Z coördinaten invoeren. De X en Y coördinaten bepalen het contour waar het snijgereedschap zijn snijdende bewerking moet uitvoeren. De Z coördinaat is voor de snijdiepte van het snijgereedschap en voor de contouren verder niet van belang. Ik richt mij bij mijn vraagstuk volledig op de X en Y coördinaten. Het is de bedoeling dat door middel van een paar eenvoudige handelingen deze X en Y coördinaten gemakkelijk bepaald kunnen worden en direct uitleesbaar zijn in Excel. 1.3 De organisatie De geschiedenis van de huidige onderneming begint in 1947. In dit jaar nam de heer Anjes Kampen een smederij over in het Groningse dorpje Thesinge. Ongeveer tien jaar later verlegde Anjes Kampen zijn werkzaamheden naar het terrein van het industrieel onderhoud. Diverse bedrijven, waaronder ook de Johan Troelstra
ConaX
opkomende olie- en gasindustrie, deden een beroep op zijn diensten. Door zijn inzet en vakkennis kon het bedrijf floreren. Kampen besloot haar diensten te richten op de ontwikkelingen in de snel groeiende olie- en gasindustrie bij Slochteren. De in 1967 opgerichte Kampen Konstructie vestigde zich daarom in 1969 in Hoogezand. Hier nam het aantal disciplines binnen het bedrijf gestaag toe. De opvolger van Anjes Kampen is zijn zoon Arend Kampen. Hij kan zijn opvattingen over de steeds veelzijdiger wordende industriële dienstverlening in praktijk brengen. Hierdoor kon de onderneming uitgroeien tot haar huidige omvang. Onder Kampen Holding is het voormalige Kampen Konstuctie BV gevestigd met de vernieuwde naam Kampen Industrial Care (KIC). Hieruit zijn verschillende werkmaatschappijen op strategische plaatsen in Nederland opgericht onder de namen Kampen Valve Care, Kampen Lion Services. Ook VEKUNA behoort tot Kampen Holding. Ik beperk mij tot de machinefabriek van KIC, aangezien ik hier werkzaam ben en de machinale bewerkingen hier uitgevoerd worden. KIC is in staat om machinale bewerking en verspaning met een machinepark van zowel conventioneel als CNC gestuurde draai- en freesbanken uit te voeren. Het gaat hierbij om reparatiewerkzaamheden en kleinere seriematige werkzaamheden maar ook om het zogenaamde ontwerpen en fabriceren van diverse onderdelen.
Er is een dienstenpakket opgezet voor werkorders met een korte doorlooptijd. Indien nodig, bijvoorbeeld bij calamiteiten, kunnen onze diensten op zeer korte termijn beschikbaar worden gesteld. Hiervoor geldt een 24-uurs service voor 7 dagen per week. 1.4 Aanleiding De aanleiding om dit programma te schrijven is dat het regelmatig voorkomt dat er tekeningen aangeleverd (of gemaakt) worden die voorzien zijn van een volledige bemating. Deze tekeningen moeten daarna alsnog worden voorzien
Johan Troelstra
ConaX
van coördinaten. Complexere volledig bemate tekeningen kunnen erg verwarrend zijn voor de CNC programmeur. Hierdoor kunnen diverse misverstanden ontstaan tussen de tekenaar en de programmeur van de coördinaten. 1.5 Probleemstelling Als de programmeur van de CNC machine complexe volledig bemate tekeningen onder ogen krijgt duur het (te) lang om hem zelf de coördinaten te laten bepalen. Dit houdt in dat de programmeur enorm onder tijdsdruk moet werken wat voor de programmeur ernstige gevolgen kan hebben met betrekking tot zijn functioneren binnen het bedrijf. Hierbij kan bijvoorbeeld gedacht worden aan; • •
Overspannen raken Veelfouten maken, daardoor niet op tijd kunnen leveren.
Om dit alles te voorkomen heb ik in overleg met mijn werkgever besloten om een programma te maken die in alle bovenstaande opzichten zorgt voor een hoger rendement. Uitgangspunt was dat het programma wel eenvoudig in gebruik moest zijn. 1.7 Doelstelling Mijn doel van deze toepassing is om een situatie te creëren waarin ik op een snelle, eenvoudige en een nauwkeurige manier mijn coördinaten kan bepalen. Hierdoor krijg je een beter overzicht op de tekening en wordt de kans op fouten bij het bepalen van de coördinaten en het programmeren tot een minimum beperkt. Het resultaat hiervan zou moeten zijn dat er veel verwarring in de werksituatie voorkomen kan worden.
Johan Troelstra
ConaX
Hoofdstuk 2 2.1 Beschrijving van de huidige situatie. Wanneer er op dit moment binnen het bedrijf een tekening gemaakt wordt of door derden wordt aangeleverd dan kan het zijn dat de coördinaten bepaald moeten worden. De tekening wordt in dat geval verplaatst naar het nulpunt. Daarna wordt door gebruik te maken van het commando “list” stapsgewijs langs alle punten gegaan. Deze coördinaten worden op een stukje papier geschreven. Als alle coördinaten dan bepaald zijn wordt door gebruik te maken van het commando “draw/text/multiline text” de coördinaten ingevoerd in de tekening. Als dit gebeurt is, is de tekening klaar voor gebruik. Dit proces is zeer omslachtig en tevens zeer tijdrovend. Ook is de kans op fouten vrij groot aangezien alles handmatig uitgevoerd wordt. In de praktijk blijkt dat er vaak geen tijd is om de coördinaten door de CNC programmeur of door de engineers op deze omslachtige manier te bepalen. Dit brengt vaak een hoop onvrede met zich mee. Hierbij kan bijvoorbeeld gedacht worden aan; • • • • • • •
Altijd onder hoge tijdsdruk moeten werken Veel fouten maken Niet op tijd kunnen leveren Hoog oplopende kosten Ontevreden klanten Het verliezen van klanten Overspannen raken
In het meest extreme geval zou het kunnen betekenen dat er helemaal geen werk meer is voor de CNC machine en voor de betrokken werknemers. Dit zou kunnen leiden tot een faillissement.
Johan Troelstra
ConaX
Hoofdstuk 3 3.1 De oplossing Bij ons in het bedrijf zouden we op de oude voet door kunnen gaan en alle consequenties aanvaarden maar dit is voor geen van de partijen aanvaardbaar. We zouden het bepalen van de coördinaten kunnen uitbesteden aan een engineersbureau. Dit kost echter veel tijd en er moet voor elke tekening een bepaald bedrag worden betaald. Dit is afhankelijk van het aantal uren dat nodig is om de coördinaten te bepalen. Tevens moeten wij dan maar afwachten of er direct tijd is om de coördinaten voor ons bedrijf te bepalen. Dé oplossing is zelf een programma te schrijven dat snel, eenvoudig en nauwkeurig de coördinaten kan bepalen. Als ik het programma zelf schrijf zijn er geen kosten aan verbonden. Ik kan zelf bepalen hoe mijn programma er uit moet komen te zien en aan welke eisen hij moet voldoen. Hieronder staan de belangrijkste directe voordelen van het programma. • Het programma helpt mee aan duidelijke overzichtelijke tekeningen; • Minder kans op het maken van fouten tijdens het bepalen van de coördinaten; • In Excel kan ik mijn formulier direct uitprinten en als bijlage meegeven richting de werkplaats waardoor de programmeur een makkelijk uit te lezen formulier in handen krijgt; • Niet te hoeven wachten op het engineersbureau wat een kostenbesparing inhoudt.
Johan Troelstra
ConaX
De belangrijkste indirecte voordelen van het programma zijn: • Geen ontevreden maar tevreden klanten (het juiste product op het juiste tijdstip en de juiste plaats); • Geen hoog oplopende kosten maar juist kostenbesparing; • Minder werkdruk voor de CNC programmeur.
Johan Troelstra
ConaX
Hoofdstuk 4 4.1 Weergave van de werking door middel van Dialoogboxen.
Met dit knopje kan ik het programma activeren.
Johan Troelstra
ConaX
• • •
Hier kan ik ingeven welke template er geopend moet worden. Hier kan ik aangeven in welke directory de template opgeslagen moet worden. Hier start ik het programma mee.
Dit is een geheugensteun om de functie OSNAP aan te zetten.
Na deze waarschuwing moet ik mijn nulpunt bepalen.
Deze melding krijg ik wanneer Excel en de gekozen template geopend zijn.
Johan Troelstra
ConaX
Voordat ik begin met het aangeven van de coördinaten maak ik op deze manier duidelijk op welke manier ik het programma kan beëindigen.
En als laatste kan ik de X en Y coördinaten uitlezen in Excel. 4.2 ConaX-main (de code)
Private Sub Start_Click() Me.Hide MsgBox "Zet bij voorkeur de functie OSNAP aan", , "Controle functie" Johan Troelstra
ConaX
Me.Hide MsgBox "Leg uw nulpunt vast", , "Nulpunt bepaling" 'Get x,y from getPoint routine On Error Resume Next p = ThisDrawing.Utility.GetPoint(, "Origin: ") If Err Then End If xnulpunt = p(0) ynulpunt = p(1) Dim e As Excel.Application Set e = CreateObject("Excel.application") e.ScreenUpdating = True MsgBox "Koppeling Excel succesvol; geef uw punten aan", , "Koppeling Excel" MsgBox "Druk na het laatste coordinaat op de rechtermuiskop of op Esc om het laatste punt te markeren", , "Beeindigd punten" Dim w As Workbook ' w.open werkt niet, omdat er nog geen w bestaat. ' e.Workbooks creert een w voor je Set w = e.Workbooks.Open(ConaXMain.templateTextbox.Text) Dim t As Worksheet 'Begin inlezen punten For i = 1 To 1000 Set t = w.Sheets.Item(1) On Error Resume Next p = ThisDrawing.Utility.GetPoint(, "Punt: ") If Err Then Exit For Johan Troelstra
ConaX
End If t.Cells(i + 6, 3) = p(0) - xnulpunt t.Cells(i + 6, 4) = p(1) - ynulpunt Next i 'einde inlezen punten e.Visible = True naam = ThisDrawing.Name '.dwg eraf halen lengte = Len(naam) kortenaam = Left(naam, lengte - 4) 'Bestandsnaam in excel plaatsen t.Cells(2, 4) = naam 'opslaan als tekening naam w.SaveAs (ConaXMain.ExcelTextbox.Text + "\" + kortenaam) End Sub
Johan Troelstra
