HBO Traject ACE Generiek testplan voor AutoCAD
Auteur Ing. M. van Walraven Datum 11 februari 2014
Docent Ir. Ronald Boeklagen
Studie HBO traject ACE System Manager
Voorwoord In mei 2001 ben ik in vaste dienst gekomen van Gemeentewerken Rotterdam. Ik ben begonnen als projectvoorbereider bij het Ingenieursbureau Gemeentewerken Rotterdam bij het project SEGMEER VOF. Na het aflopen van dit project ben ik projectvoorbereider geweest bij verschillende teams. Tijdens dit traject ben ik mij meer gaan bezighouden met automatisering. Tegenwoordig ben ik applicatie beheerder van de CAD-pakketten.
Deze studie volgt uit van mijn functieverandering. Voor deze functie moet ik ook de applicaties die nu nog bij ons in lisp worden aangeboden in AutoCAD omzetten naar vb.net.
Ik wens u veel leesplezier.
Michael van Walraven
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
2 van 22
Inhoudsopgave Voorwoord
2
1.
Inleiding
4
2.
Problemen en oplossingen
7
2.1
Inleiding
7
2.2
Problemen en oplossingen
7
2.3
Afweging van elk van die problemen en oplossingen
7
3.
Hardware en software
8
4.
Stroomschema en code
10
4.1
Inleiding
10
4.2
Stroomschema waaruit de werking van het programma blijkt
10
4.3
Schermafdrukken van dialoogboxen
12
4.4
Code van het programma
14
4.5
Laden van toolpallette
18
5.
Reflectie
20
6.
Figurenlijst
21
7.
Bijlagen
22
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
3 van 22
1.
Inleiding De aanleiding voor de eindopdracht voor dit traject komt voort uit het ontbreken van een eenduidig testplan binnen de organisatie. Kader /scope De organisatie is Gemeente Rotterdam. Binnen de organisatie zijn omgeveer 225 licenties van AutoCAD in gebruik. De meerste gebruikers van AutoCAD zitten bij het SB/SO (Stadsbeheer/Stadsontwikkeling), ongeveer 95% van de gebruikers zitten in deze organistatie. Dit onderzoek heeft betrekking op Standsontwikkeling (SO) en Stadsbeheer (SB). Deze diensten tellen de meeste AutoCAD gebruikers binnen Gemeente Rotterdam. Het betreft hier ongeveer 350 personen. De huidige versie van AutoCAD is AutoCAD MAP 3D 2009.
Figuur 1 afbeelding van Europoint complex Er loopt inmiddels een traject voor een update naar AutoCAD MAP 3D 2014 in een VDI omgeving. Dit generieke testplan is geschreven en getest voor AutoCAD MAP 3D 2013. AutoCAD MAP 3D 2013 is ook gebruikt in het huidige testtraject naar een hogere AutoCAD versie. Tijdens en na de migratie naar een ICT omgeving binnen Gemeente Rotterdam is er onder de gebruikers erg veel onrust ontstaan over de snelheid (performance) van het systeem. Na de migratie is de snelheid van het systeem drastisch naar beneden gegaan. Hierdoor is AutoCAD voor de gebruiker haast niet te gebruiken.
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
4 van 22
Door het verouderen van de huidige AutoCAD versie, moeten wij naar een andere nieuwere versie van AutoCAD MAP. De intentie is een overgang naar AutoCAD MAP 3D 2014. Voor het testen van de functionaliteit en vooral de performance van het systeem zijn wij bezig met een POC (proof of concept). Tijdens deze test hopen wij ook een antwoord de krijgen of AutoCAD virtueel aangeboden kan worden aan gebruikers. Hierdoor kan elke AutoCAD gebruiker ongeacht de locatie inloggen op het netwerk en gebruikmaken van AutoCAD. Een update naar een hogere versie van AutoCAD komt voort uit het feit dat SO/SB steeds meer werkzaamheden gaan uitbesteden. Door deze uitbestendig is het beschikbaar hebben van de meest laatste versie haast een vereiste. Voor deze POC is er door de functioneel beheerders van AutoCAD een testplan geschreven. Dit testplan is in de huidige 2009-omgeving, maar ook in de nieuwe 2013 omgeving getest. Door het hebben van een generiek testplan kan in de toekomst effiecienter een nieuwe AutoCAD versie worden getest. Een ander voordeel van het hebben van een generiek testplan is dat er in een nieuwe of andere infrastructuur snel en makkelijk zonder veel aanpassingen een vergelijk met de huidige omgeving kan worden gemaakt. Hierdoor is af te leiden of de nieuwe omgeving sneller of langzamer is dan de huidige omgeving. Een ander voordeel van een generiek testplan is dat dit testplan in elke willekeurig omgeving kan worden ingezet voor het testen van de applicatie in deze omgeving. Zo kan met dit testplan ook de thuiswerkplek worden getest, om tot een vergelijk van meerdere verschillende omgevingen te komen. Voor dit HBO ACE traject Is slechts een gedeelte van het hele testplan geschreven in VB.NET. De rest en eventuele aanpassingen moeten na het afronden van dit HBO ACE traject plaatsvinden.Er is nu in het testplan geen stukje “tekenwerk” opgenomen. Door het opnemen van een stukje “tekenwerk” kan het gevoel van de ervaren tekenaar worden meegenomen in het onderzoek. Een stukje “tekenwerk” is een tekening die door de gebruiker wordt gemaakt voor het ervaren van het systeem. Als voorbeeld, “snappen” naar eindpunt, muisbeweging over het scherm De test die gebruikt is tijdens het testen is al bijlage toegevoegd. Uitleg over wat het programma doet: Het programma tekent een huisje met een vaste horizontale en verticale lengte van 100. Het aantal te tekenen objecten kan door de gebruiker worden ingegeven via een textbox. Er worden twee testen uitgevoerd. De uitvoer van de twee verschillende tests wordt op het scherm naast elkaar getoond. Er is binnen de organisatie een generiek testplan opgesteld. Dit testplan is voor elke AutoCAD versie te gebruiken. Het enige nadeel van dit testplan is de gebruiker. De gebruiker moet met een stopwatch de tijden opnemen.
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
5 van 22
Test “ een” tekent de objecten direct in de database (tekening). Deze test is een belasting van de cpu van de computer. Test “twee” tekent de objecten in de database (tekening) en doet een update naar het scherm. Deze test belast de cpu van de computer en grafische kaart. Het verschil tussen test “een” en test “twee” is niet alleen de afbeeldingen van het object, maar ook de belasting van de computer. Bij test “een” wordt ook de locatie van de afbeelding na elke loop verhoogd. Bij test “twee” blijft de locatie van de afbeelding hetzelfde. Uitvoer van “Test 1”
Figuur 2 afbeelding van uitvoer test 1 Uitvoer van “Test 2”
Figuur 3 afbeelding van uitvoer test 2
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
6 van 22
2.
Problemen en oplossingen
2.1
Inleiding Tijdens het schrijven van dit programma liep ik tegen een probleem aan. Het uitvoeren van de commando’s gebeurt synchroom. Dat wil zeggen dat de code nog wordt uitgevoerd terwijl het commando gereed is.
2.2
Problemen en oplossingen Tijdens het uitvoeren van de test kwam een probleem naar voren. Tijdens het uitvoeren van de test wordt de code uitgevoerd. Het uitvoeren van deze code gaat op de achtergrond door. Het programma loop gewoon door. Hierdoor is het programma al gereed en aan het eind van de code terwijl op de achtergrond het tekenen van de objecten nog aan de gang is.
2.3
Afweging van elk van die problemen en oplossingen De oplossing voor dit probleem is het zetten van de variabele “userr1” aan het begin van programma op “0”. Door deze aanpassing wordt een variabele “BeginTijdAangepast” weggeschreven. En aan het eind van het programma wordt de variabele “userr1” op “1” gezet. Door deze aanpassing wordt een stukje code geactiveerd wat een variabele “Eindtijdaangepast” aanpast. Door nu het verschil van deze twee variabele te berekenen kan een verschil in tijd worden gekregen.
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
7 van 22
3.
Hardware en software Het testen van deze applicatie gebeurt op een HP laptop met hierop Windows 7 Professional. De versie van AutoCAD is AutoCAD MAP 3D 2013. Deze applicatie is nog niet beschikbaar voor de gebruikers. Sommige gebruikers maken nog gebruik van AutoCAD MAP 3D 2009 en andere gebruikers hebben AutoCAD MAP 3D 2012. Deze applicatie is uitgevoerd op de laptop in verband met alle vereisten voor het laten functioneren van een .NET applicatie. De applicatie is geschreven met Microsoft Visual Basic 2010 Express. Hardware van de laptop Processor: Intel Core i5 CPU 2,60Ghz Geheugen: 8,00 GB Systeem type: Windows 7 64-bit OS AutoCAD MAP 3D 2014 Hardware van de Z400 workstation Processor: Intel Xeon 3,2Ghz Geheugen: 8,00 GB Systeem type: Windows 7 64-bit OS AutoCAD MAP 3D 2014 Hardware “thuis” Processor: Intel i5-3470 3,2Ghz Geheugen: 8,00 GB Systeem type: Windows 7 home 64-bit OS AutoCAD MAP 3D 2014
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
8 van 22
Testresultaten: Test 1
Aantal objecten
Gem.
Z400
1000
8,13
Laptop
1000
10,00
Thuis
1000
8,00
Z400
2500
20,88
Laptop
2500
25,00
Thuis
2500
19,13
Z400
5000
42,13
Laptop
5000
48,13
Thuis
5000
39,00
Tijden in seconden Uitgebreide testresultaten in de bijlagen. De test omvat het uitvoeren van “Test 1”. In deze test wordt AutoCAD opgestart, toolpalette geladen. Hierna wordt de hoeveelheid te tekenen objecten ingevoerd. Na het uitvoeren van deze test verschijnt het aantal seconden in beeld. Hierna wordt AutoCAD afgesloten en opnieuw opgestart voor de volgende test.
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
9 van 22
4.
Stroomschema en code
4.1
Inleiding In dit hoofdstuk komt het stroom schema van het programma en de programmacode aan de orde.
4.2
Stroomschema waaruit de werking van het programma blijkt
Figuur 4 afbeelding van stroomschema
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
10 van 22
Applicatie begint na het opstarten van AutoCAD en wordt aangeboden via een toolpalette “RTDCAD”. Als deze toolpalette niet wordt geladen, dan kan deze worden opgeroepen door op de commandoregel van AutoCAD “GemeenteRotterdam” in te tikken. Hierna wordt de toolpalette geladen. De gebruiker geeft het aantal te tekenen objecten in.1. Hierna selecteert de gebruiker button “Test 1” of “Test 2”. De begin- en eindtijd worden getoond in een listbox. De objecten worden op het scherm getoond.
1
Noot: aantal te tekenen objecten miniaal op 1000 stellen, hierdoor is de computer een langere tijd bezig met het testplan.
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
11 van 22
4.3
Schermafdrukken van dialoogboxen
Figuur 5 afbeelding van toolpalette
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
12 van 22
Verklaring van componenten op toolpalette lblTitel Titel in de toolpalette lblGeefAantalTeTekenenObjecten Display tekst “Geeft aantal te tekenen objecten” 2 txtGeefAantalTeTekenenObjecten Invoeren door gebruiker van aantal te tekenen objecten btnTest1 Uitvoeren van “Test 1” btnTest2 Uitvoeren van “Test 2” lblBeginTijd Display tekst “Begintijd:” lblBeginTijdWijzig Uitvoer geef begintijd weer lblEindTijd Display tekst “Eindtijd:” lblEindTijdWijzig Uitvoer geef eindtijd weer lstTijden Lijst van tijden van de test lblTotaalAantalTest1 Display "Totaal aantal objecten Test1:" lblTotaalAantalTest1Wijzig Uitvoer voor gebruiker (waarde loopt op tijdens test) lblTotaalAantalTest2 Display "Totaal aantal objecten Test2:" lblTotaalAantalTest2Wijzig Uitvoer voor gebruiker (waarde loopt op tijdens test) btnNaarExcel Gebruiker kan waarden naar excelsheet exporteren
2
Het aantal te tekenen objecten is een veelvoud van 8. Elk object bestaat uit 8 lijnen.
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
13 van 22
4.4
Code van het programma De code voor het uitvoeren van de test. De uitleg wat het huidige gedeelte uitvoert staat in het groen met dubbele ‘ aangegeven. Imports System.Windows.Forms Imports Microsoft.Office.Interop.Excel Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.Windows Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Colors Imports Autodesk.AutoCAD.Internal Public Class Benchmark '' Definieren van variabelen Dim BeginTijdAangepast As Date Dim EindtijdAangepast As Date Dim Verschiltijd As TimeSpan Dim SysteemTijdBegin As DateTime = Now Dim SysteemTijdEind As DateTime = Now Dim et As DateTime = Now Dim a As Long Dim teller As Long Dim AantalLoops As Long Dim LengteLijn As Double = 100 Dim xcoord As Double = 0 Dim ycoord As Double = 0 Dim dak_x_coord As Double = (0.5 * LengteLijn) Dim dak_y_coord As Double = (1.5 * LengteLijn) ''Verandering van systeemvariabele userr1. ''Als de systeemvarianle usser1 verandert dan wordt deze code uitgevoerd. Public Sub SysteemVariabeleIsVeranderd(ByVal senderObj As Object, ByVal sysVarChEvtArgs As Autodesk.AutoCAD.ApplicationServices.SystemVariableChangedEventArgs) '' Definieren van variabelen. Dim SysteemVariabeleNaam = sysVarChEvtArgs.Name Dim SysteemVariabeleObject As Object = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable(sysVarChEvtAr gs.Name) Dim SysteemVariabelWaarde = SysteemVariabeleObject.ToString() ''Als userr1 op 0 staat dan wordt de huidige tijd weggeschreven naar variabele SysteemVariabeleNaam en wordt BeginTijdAangepast naar de huidige tijd. ''Hierna wordt een dialoogbox getoond met de totaal aantal seconden. If SysteemVariabeleNaam = "USERR1" Then
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
14 van 22
If SysteemVariabelWaarde = 0 Then BeginTijdAangepast = Now ElseIf SysteemVariabelWaarde = 1 Then EindtijdAangepast = Now Verschiltijd = EindtijdAangepast - BeginTijdAangepast Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("Aantal seconde: " & Verschiltijd.Seconds) End If End If End Sub Private Sub Test1_Click(sender As System.Object, e As System.EventArgs) Handles btnTest1.Click ''Als er een foutieve invoer wordt gegeven dan gaat deze naar Foutafhandeling. On Error GoTo Foutafhandeling ''Variabele userr1 wordt op 0 gezet. AddHandler Autodesk.AutoCAD.ApplicationServices.Application.SystemVariableChanged, AddressOf SysteemVariabeleIsVeranderd Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute("userr1 0" & vbCr, False, False, False) ''Variabele SysteemTijdBegin wordt gevuld met huidige tijd. Dim SysteemTijdBegin As DateTime = Now ''Huidige tijd (Begintijd) wordt in listbox toegevoegd. Me.lstTijden.Items.Add(SysteemTijdBegin.ToString("yyyyMMdd-HHmmss.fffffff")) Me.Update() Me.lblBeginTijdWijzig.Text = (SysteemTijdBegin.ToString("HHmmss.fffffff")) ''Uitvoeren van het script. a = Me.txtGeefAantalTeTekenenObjecten.Text For teller_test1 = 1 To a Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute _ ("Line 150,0 250,0 250,100 150,100 150,0 250,100 200,141.7 150,100 250,0 ", False, False, False) Autodesk.AutoCAD.ApplicationServices.Application.UpdateScreen() Me.lblTotaalAantalTest1Wijzig.Text = teller_test1 * 8 Me.Update() Next ''Esc commando na tekenen van lijn.
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
15 van 22
Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute(" ", False, False, False) ''Zoom extents commando. Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute("Zoom Extents" & vbCr, True, False, True) ''Huidige tijd (Eindtijd) wordt in listbox toegevoegd. Dim SysteemTijdEind As DateTime = Now ''Huidige tijd (Begintijd) wordt in listbox toegevoegd. Me.lstTijden.Items.Add(SysteemTijdEind.ToString("yyyyMMdd-HHmmss.fffffff")) Me.Update() Me.lblEindTijdWijzig.Text = (SysteemTijdEind.ToString("HHmmss.fffffff")) ''Variabele userr1 wordt op 1 gezet. Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute("userr1 1" & vbCr, False, False, False) Exit Sub ''Foutafhandeling na foutieve invoer door gebruiker. Foutafhandeling: Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("Verkeerde waarde ingevuld") Resume Next End Sub Private Sub Test2_Click(sender As System.Object, e As System.EventArgs) Handles btnTest2.Click ''Als er een foutieve invoer wordt gegeven dan gaat deze naar Foutafhandeling. On Error GoTo Foutafhandeling ''Variabele SysteemTijdBegin wordt gevuld met huidige tijd. Dim SysteemTijdBegin As DateTime = Now ''Huidige tijd (Begintijd) wordt in listbox toegevoegd. Me.lstTijden.Items.Add(SysteemTijdBegin.ToString("yyyyMMdd-HHmmss.fffffff")) Me.Update() Me.lblBeginTijdWijzig.Text = (SysteemTijdBegin.ToString("HHmmss.fffffff")) ''Variabele userr1 wordt op 0 gezet. AddHandler Autodesk.AutoCAD.ApplicationServices.Application.SystemVariableChanged, AddressOf SysteemVariabeleIsVeranderd
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
16 van 22
Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute("userr1 0" & vbCr, False, False, False) ''Uitvoeren van het script. a = Me.txtGeefAantalTeTekenenObjecten.Text For teller_test2 = 1 To a Step 5 Autodesk.AutoCAD.ApplicationServices.Application.UpdateScreen() Toevoegen.Lijn(xcoord, ycoord, LengteLijn, ycoord) Toevoegen.Lijn(LengteLijn, ycoord, LengteLijn, LengteLijn) Toevoegen.Lijn(LengteLijn, LengteLijn, xcoord, LengteLijn) Toevoegen.Lijn(xcoord, LengteLijn, xcoord, ycoord) Toevoegen.Lijn(xcoord, ycoord, LengteLijn, LengteLijn) Toevoegen.Lijn(xcoord, LengteLijn, LengteLijn, ycoord) Toevoegen.Lijn(xcoord, LengteLijn, dak_x_coord, dak_y_coord) Toevoegen.Lijn(LengteLijn, LengteLijn, dak_x_coord, dak_y_coord) LengteLijn = LengteLijn + 1 xcoord = xcoord + 1 ycoord = ycoord + 1 dak_x_coord = dak_x_coord + 1 dak_y_coord = dak_y_coord + 1 Autodesk.AutoCAD.ApplicationServices.Application.UpdateScreen() Me.lblTotaalAantalTest2Wijzig.Text = teller_test2 * 8 Me.Update() Next ''Zoom extents commando. Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute("Zoom Extents" & vbCr, True, False, True) ''Variabele userr1 wordt op 1 gezet. Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocu ment.SendStringToExecute("userr1 1" & vbCr, False, False, False) ''Variabele SysteemTijdBegin wordt gevuld met huidige tijd. Dim SysteemTijdEind As DateTime = Now ''Huidige tijd (Eindtijd) wordt in listbox toegevoegd. Me.lstTijden.Items.Add(SysteemTijdEind.ToString("yyyyMMdd-HHmmss.fffffff")) Me.Update() Me.lblEindTijdWijzig.Text = (SysteemTijdEind.ToString("HHmmss.fffffff")) ''Foutafhandeling na foutieve invoer door gebruiker. Foutafhandeling: Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("Verkeerde waarde ingevuld") Resume Next End Sub
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
17 van 22
Private Sub Benchmark_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub Private Sub btnNaarExcel_Click(sender As System.Object, e As System.EventArgs) Handles btnNaarExcel.Click 'Gebruik van SysteemTijdBegin en et moet als ByRef of als ByVal. Me.lstTijden.Text = et 'Laat de waarden die eruit komen wegschrijven naar een excel sheet. Rekenblad.Koppelen() Dim wb = x.Workbooks.Add() wb.SaveCopyAs("c:\temp\effe\" & Me.txtGeefAantalTeTekenenObjecten.Text & ".xls") ''Rekenblad cellen vullen met titel en waarden. Rekenblad.Schrijven(1, 1, "Datum") Rekenblad.Schrijven(1, 2, "Begintijd") Rekenblad.Schrijven(1, 3, "Eindtijd") Rekenblad.Schrijven(1, 4, "Totaal Tijd") Rekenblad.Schrijven(2, 1, SysteemTijdBegin.ToString("dd-MM-yyyy")) Rekenblad.Schrijven(2, 2, Me.lblBeginTijdWijzig.Text) Rekenblad.Schrijven(2, 3, Me.lblEindTijdWijzig.Text) Rekenblad.Schrijven(2, 4, "=C2-B2") 'Kopie van het excel bestand opslaan als .... in c:\temp\effe dir. wb.SaveCopyAs("c:\temp\effe\" & Me.txtGeefAantalTeTekenenObjecten.Text & ".xls") End Sub End Class
4.5
Laden van toolpallette Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.Windows Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Colors Imports System.Windows.Forms
Public Module Start Dim frmPalettes As PaletteSet
Public Sub Palette() If frmPalettes = Nothing Then frmPalettes = New PaletteSet("RTDCAD")
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
18 van 22
‘’frmPalettes.Add("Palette 1", New Palette1) ‘’frmPalettes.Add("Systeem Tijd", New SysteemTijd_0001) ‘’frmPalettes.Add("Tijd Meten", New TijdMetenAangepast) frmPalettes.Add("Benchmark", New Benchmark) End If frmPalettes.Visible = True In dit gedeelte wordt de toolpallete geladen. In deze test wordt deze geladen bij het starten van AutoCAD End Sub End Module
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
19 van 22
5.
Reflectie Ik heb tijdens deze dagen van dit traject veel geleerd. Van zowel basale AutoCAD commando’s (cursus optimalisatie) tot het programmeren in VB.NET. Ik hoop dat ik tijdens mijn werkzaamheden veel gebruik mag gaan maken van VB.NET.
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
20 van 22
6.
Figurenlijst Figuur 1 afbeelding van Europoint complex ..................................................................... 4 Figuur 2 afbeelding van uitvoer test 1 .............................................................................. 6 Figuur 3 afbeelding van uitvoer test 2 .............................................................................. 6 Figuur 4 afbeelding van stroomschema ......................................................................... 10 Figuur 5 afbeelding van toolpalette................................................................................ 12
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
21 van 22
7.
Bijlagen Uitgebreide testresultaten
Test 1
Aantal objecten
Gem.
Z400
1000
8
8
8,13
Laptop
1000 10 10 10 10 10 10 10 10
10,00
Thuis
1000
8
8,00
Z400
2500 21 20 21 21 22 20 21 21
20,88
Laptop
2500 25 25 25 25 25 25 25 25
25,00
Thuis
2500 20 19 19 19 19 19 19 19
19,13
Z400
5000 44 43 42 42 41 44 41 40
42,13
Laptop
5000 49 48 47 48 48 49 48 48
48,13
Thuis
5000 39 39 39 39 39 39 39 39
39,00
8
8 8
8 8
8 8
9 8
8 8
8 8
Tijden in seconden
Scriptie
Auteur
Datum
Pagina
M. van Walraven
25 juni 2013
22 van 22
