Eindverslag - CAD College

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
<CommandMethod("GemeenteRotterdam")> 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

Download Report