De LEGENDA CREATOR. Eindopdracht: AutoCAD Certified Engineer (System Manager)

De “LEGENDA CREATOR”

Eindopdracht: AutoCAD Certified Engineer (System Manager)

Auteur: Begeleiding:

L.W. Kaandorp Ir. R. Boeklagen

Castricum 01 november 2003

Voorwoord Sinds 1989 werk ik als AutoCAD tekenaar/constructeur bij Vialis Verkeer & Mobiliteit, nader te noemen Vialis. Vanaf eind 2002 ben ik tevens AutoCAD coördinator van de Business Unit Verkeersregelinstallaties nader te noemen BU VRI. Als AutoCAD coördinator ben ik verantwoordelijk voor het reilen en zeilen van de AutoCAD werkzaamheden binnen Vialis. Met deze opleiding verwacht ik meer kennis te vergaren over VBA en AutoCAD en die kennis te gebruiken om bruikbare programma’s te maken en er op die manier voor te zorgen dat het AutoCAD tekenen efficiënter en eenvoudiger wordt. Met deze afstudeeropdracht hoop ik een mooie manier gevonden te hebben voor het snel en foutloos tekenen van een legenda. Met dit verslag doe ik een poging te beschrijven hoe ik tot de “Legenda creator” ben gekomen. Ook wil ik hier de volgende personen bedanken voor het tot stand komen van dit programma. • Ronald Boeklagen (CadCollege) voor het mij bijbrengen van de benodigde kennis van AutoCAD en VBA en voor zijn begeleiding. • Jochem Sobering (Vialis) voor zijn altijd kritische opmerkingen. • Daphne de Graaf en Laura Kaandorp voor het “als leek”kritisch lezen van het verslag. • De tekenaars/constructeurs (Vialis) voor het kenbaar maken van hun eisen en wensen voor een programma voor het tekenen van de legenda en voor de eerste bèta test.

Castricum, november 2003 Remo Kaandorp

2

Inhoudsopgave Voorwoord … … … … … … … … … … … … … … … … … ..… … ...… … …

2

Inhoudsopgave … … … … … … … … … … … … … … … ..… … … ..… …

3

Inleiding … … … … … … … … … … … … … … … … … … … … ..… … … …

4

1.1 1.2

Vialis Verkeer & Mobiliteit bv … … … … … … … … … … … … … … … Het bedrijf … … … … … … … … … … … … .… … … … … … … … … … ..… . Mijn rol binnen Vialis … … … … … … … … … … … … … .… … … … … …

5 5 5

2.1 2.2

Aanleiding … ...… … … ...… … … … … … … … … … … … … … … … … … Waarom een legenda? ..… … .… … … … … … … … … … .… … … … ..… Een standaard legenda versus een specifieke legenda … … … ..…

6 6 6

3.1

De huidige situatie … … … .… … … … … … … … … … … … .… … … … Hoe doen we het nu? … ..… … … … … … … … … … … … .… .… … … …

7 7

4.1 4.2 4.3

De doelstelling … … … … … … … … … ..… … … … … … … … ..… .… … De wensen van de tekenaars … … … … … … … … … … … … … … … .. De wensen van de gebruikers van de tekeningen … … … ..… … … . Mijn eigen wensen … … … … … … … … … … … … … … … … … … … … .

8 8 8 8

5.1 5.2

De problemen … … … … … … … .… … … … … … … … … … … … .… … . INI file of een tekstfile? … … ..… … … … … … … … … … … … … … … … De volgorde van de legenda … … … … … … … .… … … … … … ..… … .

9 9 9

6.1 6.2 6.3

Het programma … … … … … … … … … … … … … … .… … … … … … … De werking van het programma voor de tekenaars … … … … ..… … De beheer functie binnen het programma … … … … … .… … … … .… De help file … … … … … … … … … … … … … … … … … … … … … … … ..

11 11 11 12

7.1 7.2

De VBA code … … … … … … … … … … … … … … … … … … … … … … . De VBA code voor het zetten van de legenda … … … … … … … … .. De VBA code voor de beheer functie … … … … … .… … … … … ..… ..

14 14 15

8.

Het stroomschema … … … … … … … … … … … … … … … … … ..… …

18

9.

Installatie … … … … … … … … … … … … … … … … … … … … … … ..… . Normale installatie … … … … … … … … … … … … … … … … .… … … … Installatie op een kaal/nieuw AutoCAD station … … … … … … … … ..

19 19 19

10.

Conclusie … … … … … … … … … … … … … … … … … … … … … … … …

20

bijlage 1

Overzichtstekening met symbolen en legenda-item namen ...

bijlage 2

Situatietekening … … … … … … … … … … … … … … … … … … … … … … …

1.

2.

3.

4.

5.

6.

7.

9.1 9.2

3

Inleiding Sinds een jaar is bij Vialis een legenda als vast onderdeel ingevoerd op de situatietekeningen (zie bijlage 2). Voor die tijd werd er soms, als een klant erom vroeg, wel een legenda toegevoegd maar in 99% van de gevallen niet. Het invoeren van de legenda is mijn verantwoordelijkheid geworden omdat ik ook ongeveer een jaar de AutoCAD coördinator bij Vialis ben. We zijn vorig jaar begonnen met het handmatig samenstellen van de legenda in de tekening. Dit was een tijdrovend klusje daar we nogal wat symbolen gebruiken. Na dit een tijdje aangezien te hebben rees bij mij de vraag of dit niet geautomatiseerd kon worden. Het jaar daarvoor was ik naar een driedaagse cursus “Visual Basic for Applications“ voor beginners geweest, dus wist ik dat het technisch mogelijk moest zijn. Ik had wel het vermoeden dat dit met die beperkte VBA kennis niet zou gaan lukken en ben op zoek gegaan naar een verdere verdieping van mijn kennis over VBA en AutoCAD. Die heb ik gevonden in de opleiding tot AutoCAD system manager. Samen met de begeleider heb ik als afstudeeropdracht gekozen voor een programma om legenda’s te tekenen. Het programma heb ik “Legenda creator” genoemd. De “Legenda creator” is een programma geworden dat op een eenvoudige manier een legenda toevoegt aan de situatietekening.

4

1.

Vialis Verkeer & Mobiliteit bv

1.1

Het bedrijf: Vialis levert consultancy, diensten en systemen voor het optimaal afwikkelen van verkeersstromen. Of dat nu op de weg, voor rijdend verkeer of geparkeerde voertuigen, op industrieterreinen of op de rails is. Het aanleveren van functionaliteit en deze beschikbaar maken, het leveren van verkeerskundige consultancy en het als integrator bij elkaar brengen van systemen zijn de belangrijkste competenties van Vialis. Deze worden gebruikt in de marktgebieden verkeer, parkeren en railvervoer. De holding Vialis is een onderdeel van VolkerWessels en is voortgekomen uit de samenvoeging van Nederland Haarlem, Volker Stevin Systems en NMA Railway Signalling. Deze holding bestaat uit Vialis Verkeer & Mobiliteit bv (verkeer en parkeren), Vialis NMA Railway Signalling bv en Vialis NMA Railsystems bv (beiden rail). De allround ervaring en kennis die Vialis in huis heeft maakt het mogelijk om niet alleen deelprojecten, maar ook turn-key projecten uit te voeren. De inbedding in het VolkerWessels -concern garandeert dat alle noodzakelijke disciplines daarvoor in huis zijn. Zo kan Vialis in combinatie met haar VolkerWessels -partners in publiekprivate samenwerkingsverbanden zelfs zorgdragen voor de financiering en volledige realisatie. Vialis is daarmee meer dan een consultant en producten- en systemenleverancier. Vialis is een serviceprovider, die volledig op eigen kracht projecten ontwikkelt, realiseert en financiert en daarna ook de service en het onderhoud voor haar rekening neemt. Vialis kan deze service waarmaken aangezien zij beschikt over een landelijk werkende serviceorganisatie en een meldkamer die 24 uur per dag, 365 dagen per jaar, tot de beschikking van haar opdrachtgevers en afnemers staat. Vialis heeft alle kennis en disciplines in huis om complexe projecten tot een goed einde te brengen. Specialisten op het gebied van onderzoek, advies, systeemontwerp, engineering, productie, installatie, onderhoud en service werken in projectteamverband samen om het beste resultaat voor de opdrachtgever te bereiken. Dankzij deze methodische aanpak zijn zowel kleine als omvangrijke projecten bij Vialis in goede handen. Met de oplossingen die Vialis ontwikkelt en realiseert voor alle mobiliteits- en parkeervraagstukken blijft mobiliteit bewegen.

1.2

Mijn rol binnen Vialis: Binnen de holding Vialis werk ik bij Vialis Verkeer & Mobiliteit. Vialis Verkeer & Mobiliteit is ook weer opgedeeld in diverse business units. Mijn afdeling valt onder de business unit Verkeersregelinstallaties. Wij leveren voornamelijk Verkeersregelautomaten. Voor de verkeersregelingen zijn situatietekeningen nodig waarop het kruispunt getekend is met daarop de lusconfiguratie en de diverse uitleggers, masten, lantaarns en drukknoppen. Als ik niet bezig ben met zaken die onder mijn functie als coördinator vallen teken ik deze situatietekeningen.

5

2.

Aanleiding

2.1

Waarom een legenda?: Bij de BU VRI van Vialis worden verschillende soorten tekeningen gemaakt in AutoCAD: • Situatietekeningen (kruispunten, op- en afritten en bijzondere projecten) • Elektrotechnische tekeningen • Mechanische tekeningen De “Legenda creator” is bedoeld voor de situatietekeningen. In de situatietekeningen worden veel verschillende symbolen gebruikt: voor de lantaarns, drukknoppen, verkeerskasten, rateltikkers etc. Niet alle klanten kennen de betekenis van alle symbolen. En deze klanten hadden dan ook behoefte aan een verklaring van de gebruikte symbolen. Het was mogelijk om bij ons een tekening op te vragen waarop alle symbolen met hun verklaring stonden (zie bijlage 1), maar omdat de klanten de situatietekeningen ook vaak op straat raadpleegden was het niet echt handig om steeds de tekening met de verklaringen bij de hand te hebben en was er dus behoefte aan een legenda als onderdeel van de situatietekening.

2.2

Een standaard legenda versus een specifieke legenda: In eerste instantie werd er gedacht aan een standaard legenda die, ongeacht of de symbolen wel of niet gebruikt werden, in de situatietekening bijgevoegd werd. Het probleem daarmee was dat er ondertussen al een flink lange legenda was ontstaan. In grote tekeningen zou dat nog wel passen maar we maken ook tekeningen die in een A3 formaat staan en dan is er al snel ruimtegebrek. Een ander probleem was dat de gebruikers van de tekening dan goed moesten zoeken naar een bepaald symbool en de bijbehorende verklaring omdat er ook een hoop overbodige symbolen tussen stonden. De oplossing hiervoor was natuurlijk een legenda met alleen de symbolen erin die daadwerkelijk gebruikt worden in de tekening. Daar hadden de tekenaars weer een probleem mee vanwege het feit dat zij nu bij elke nieuwe situatietekening of wijziging moesten gaan kijken welke symbolen er gebruikt zijn en vervolgens het bijbehorende legenda-item toe moesten voegen aan de legenda. Een behoorlijk arbeidsintensieve klus van soms wel tien minuten tot een kwartier, en dat bij een totale tekentijd per situatie tekening van twee tot vier uur.

Alles in ogenschouw genomen, was er maar één conclusie mogelijk; “Dit moet geautomatiseerd worden”. Aldus geschiedde… ..

6

3.

De huidige situatie

3.1

Hoe doen we het nu?: Vanaf 1 januari 2003 is bij Vialis de legenda op elke situatietekening verplicht. Ik heb toen standaard legendablokken gemaakt die door middel van een iconenmenu (zie figuur 1) ingeroepen kunnen worden in de AutoCAD tekening. Ook heb ik een overzicht (zie bijlage 1) gemaakt waarop de namen stonden van de diverse legendablokken. De tekenaars moesten toen met het overzicht in de hand de situatietekening zeer zorgvuldig bekijken en de gebruikte blokken markeren op het overzicht. Deze manier van werken is nogal omslachtig en de kans op fouten is erg groot. Het tekenen van een legenda werd daarom bij wijzigingen nogal eens “vergeten”. Er is nog geprobeerd met verschillende standaard legenda’s te werken, er vielen echter maar weinig situatietekeningen te vangen in een standaard. Met deze werkwijze stonden er nogal eens overbodige symbolen in de legenda. Een groot voordeel van de standaard ingevoerde legenda was wel dat de standaardisatie van de gebruikte symbolen min of meer verplicht werd. Nu nog een makkelijke manier om een legenda te tekenen. figuur 1

7

4.

De doelstelling

4.1

De wensen van de tekenaars: De volgende stap was het inventariseren van de wensen van de tekenaars en de gebruikers van de tekeningen. Voor de tekenaars waren de wensen vrij simpel. Het moest een programma worden dat eenvoudig in het gebruik was en waarbij ze zo min mogelijk hoefden te klikken of in te vullen. Tevens zou het erg handig zijn als de “Legenda creator”ook de rateltikkers en dubbelrood lantaarns zou herkennen. De rateltikkers en dubbelrood lantaarns werden namelijk niet altijd als een symbool getekend, maar werden vaak aangeduid met de afkortingen RT (rateltikker) of DR (dubbelrood lantaarn). Gelukkig was het in VBA mogelijk om op zoek te gaan naar die afkortingen in de tekening en die te vervangen door een blok. Omdat de afkortingen door de verschillende tekenaars nogal al eens met verschillende teksthoogtes werden getekend en de symbolen RT en DR altijd identiek zijn volgt nog een extra voordeel: standaardisatie. Tevens wilden de tekenaars dat de “Legenda creator” ook de oude bloknamen zou herkennen in oude tekeningen, dit omdat de bloknamen niet altijd gelijk zijn geweest. Gelukkig werk ik al bij Vialis vanaf de eerste prille stapjes op AutoCAD gebied en ben daardoor in het bezit van alle symboolbibliotheken. Zodoende was ik op de hoogte van alle ooit gebruikte bloknamen.

4.2

De wensen van de gebruikers van de tekeningen: De gebruikers van de tekeningen wilden dat de legenda steeds in dezelfde volgorde getekend zou worden. Niet alle tekenaars hielden er dezelfde volgorde op na bij het handmatig tekenen van de legenda. Verder zou het erg prettig zijn als ze er op konden vertrouwen dat de legenda altijd klopt, zodat ze de legenda niet elke keer hoefden te controleren.

4.3

Mijn eigen wensen: Zelf had ik als voornaamste doelstelling dat het programma onderhoudsarm en eenvoudig in het gebruik zou zijn. Normaal gesproken ben ik als coördinator de enige persoon die een nieuw blok toevoegt aan de binnen Vialis gebruikte blokken. Maar omdat we binnen Vialis de kenniskritische personen willen beperken moest er op een eenvoudige manier een nieuw symbool toe te voegen zijn aan de legenda zodat in de toekomst het aanpassen van de legenda-items ook door anderen gedaan kan worden.

8

5.

De problemen

5.1

INI file of een tekstfile: Tijdens het maken van het programma liep ik tegen het probleem aan dat er een lijst moest komen die aan de code kon vertellen welk legenda-item bij welk blok hoorde. Die lijst zou ik natuurlijk in de code kunnen zetten maar dat zou betekenen dat als iemand ooit een blok of legenda-item zou willen toevoegen dat het toevoegen dan in de code zou moeten gebeuren. Dat leek me niet de juiste manier. Ik heb toen besloten om de lijst in een aparte file te zetten. Dit kon op meerdere manieren: • in een database • in een INI file • in een normale tekstfile De database optie was makkelijk uit te sluiten, die zou voor dit doeleinde veel te complex zijn. Dit heb ik verder ook niet geprobeerd. Maar de keuze tussen een INI file en een normale tekstfile lag iets genuanceerder, daarom heb ik ook beide manieren geprobeerd. De INI file: Ik heb de “Legenda creator”eerst gemaakt met een INI file (zie figuur 2) Deze manier had als nadeel dat je eerst naar de blokken in de tekening moest zoeken en bij een gevonden blok de code moest laten controleren of dat blok voorkwam in de INI file. Omdat van tevoren niet bekend is welk blok als eerste gevonden zou worden resulteerde dit in een legenda waarbij het niet te voorspellen was in welke volgorde de legenda zou verschijnen. Dit heb ik opgelost door eerst in de INI file te kijken en aan de hand daarvan in de tekening te kijken of het blok gebruikt werd, maar op deze manier gebruik je de INI file eigenlijk als een tekstfile. Zo vallen de voordelen van het gebruik van een INI file weg. figuur 2

9

De tekstfile: Daarna heb ik een tekstfile geprobeerd (zie figuur 3), die ingelezen wordt door het programma. Aan de hand van die ingelezen gegevens gaat het programma in de tekening kijken of de ingelezen bloknaam voorkomt, waarna hij het bijbehorende legenda-item in de tekening plaatst. Voordeel ten opzichte van een INI file is dat deze tekstfile beter leesbaar is en qua bestandsgrootte en lengte van de tekst een stuk kleiner is. figuur 3

Voor de duidelijkheid, in de eerste twee regels van de tekstfile (figuur 3) staat hetzelfde als in het hele stuk van de INI file (figuur 2). Ik heb geprobeerd de verschillen die voor het schrijven van dit programma belangrijk waren proberen weer te geven in een schema (zie figuur 4). Daarmee heb ik aan proberen te geven dat het gebruik van een normale tekstfile voor mij nu het meest logisch was. De mate van belang (die ik er aan hechtte) is van links naar rechts aangegeven. figuur 4 INI file Tekstfile

volgorde

leesbaarheid

grootte

toevoegen

aanpasbaar

snelheid

1 10

3 9

4 8

7 8

8 7

9 6

Ik heb dus na de twee verschillende manieren geprobeerd te hebben uiteindelijk gekozen voor de normale tekst file. Vooral ook omdat het grootste voordeel van een INI file voornamelijk ligt in het in een keer aan kunnen spreken van een “key” of “sectie”en dat die mogelijkheid bij dit programma niet gebruikt zal worden. Het grootste nadeel van een tekstfile zou de snelheid zijn, alleen is die nu nog zo snel dat het niet te meten is.

10

6.

Het programma

6.1

De werking van het programma voor de tekenaars: Er is geprobeerd om het plaatsen van een legenda zo simpel mogelijk te houden. In AutoCAD is er een extra knop gemaakt waarmee de tekenaar de “Legenda creator”start. (zie figuur 5) figuur 5

Daarna hoeft de tekenaar alleen nog maar op de knop “Zet legenda”te drukken. Vervolgens vraagt de “Legenda creator” om een punt in de tekening aan te geven waarna op die positie de legenda getekend zal gaan worden.

6.2

De beheer functie binnen het programma: Het is ook mogelijk om aan de tekstfile regels toe te voegen of een legenda-item te verplaatsen. Daarvoor heb ik scherm gemaakt waarmee dat op eenvoudige wijze kan. (zie figuur 6) figuur 6

11

In dit scherm zijn een diverse zaken mogelijk: • • • •

een regel toevoegen. een regel “knippen” een regel ”plakken”. een regel “deleten”.

Een regel toevoegen kan door middel van de 3 tekstboxen in te vullen en dan op de knop “toevoegen”te klikken. Standaard zal de nieuwe regel als laatste regel in de tekstfile verschijnen. Als er een regel in de listbox geselecteerd wordt zal de nieuwe regel boven de geselecteerde regel toegevoegd worden. Een regel knippen kan door eerst een regel in de listbox te selecteren en dan op de knop “knippen”te drukken. Dan zal de geknipte regel in de 3 tekstboxen verschijnen, waarna de regel dan ergens “geplakt”kan worden. Een regel plakken werkt in principe hetzelfde als een nieuwe regel toevoegen. Er dient wel eerst een regel geknipt te worden. Een bestaande regel kun je deleten als je eerst een regel selecteert in de listbox en daarna op de knop “delete” drukt. Er is ook nog een kop “Clear” die dient om een selectie in de listbox ongedaan te maken. De knop “Open INI file opnieuw” is als extra ingebouwd zodat er een mogelijkheid is om de “oude”tekstfile opnieuw in te lezen. Dit kan handig zijn als je bijvoorbeeld per ongeluk op de “Delete”knop gedrukt hebt. Als er op de ‘save naar INI file’- knop gedrukt wordt bewaard het programma de nieuwe file over de oude heen. Er wordt wel een back-up gemaakt van de oude tekstfile. De naam van de back-up file is dezelfde als de legenda.ini met als toevoegsel de datum en de tijd. “Legenda.ini” wordt “Legenda05-11-2003 13-5209.ini” . Op deze manier kunnen we altijd terug naar een vorige versie. Deze beheer functie is ingebouwd zodat het toevoegen van een nieuw legenda-item door meerdere mensen binnen Vialis gedaan kan worden. Ik ben er nog niet uit of ik dit beheer scherm met een wachtwoord moet afschermen en die aan de eventuele beheerders kenbaar moet maken of dat elke tekenaar dit aan zou mogen passen. Ik neig naar afscherming met een wachtwoord omdat anders de standaardisatie misschien in gevaar zou kunnen komen. Dit zal een punt worden in de eerstkomende vergadering met de diverse tekenaars, aan de hand daarvan zal ik beslissen of iedereen de tekstfile op deze manier aan mag passen of dat alleen een beperkte groep die rechten gaat krijgen. Mocht het laatste van toepassing worden dan wordt waarschijnlijk de tekstfile ook op een plek gezet waar niet iedereen rechten heeft. (bijvoorbeeld de Program Files directory)

6.3

De help file Op het beheers scherm staat ook een knop met een vraagteken erop. Deze knop zal de helpfile openen (zie figuur 7). De helpfile is een normaal VBA userform waar ik de diverse knoppen met hun uitleg in heb gezet. Ik ben mij bewust van het feit dat een help file normaal gesproken met een programma als HTML HELP gemaakt zou moeten worden. Dat zou voor mij betekenen dat ik eerst dat programma zou moeten

12

doorgronden voordat ik een help file zou kunnen maken. Ik sluit niet uit dat ik dat in de toekomst toch ga doen. Tot die tijd moeten de gebruikers zich maar tevreden stellen met deze help pagina. Op dit userform heb ik alle in het beheer scherm gebruikte knoppen gezet met daarbij een uitleg over hoe de functie werkt en waarvoor hij dient.

figuur 7

13

7.

De VBA code

7.1

De VBA code voor het zetten van de legenda: In het volgende stukje code zoekt de “Legenda creator” naar de teksten RT en DR om die te vervangen voor een blok.

************************************code*************************************** 'zoekt naar teksten om blokken van te maken en wist de teksten For Each elementje In ThisDrawing.ModelSpace If elementje.ObjectName = "AcDbText" Then Set tekst = elementje Select Case tekst.TextString Case "RT", "Rt", "rt" p = tekst.InsertionPoint ‘bepaalt het insertionpoint van het blok p(0) = p(0) + 1.16 p(1) = p(1) + 0.7 tekst.Delete Call ThisDrawing.ModelSpace.InsertBlock(p, "RT.dwg", 1, 1, 1, 0) Case "DR", "Dr", "dr" p = tekst.InsertionPoint ‘bepaalt het insertionpoint van het blok p(0) = p(0) + 1.17 p(1) = p(1) + 0.7 tekst.Delete Call ThisDrawing.ModelSpace.InsertBlock(p, "DR.dwg", 1, 1, 1, 0) End Select End If Next elementje

*********************************einde code************************************

In het volgende stukje code wordt de legenda gecreëerd. Eerst opent het programma de “INI”file, waar hij dan doorheen gaat lopen, daarna gaat het programma kijken of het blok gebruikt is. Als in de tekstfile een blok wordt gevonden dat in de tekening gebruikt is zal het programma een legenda-item tekenen en op zoek gaan naar het volgende blok.

************************************code*************************************** 'kijkt of de legenda file bestaat en loopt die door en zoekt dan of het block in de tekening gebruikt is If CheckFileExists(LegendaFile) = True Then 'zet de legenda kop Call ThisDrawing.ModelSpace.InsertBlock(p1, "L000.dwg", 1, 1, 1, 0) fh = FreeFile() Open LegendaFile For Input As #fh Do Until EOF(fh) Line Input #fh, tmp 'Split de gevonden regel op het pipeline karakter Tokens = Split(tmp, "|")

14

If UBound(Tokens) = 2 Then 'Split de vorige split weer op komma’s Criteria = Split(Tokens(1), ",") For K = 0 To UBound(Criteria) On Error GoTo err 'Kijkt of het blok in de tekening staat If Not IsObject(ThisDrawing.Blocks.Item(UCase(Trim(Replace(Criteria(K), Chr(9), ""))))) Then Else p1(0) = X p1(1) = p1(1) - 7.7 'Tekent het legenda-item Call ThisDrawing.ModelSpace.InsertBlock(p1, Tokens(0), 1, 1, 1, 0) Exit For End If Next End If Loop Close #fh Else MsgBox "Het bestand: '" & LegendaFile & "' is niet gevonden!" & vbNewLine & "Bel de Coördinator” End If Exit Sub err: Select Case err.Number Case –2147352567 ‘er is tijdens de routine op escape gedrukt Msgbox “Invoer onderbroken” Exit sub Case -2145386476 ' blok niet gevonden Resume Next Case -2145386445 ' legenda dwg object niet gevonden MsgBox Tokens(0) & " file niet gevonden" Resume Next Case Else MsgBox err.Description End Select End Sub

*********************************einde code************************************ 7.2

De VBA code voor de beheer functie: De functie selectit en Getselected zijn voor het aanpassen van de “INI”file erg belangrijk, omdat deze functies er voor zorgen dat er een regel in de file kan worden tussengevoegd.

************************************code*************************************** Function selectit(waarde As Boolean) 'zorgt dat je een regel in de listbox kan selecteren For intcnt = 0 To LbLegenda.ListCount - 1 LbLegenda.Selected(intcnt) = waarde Next intcnt End Function

15

Function Getselected() As Integer Dim intcnt Getselected = -1 'pakt de geselecteerde regel For intcnt = 0 To LbLegenda.ListCount - 1 If LbLegenda.Selected(intcnt) = True Then Getselected = intcnt Exit For End If Next intcnt End Function

*********************************einde code************************************ Met de functie OpenIniFile worden de gegevens uit de tekstfile ingelezen en in de listbox geplaatst (3 columns) .

************************************code*************************************** Function OpenIniFile() Dim I As Integer Dim ITeller As Integer Dim fh As Integer Dim Tokens As Variant Dim NRowNo As Integer Me.LbLegenda.Clear 'kijkt of de INI file bestaat If CheckFileExists(LegendaFile) = True Then 'Toont de gegevens uit de INI file in de listbox fh = FreeFile() Open LegendaFile For Input As #fh ITeller = 0 Do Until EOF(fh) Line Input #fh, tmp ‘Split de gevonden regels met het pipeline karakter Tokens = Split(tmp, "|") If UBound(Tokens) = 2 Then NRowNo = Me.LbLegenda.ListCount Me.LbLegenda.AddItem For I = LBound(Tokens) To UBound(Tokens) Me.LbLegenda.List(NRowNo, I) = Trim(Replace(Tokens(I), vbTab, "")) Next ITeller = ITeller + 1 End If Loop Close #fh Else MsgBox "bestand: '" & LegendaFile & "' niet gevonden" & vbNewLine & "Info toestel 023-5189(144)" frmLegendaAanpassen.Hide End If End Function

*********************************einde code************************************

16

En met de functie CmdSaveNaarINIfile wordt de “INI”file bewaard en wordt er een back-up gemaakt van de vorige versie. ************************************code*************************************** Private Sub CmdSaveNaarINIfile_Click() Dim OldName, NewName, DName Dim fh As Integer ‘maakt de toevoeging aan de filenaam DName = Now DName = Replace(DName, ":", "-") If CheckFileExists(LegendaFile) = True Then OldName = LegendaPad & "Legenda.ini": NewName = LegendaPad & "Legenda" & DName & ".ini" 'maak nieuwe filenaam. Name OldName As NewName ' maak een back-up file 'Saved de listbox naar de INI File fh = FreeFile() Open LegendaFile For Output As #fh For X = 0 To LbLegenda.ListCount - 1 Print #fh, LbLegenda.List(X) & vbTab & "|" & Me.LbLegenda.List(X, 1) & vbTab & "|" & Me.LbLegenda.List(X, 2) Next Close #fh Else MsgBox "bestand: '" & LegendaFile & "' niet gevonden" & vbNewLine & "Info toestel 023-5189(144)" End If frmLegendaAanpassen.Hide End Sub

*********************************einde code************************************

17

8.

Het stroomschema figuur 8 start ja

geef invoerpunt

nee

ja

open "INI" file

nee

ja

blok gevonden

nee

ja

ja

teken legenda-item

einde

Stroomschema ““LEGENDA CREATOR””

18

9.

Installatie

9.1

Normale situatie: De “Legenda creator” is onderdeel van de bij Vialis gebruikte acad.dvb file. Binnen Vialis werken alle tekenaars in principe lokaal, om niet afhankelijk te zijn van het netwerk. Ik heb wel een supportplek op het netwerk waar ik de menu files, de symbolenbibliotheek en de acad.dvb file heb staan. Als een tekenaar AutoCAD opent dan zorgt een vb scriptfile dat hij de laatst gewijzigde files van het netwerk kopieert naar zijn lokale directory’s. Als het netwerk plat ligt dan krijgt de tekenaar een melding dat het niet zeker is of hij werkt met de laatste versie van de diverse files maar dat hij toch door kan werken met de menu’s, blokken en dvb file van de laatste keer dat hij AutoCAD opgestart had. Zodra de laatste acad.dvb file van het netwerk naar de lokale directory gekopieerd wordt zal de “Legenda creator” automatisch als een knopje in het menu van de tekenaar verschijnen.

9.2

Installatie op een kaal/nieuw AutoCAD station: Voor installatie van de diverse files bij een nieuw geïnstalleerde AutoCAD heb ik een CD gemaakt waar de diverse files op staan (menu’s bibliotheek en dvb en lisp files). Ook staan op de CD registersleutels om diverse instellingen in AutoCAD in één keer goed te zetten en de juiste menu’s op de juiste plek te laten verschijnen. Op de CD staat een html file (zie figuur 9) waarop ik klikbare links heb gezet om het een en ander automatisch te laten installeren. Het zijn in principe zichzelf uitpakkende zip files die ook de juiste directory’s aanmaken op de computer.

figuur 9

19

10. Conclusie De “Legenda creator” wordt door de tekenaars binnen Vialis al gebruikt. De afspraak is dat de tekenaars het zullen melden als ze nog onregelmatigheden tegenkomen. Het kan natuurlijk zijn dat ik een symbool, dat erg weinig gebruikt wordt, vergeten ben toe te voegen. Tijdens het ontwikkelen heb ik ondertussen wel al extra wensen gekregen: ik zou nog graag iets ontwikkelen waarmee ik volautomatisch een legendaitem kan aanmaken en dat in de Legenda.ini te laten zetten. Ik heb daar al ideeën voor en werk deze na mijn afstuderen verder uit. Het tekenen van een legenda (zie figuur 10) duurt nu minder dan een seconde. Dat betekent dat er per tekening een tijdwinst is van tien minuten tot een kwartier. Ook is de kans op fouten bijna nihil. Van een vervelend klusje is het tekenen van een legenda een simpele druk op de knop geworden. Ook is het nu vrijwel onmogelijk om een legenda te vergeten. Er is namelijk bij het bewaren van de tekening een extra check ingebouwd die controleert of er wel een legenda in de tekening staat. Als dit niet het geval is zal er een waarschuwing verschijnen die de tekenaar op het ontbreken van een legenda zal attenderen.

figuur 10

20