AutoCAD Plotroutine. Emmtec Engineering. Afdeling bouwkunde civiel

AutoCAD Plotroutine Emmtec Engineering Afdeling bouwkunde civiel

Plaats: Datum: Bewerker:

Emmen 7 februari 2014 R. Talens

Onderwerp: Afstudeerverslag School: CAD College Richting: AutoCAD System Manager

VOORWOORD Ik ben Roelof Talens, 40 jaar, en woon in Peize. Ik ben vrijgezel en naast mijn werk voetbal ik op zondag en heb een druk sociaal leven. Na mijn bouwkundige opleiding ben ik in 1998 aan het werk gegaan als bouwkundig en constructief tekenaar bij VIRO Engineering in Hengelo. Daarna bij Tebodin in Groningen om vervolgens sinds 2000 in dienst bij EMMTEC Engineering, als bouwkundig en constructief tekenaar, te komen waar ik nu nog steeds met plezier werk. Sinds drie jaar vervul ik nu ook de taak als Key-user voor de bouwkundige afdeling als aanspreekpunt voor AutoCAD gerelateerde vragen en problemen.

In 2006 had ik de intentie om mijn kennis van AutoCAD verder uit te breiden en vond toen deze opleiding. In overleg met mijn toenmalige afdeling manager ben ik toen aan de opleiding begonnen. Door omstandigheden heb ik de opleiding toen niet afgerond.

Begin 2013 heb ik in overleg met de huidige afdeling manager het plan weer opgevat om de opleiding nu af te ronden en de kennis straks toe te passen in onze organisatie. Mede dankzij de medewerking van Matthijs, mijn manager, en Ronald, van TEC CAD college, is het dan nu gelukt om het project af te ronden en dit verslag te schrijven.

Mijn dank hiervoor.

Roelof Talens, winter 2014

INHOUD INLEIDING

5

1.

8

Probleemstelling

1.1.

Analyse oude situatie

8

1.2.

Analyse beschikbare tools

9

1.2.1. 1.2.2. 1.2.3.

1.3.

2.

De standaard plotroutine van AutoCAD Afdrukken via Publish binnen AutoCAD Custom made Plotroutine

9 10 11

Conclusie analyses

11

Opdracht formulering

13

2.1.

Programma van eisen

13

2.2.

Analyse mogelijke oplossingen

16

2.2.1. 2.2.2. 2.2.3.

2.3.

3.

LISP routine VBA module VB.Net programma

Conclusie analyse

Ontwerp module

16 16 17

17

19

3.1.

Analyse mogelijkheden binnen de gekozen programmeertaal

19

3.2.

Uitwerking code

19

3.3.

Conclusie

23

4.

Implementatie module

24

4.1.

Uitdragen nieuwe module bij de gebruikers

24

4.2.

Ervaringen gebruikers

24

4.3.

Conclusie ervaringen gebruikers

25

5.

Conclusie

26

6.

Aanbevelingen

27

BIJLAGEN: VBA code

AutoCAD Menu Emmtec Engineering bouwkunde Civiel

29

pagina 4 van 46

INLEIDING Dit verslag beschrijft het project waarin een plotroutine voor AutoCAD is gemaakt. Deze routine zal worden gebruikt door de afdeling Bouwkunde Civiel van EMMTEC Engineering. EMMTEC Engineering is een ingenieursbureau die zijn werkzaamheden vooral richt op de chemische industrie vanuit zijn onstaans historie uit AKZO Engineering. Doch de laatste jaren richten wij ons ook steeds meer in de energie gerelateerde projecten door de huidige innige relatie met onze moeder organisatie NUON.

EMMTEC Industry & Business Park in Emmen EMMTEC Engineering is gevestigd op het EMMTEC Industry & Business Park in Emmen. Het park met een rijke historie vindt zijn oorsprong in 1951. De Algemene Kunstzijde Unie (AKU) zag in Emmen een optimale vestigingslocatie voor de productie van de toenmalig innovatieve Nylongaren. Later is dit opgegaan in AKZO Nobel. In de jaren ’90 van de vorige eeuw heeft AKZO de verschillende onderdelen verkocht aan diverse bedrijven. En is het parkbeheer, engineering en overige onderdelen verder gegaan met behulp van een investeringsmaatschappij. In 2002 heeft deze investeringsmaatschappij het park met de de verschillende onderdelen aan NUON verkocht.


pagina 5 van 46

Tot eind vorige eeuw bestond het werk vooral uit projecten op het terrein voor de diverse klanten die daar gevestigd zijn. In de laatste 10 jaar hebben we ons ook steeds meer gericht op projecten buiten het park en hebben we ook kunnen profiteren van de contacten binnen onze nieuwe moeder bedrijf NUON.

Bij EMMTEC Engineering zijn we dus werkzaam in de industriebouw. Hiervoor gebruiken we voornamelijk AutoDesk gerelateerde producten zoals AutoCAD. In 2010 is er besloten om onze AutoCAD versie 2006 te upgraden. Daarbij kwam naar voren dat ook de tools, die onder AutoCAD draaien, dienen mee te migreren. Uit een onderzoek kwam naar voren dat een volledige migratie niet nodig is en dat er intern naar oplossing zou kunnen worden gezocht. Hieruit is de vraag gekomen voor het maken van en plotroutine die werkt onder de nieuwste AutoCAD versie’s. In dit verslag zal ik een project beschrijven voor een plotroutine die de gebruikers kunnen gebruiken voor het correct afdrukken van de gemaakte tekeningen.

In de volgende hoofdstukken zal ik duidelijk maken waarom bepaalde keuzes zijn gemaakt en hoe ik tot het gekozen project ben gekomen. Voor degenen die niets van AutoCAD weten zal ik hier een korte beschrijving proberen te geven van hoe AutoCAD werkt met betrekking tot het plotten. Dan zullen de genoemde termen in het verslag ook voor u duidelijker zijn. Het plotten gebeurt net als bij andere Windows programma’s via de geinstalleerde plotdrivers op de computer, maar voor het correct afdrukken heeft AutoCAD een zogenaamde CTB files (Color-dependent Plot Style Table) nodig. In deze file staan de instellingen die AutoCAD nodig heeft om de lijndiktes van de tekening te bepalen om zo een duidelijke en leesbare tekening te krijgen. De module die in dit verslag wordt beschreven zal de keuze voor de gebruiker maken zodat elke afdruk er uitziet zoals is voorgeschreven in de bedrijfsspecificaties.


pagina 6 van 46

In hoofdstuk 1 zal de probleemstelling worden geformuleerd met een analyse van de bestaande situatie en de gewenste situatie. Vervolgens zal in hoofdstuk 2 de opdracht worden geformuleerd d.m.v. een programma van eisen en een analyse van de mogelijke oplossingen. Hierna zal in hoofdstuk 3 zal het ontwerp van de module worden besproken en uitgewerkt. Daarna zal in hoofdstuk 4 de implementatie van de module bij de gebruikers worden beschreven met hun bevindingen. Om dan in hoofdstuk 5 de eindconclusie te geven van de module. En tenslotte zal in hoofdstuk 6 enige aanbevelingen worden gegeven voor een volgende versie van de plotmodule. In de bijlage vind u de gehele VBA code voor deze module.


pagina 7 van 46

1. Probleemstelling In dit hoofdstuk wordt een analyse gemaakt van het probleem vanuit de oude situatie en de alternatieven voor een werkbare nieuwe situatie. Afsluitend wordt er een conclusie gegeven voor de gewenste nieuwe situatie. 1.1.

Analyse oude situatie

Tot 2010 werd bij EMMTEC Engineering nog gewerkt met AutoCAD 2006 met het BASE menu van Atos Origin. In 2010 is de ondersteuning van het AutoCAD beheer gewijzigd van de IT afdeling naar een combinatie van de IT afdeling met Key-Users op de afdelingen. Hieruit is een AutoCAD commisie opgericht. Daarbij hebben WTB, E&I en Bouw/Civiel elk één Key-User afvaardigd. Éénmaal per kwartaal wordt samen met IT de problemen en ontwikkelingen in het bedrijf en in de markt besproken.

Bij één van de eerste overleggen werd de vraag gesteld in hoevere het BASE menu nog van toepassing was en wat er voor nodig is om deze te updaten naar de nieuwere AutoCAD versies bij toekomstige upgrades. Bij nader onderzoek kwam naar voren dat het BASE menu nodig moet worden geupdate voor toekomstige AutoCAD versies. Aangezien het een pakket is onder Atos Origin licentie hebben wij zelf niet de mogelijkheden om het zelfstandig te updaten. Naast de hoge kosten voor een upgrade zijn er ook hoge jaarlijkse kosten voor de licenties wat de AutoCAD commisie deed besluiten om alternatieven te zoeken.

Aangezien de kennis aanwezig is om zelf een menu te maken per afdeling hebben de Key-Users een eerste opzet gemaakt om te zien of dit voldoet aan de wensen van de gebruikers. De commisie heeft voor losse menu’s per afdeling gekozen aangezien er toch grote verschillen zijn in werkwijze en structuur.

Na een eerste versie is de commisie tot de conclusie gekomen dat voor de afdelingen


pagina 8 van 46

WTB en Bouw/Civiel het BASE menu zou kunnen vervallen. Voor E&I is het een ander verhaal aangezien voor die afdeling het BASE menu helemaal is ingericht met betrekking tot het aanmaken van E&I tekeningen met symbolen en automatische uitdraaien. Om die routines zelf geheel uit te werken vergt veel tijd en dan is de vraag of dit voordeliger is dan het te laten updaten van BASE.

Één van de algemeen gebruikte routines binnen het BASE menu was de plotroutine. In deze routine kon met een druk op de knop een afdruk maken van de tekening zonder te veel instellingen te hoeven maken en de kans op het maken van verkeerde keuzes.

Bij het laten vervallen van het BASE menu voor de afdeling WTB & Bouw/Civiel is er een alternatief nodig voor het afdrukken van de tekeningen. In de 1.2 wordt een analyse gegeven van de beschikbare tools in AutoCAD. 1.2.

Analyse beschikbare tools

1.2.1. De standaard plotroutine van AutoCAD

In de standaard plotroutine maak je de benodigde keuzes om de tekening vervolgens conform de Emmtec standaard af te drukken.

Tevens kun je via page setup veel gebruikte standaard instellingen opslaan.


pagina 9 van 46

Doch na een evaluatie kom ik tot de conclusie dat er toch nog veel mis gaat met het kiezen van de juiste instellingen.

Één van de problemen is dat voor Emmtec meerdere ctb instellingen zijn aangemaakt die afhankelijk zijn van de afdrukschaal. Ook heeft elke printer een meervoud aan keuzes wat betreft het papierformaat, waardoor de marges bij de afdruk wel eens wil verschillen. Door de vele keuzes, die moeten worden gemaakt, maakt het gebruik van de standaard plotroutine het gevoelig dat tekeningen niet goed worden afgedrukt. 1.2.2. Afdrukken via Publish binnen AutoCAD

Publish is een nieuwere toepassing in AutoCAD en is binnen de organisatie nogal onbekend en maakt het eigenlijk nodig dat de AutoCAD gebruikers een algemene updatecursus gaan volgen .

De laatste updatecursus van de gemiddelde gebruiker was AutoCAD 2002. Wel zijn er voor de gebruikers meerder ‘page setup’ instellingen aangemaakt met de EMMTEC instellingen.


pagina 10 van 46

Zoals uit het voorgaande dialoogbox blijkt zijn ook hier een aantal instellingen nodig voordat een afdruk kunt gemaakt kan worden.

Ook deze tool maakt het dus gevoelig voor onjuist afgedrukte tekeningen. 1.2.3. Custom made Plotroutine

Er zal een plotroutine moeten worden aangemaakt naar de wensen van Emmtec voor het verkrijgen van een afdruk volgens de Emmtec voorschriften, waarbij een tekening bij elke gebruiker hetzelfde uit de plotter zal komen.

Als uitgangspunt zal dan de routine van het BASE menu moeten worden gebruikt, waarbij zo weinig mogelijk instellingen nodig zijn om de juiste afdruk te krijgen. Ook zou moeten worden gekeken naar nieuwe wensen die afwijken van het BASE menu.

Bij een custom plotroutine zullen elke tekening met de dezelfde instellingen worden afgedrukt en is het onmogelijk om een verkeerde keuze te maken. 1.3.

Conclusie analyses

Uit de analyses komt duidelijk naar voren dat het verkrijgen van een uniforme afdruk, binnen de organisatie, met de standaard plotroutines binnen AutoCAD moeilijk is te garanderen, omdat de gebruiker zelf de instellingen moet kiezen en het risico op onjuiste keuzes zeer groot is.

De standaard plotroutine is nog wel te gebruiken voor een deel plot waar een juiste weergave niet altijd verplicht is voor de gebruiker. En de publish functie is vooral handig als je meerdere tekeningen in één keer wil afdrukken zonder ze één voor één te moeten openen. Daarom zullen de standaard instellingen voor beide functies altijd beschikbaar blijven voor de gebruiker.

Voor het dagelijkse gebruik is besloten om een plotroutine aan te maken die de instellingen naar de wens van EMMTEC zal uitvoeren zonder te veel keuzes voor de


pagina 11 van 46

gebruiker waarbij de routine vooraf al de juiste keuzes voor de gebruiker maakt en er alleen nog maar op “OK” hoeft te worden gedrukt.

In het volgende hoofdstuk zal een analyse worden gemaakt, waaraan de routine zou moeten voldoen. Waarbij de opdracht is om een plotroutine te maken die correcte afdrukken genereert waarbij keuzes voor de gebruiker optimaal worden gepresenteerd en eenvoudig kunnen worden afgehandeld.


pagina 12 van 46

2. Opdracht formulering In dit hoofdstuk wordt een programma van eisen opgesteld aan de hand van het in paragraaf 1.3 benoemde doel. Hierbij wordt gekeken waaraan de plotroutine zou moeten voldoen met betrekking tot de automatisch te maken keuzes en de mogelijke handmatig in te stellen opties. Hierna wordt een analyse gegeven van de mogelijke programeertalen met de voor- en nadelen van deze verschillende programeertalen. Ten slotte zal in de conclusie een keuze worden gemaakt van de toe te passen programeertaal. 2.1.

Programma van eisen

Als uitgangspunt wordt de oude BASE plotroutine gebruikt met eventuele uitbreiding met betrekking tot nieuwe wensen vanuit de praktijk. Eerst een toelichting van de opbouw van plotstyles en de gebruikte templates binnen EMMTEC engineering. Bij EMMTEC wordt er gewerkt met een standaard template voor de gebruikelijke papier formaten A4 t/m A0. Er is geen afwijkende formaat in gebruik binnen de organisatie. Voor de printers/plotters zijn er 5 plotstyle bestanden aangemaakt de zogenaamde ‘ctb’ bestanden. Het principe hierbij is dat als je een bepaald papierformaat wilt afdrukken op een afwijkend papierformaat de lijndiktes van de afdruk dienen te verschalen. Plotstyle 1 is voor een 1 op 1 afdruk op de printer/plotter en elke volgende plotstyle is voor een verschaling naar een kleinere schaal. Dit houdt in dat bij het afdrukken van een A0 op een A1 plotstyle 2 moet worden gebruikt tot plotstyle 5 voor een afdruk van een A0 op een A4. De BASE plotroutine maakt deze keuze voor de gebruiker door te kijken welke template er wordt gebruikt en naar de afdruk formaat keuze van de gebruiker . Een nadeel van de BASE plotroutine is dat het geen tekeningen kan afdrukken met een andere template dan de standaard EMMTEC template.


pagina 13 van 46

Net als bij de BASE plotroutine wordt er eerst gekeken of er vanuit paperspace wordt geplot. Mocht dit niet het geval zijn zal de routine afsluiten en de standaard AutoCAD routine worden opgestart.

Een nieuwe gewenste optie is het laten controleren op transparante elementen in de tekening. Bij het ontwikkelen van het BASE menu zat deze optie nog niet in AutoCAD en dit is in de nieuwe revisies ook nooit toegevoegd. Het komt steeds vaker komt het voor dat er transparante elementen in een tekening voorkomen. Bij het testen is gebleken dat bij het standaard aanvinken van deze optie het afdrukken wordt vertraagd en dit dus een grotere belasting voor de PC betekent. Daarom wordt ervoor gekozen om deze optie alleen te activeren als er een transparant element aanwezig is.

Vervolgens zullen de printers en plotter worden ingesteld, waarbij een standaard printer/plotter wordt geactiveerd met de bijbehorende papierformaten.

De routine zal vervolgens kijken of er een EMMTEC template aanwezig is. Mocht de aanwezige template niet worden herkend kan de gebruiker het kaderformaat handmatig kiezen.

Nu zal de routine de juiste ctb bestand bepalen voor een correcte afdruk van de tekening op het gekozen afdruk formaat. Bij het handmatig wijzigen van de printer/plotter en het afdrukformaat zal de routine opnieuw de juiste ctb bestand bepalen.

Na het opgeven van het aantal gewenste afdrukken kan de gebruiker nu de afdruk laten uitvoeren met de juiste instellingen.

Ook zal er een handleiding worden toegevoegd die te openen is vanuit de routine. Deze geeft de gebruiker een uitleg van de werking van de plotroutine.

Op de volgende pagina is een stroomschema aangemaakt van het gewenste verloop van het proces in de plotroutine.


pagina 14 van 46

Stroomschema:

START

Controleren of er vanuit paperspace wordt geplot

NEE

Opstarten standaard plot

NEE

Plot ‘transparency’ uit schakelen

JA Controleren of er ‘transparency’ elementen zijn JA Plot ‘transparency’ in schakelen Instellen beschikbare plotters/printers en default plotter/printer Instellen papier formaten plotter/printer

Controleren welk formaat het kader heeft

NEE

Kies het juiste kader formaat

JA Juiste ‘ctb’ file bepalen a.d.h. van het kader formaat en de afdruk formaat Plotter/printer kiezen

Afdruk formaat kiezen

Opgeven aantal afdrukken. Default ‘1’ Transparency on/off kiezen

Afsluiten

Keuze OK/Afsluiten/Help

Help

Openen PDF file met uitleg plot routine

OK Afdrukken kader met de opgegeven instellingen

EINDE


pagina 15 van 46

2.2.

Analyse mogelijke oplossingen

Voor het bepalen dan de te gebruiken programeertaal wordt hier een analyse gegeven van drie beschikbare programeertalen, waar enige kennis in beschikbaar is binnen de organisatie van EMMTEC engineering. Achtereen volgens wordt het programeren in LISP, VBA en VB.Net besproken en de beschikbare kennis binnen de organisatie voor deze programeertaal ingeschat. 2.2.1. LISP routine

AutoLisp (afgekort Lisp) is een programmeertaal van AutoCAD, die is afgeleid van LISP (LISt Procedure). Autolisp is gemakkelijk te bewerken d.m.v. NotePad (kladblok) dat standaard bij de installatie van Windows wordt geinstalleerd. Of met een andere tekstverwerkingprogramma die met ASCII codes overweg kan. Visual LISP is een opgewaardeerde versie van AutoLISP (inclusief alle oude AutoLISPfunctionaliteit) met een van VBA afgeleide toegang tot de AutoCAD-omgeving.

Binnen de organisatie is een brede kennis aanwezig m.b.t. LISP en zal een routine in LISP snel kunnen worden aangepast mocht dit nodig te zijn. 2.2.2. VBA module

Visual Basic (VB) is een programmeertaal en een ontwikkelomgeving. VB maakt het mogelijk om programma's te schrijven die draaien onder Windows. Het woord "Visual" slaat op het maken van de grafische gebruikers interface (Graphical User Interface oftewel GUI). Het woord "Basic" refereert aan de programmeertaal BASIC. VBA is qua taal equivalent aan VB. VBA is ingebouwd in een groot aantal andere applicaties, waaronder AutoCAD, als macro (applicatie) ontwikkeltaal . Met VBA is zo'n standaard applicatie naar eigen wens aan te passen en uit te breiden en zijn eenvoudig koppelingen tussen de verschillende applicaties te maken. VBA is een wereld standaard als het gaat om applicatie ontwikkel talen en is als programmeertaal in tientallen applicaties terug te vinden.


pagina 16 van 46

Met behulp van VBA is het mogelijk toepassingen te automatiseren en de functionaliteit van de applicatie kan daardoor enigszins worden uitgebreid. VBA wordt dan gebruikt als een macrotaal voor die applicatie, waarin extra functies voor die applicatie kunnen worden geprogrammeerd. De basisfunctionaliteit van het applicatieprogramma kan in een VBA programma worden aangeroepen.

Ook met betrekking tot VBA is er binnen de organisatie een brede kennis aanwezig en is een aanpassing dus snel uit te voeren mocht dit nodig zijn. 2.2.3. VB.Net programma

Visual Basic 7.0 en latere versies hebben een grote oppervlakkige gelijkenis met de zojuist genoemde eerdere Visual Basic's, maar zijn op een totaal nieuwe ondergrond gebaseerd: het .NET-framework. Hiermee wordt Visual Basic een door en door objectgeoriënteerde taal, zeer vergelijkbaar met C# of Java. Daarnaast verandert het karakter van de naam Visual Basic enigszins: die slaat nu specifiek op de programmeertaal, omdat de ondersteunende softwarebibliotheken en de runtimeondersteuning ook worden gebruikt door alle andere .NET-talen, zoals C#. Ook heeft de taal een openbare specificatie.

Zoals de runtime van Visual Basic 6 is ook de .NET-runtime (beter bekend als het .NETframework) vrij verkrijgbaar als download op microsoft.com, en wordt daarnaast meegeleverd met automatische Windows-updates.

Doordat er pas sinds kort is besloten om de AutoCAD platform te updaten naar een nieuwere versie is er, in de laatste jaren, niet geïnvesteerd in het updaten van de kennis van VB.Net binnen de organisatie. Dit houdt in dat er op dit moment maar één persoon is die de routine zou kunnen updaten als dit nodig is. 2.3.

Conclusie analyse

Elke programeertaal is goed te gebruiken om een plotroutine aan te maken en heeft elk zijn voor en nadelen.


pagina 17 van 46

Wat betreft de meeste mogelijkheden heeft VB.net de voorkeur. Tevens is VB.net een taal die in de toekomst zeker zal worden ondersteund. Het nadeel is dat er binnen EMMTEC Engineering momenteel maar 1 persoon is die deze programeertaal beheerst. Wat een risico geeft mocht deze persoon vertrekken voor toekomstige updates. Gezien de huidige economische situatie is er geen prioriteit om andere medewerkers heirvoor op te leiden. Aangezien er voldoende kennis aanwezig is in LISP en VBA is het dan ook een logische keuze om op dit moment te kiezen voor een plotroutine in één van deze talen.

Het voordeel van een VBA routine t.o.v. een LISP routine is dat een VBA routine in de toekomst kan worden gebruikt als basis voor het omzetten naar een VB.net routine. Daar een migratie naar VB.net zeker een wens is als de kennis van VB.net breder wordt gedragen binnen de organisatie.

Ik heb dan ook gekozen om de plotroutine verder uit te werken in VBA, zoals wordt besproken in het volgende hoofdstuk.


pagina 18 van 46

3. Ontwerp module In dit hoofdstuk zal eerst een analyse worden gegeven van de keuze mogelijkheden binnen VBA voor de verschillende routines binnen de plotroutine. Vervolgens zullen enige keuzes worden uitgewerkt in een code. Tenslotte zal er een conclusie worden gegeven van de gemaakte keuzes binnen de routine. 3.1.

Analyse mogelijkheden binnen de gekozen programmeertaal

Voor het afdrukken van een DWG in een VBA routine kun je er voor kiezen om dit geheel in VBA te coderen, zodat het op de achtergrond gebeurt. Ook kun je de plot laten uitvoeren op de command line vanuit de VBA routine. Bij een eerste test fase kwam al snel naar voren dat bij een wijziging van de plotdriver en plotterpositie in het netwerk de routine niet goed werkt. Bij een plotroutine op de achtergrond is het niet altijd direct duidelijk wat het probleem is terwijl bij een commandline gestuurde plot is direct zichtbaar waar de afdruk fout gaat. Daarom is er besloten om de plot in de routine via de commandline te laten werken om bij storingen in de routine snel een analyse te kunnen maken van de mogelijke problemen. 3.2.

Uitwerking code

De eerste gewenste controle is of er wordt afgedrukt vanuit paperspace. De routine is alleen geschreven voor afdrukken vanuit paperspace en zal dan ook de standaard plot van AutoCAD moeten opstarten als vanuit modelspace wilt afdrukken.

Daarna volgt de controle of er elementen zijn met transparante eigenschappen. Deze instelling hebben we standaard uitstaan, omdat het afdrukken aanzienlijk trager wordt bij objecten die transparant zijn. En dus zal deze uit worden gezet als er geen transparante elementen wordt gebruikt in de tekening.

Vervolgens worden de beschikbare plotters en printers ingesteld, waaruit een keuze kan worden gemaakt door middel van een pulldown veld. Dit zelfde geldt voor het afdruk formaat.


pagina 19 van 46

De standaard keuze is de A3 printer op de afdeling.

Nu controleert het programma welk formaat kader er in de layout staat. Hij controleert dit aan de hand van het gevonden kader block. Mocht de routine geen EMMTEC kader kunnen vinden zal er een pulldown veld verschijnen, zodat de keuze handmatig kan worden gemaakt.

Door nu de gewenste plotter/printer te kiezen zal de plot formaat keuze worden aangepast aan de beschikbare formaten.

Zie onderstaand voorbeeld code: (voor de gehele code van de plotroutine zie bijlage 2) -------------------------ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Call Me.FormaatCmbBx.Clear Dim Formaat2(0 To 4) As String Formaat2(0) = "A0 ( 1189 x 841 mm )" Formaat2(1) = "A1 ( 841 x 594 mm )" Formaat2(2) = "A2 ( 594 x 420 mm )" Formaat2(3) = "A3 ( 420 x 297 mm )" Formaat2(4) = "A4 ( 210 x 297 mm )" For I = 0 To 4 Call Me.FormaatCmbBx.AddItem(Formaat2(I)) Next I Me.FormaatCmbBx.ListIndex = 0 ElseIf PlotterCmbBx.Value = "EMN5028 A3 Copier Bouw/Civiel" Then Call Me.FormaatCmbBx.Clear Dim Formaat3(0 To 1) As String Formaat3(0) = "A3 ( 420 x 297 mm )" Formaat3(1) = "A4 ( 210 x 297 mm )" For I = 0 To 1 Call Me.FormaatCmbBx.AddItem(Formaat3(I)) Next I


pagina 20 van 46

Me.FormaatCmbBx.ListIndex = 0 -------------------------Als men de plotter/printer keuze en afdruk formaat wijzigt zal het programma de benodigde ctb file bepalen voor het verkrijgen van de juiste afdruk.

Zie onderstaand voorbeeld code: (voor de gehele code van de plotroutine zie bijlage 2) -------------------------'Bepalen schaal keuze Dim schaalkeuze As String If FormaatKaderCmbBx.Value = FormaatCmbBx.Value Then schaalkeuze = "1:1" ElseIf FormaatKaderLbl.Caption = FormaatCmbBx.Value Then schaalkeuze = "1:1" Else schaalkeuze = "fit" End If 'Bepalen plotstyle keuze Dim plotstylekeuze As String If schaalkeuze = "1:1" Then plotstylekeuze = "_01_EMMTEC.ctb" ElseIf FormaatKaderCmbBx.Value = "A0 ( 1189 x 841 mm )" Then If FormaatCmbBx.Value = "A1 ( 841 x 594 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A2 ( 594 x 420 mm )" Then plotstylekeuze = "_03_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then plotstylekeuze = "_04_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_05_EMMTEC.ctb" ori = "l" Else End If


pagina 21 van 46

-------------------------Als laatste kun je dan nog het aantal afdrukken geven en handmatig de transparantie in of uit schakelen.

Om daarna op OK te klikken om het afdrukken te starten.

Het afdrukken gebeurt zichtbaar op de command line om altijd een extra controle te hebben.

Zie onderstaand voorbeeld code: (voor de gehele code van de plotroutine zie bijlage 2) -------------------------For a = 1 To AantalTxtBx.Value If plotterkeuze = "DWG To PDF.pc3" Then ThisDrawing.SendCommand "-plot" & vbCr & "y" & vbCr & vbCr & plotterkeuze & vbCr & formaatkeuze & vbCr & "m" & vbCr & ori & vbCr & "n" & vbCr & "e" & vbCr & schaalkeuze & vbCr & "c" & vbCr & "y" & vbCr & plotstylekeuze & vbCr & "y" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "y" & vbCr Else ThisDrawing.SendCommand "-plot" & vbCr & "y" & vbCr & vbCr & plotterkeuze & vbCr & formaatkeuze & vbCr & "m" & vbCr & ori & vbCr & "n" & vbCr & "e" & vbCr & schaalkeuze & vbCr & "c" & vbCr & "y" & vbCr & plotstylekeuze & vbCr & "y" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "y" & vbCr End If Next a --------------------------


pagina 22 van 46

Om nu te kunnen afdrukken start je de dialoogbox op die m.b.v. de bovengenoemde code het afdrukken uitvoert.

Voor het afdrukken is de meest gebruikte plotter standaard geactiveerd met de meest gebruikte afdruk formaat. Dus meestal hoef je alleen maar op OK te drukken om de gewenste afdruk te krijgen. Wijzig je de plotter zal de routine de instellingen opnieuw bepalen en de meest gemaakte afdruk formaat instellen zodat je ook nu alleen maar op OK hoeft te drukken om een goede afrduk te krijgen. 3.3.

Conclusie

Door de automatische bepaling van het kader formaat wordt de tekening nu automatisch in de juiste plotstyle afgedrukt en dus komt de tekening uniform op papier te staan. Onafhankelijk van de gebruiker is zo een uniforme afdruk binnen het bedrijf mogelijk.

De commandline gestuurde plot is geen elegante oplossing, maar hierdoor heeft de gemiddelde gebruiker snel de oorzaak gevonden als de afdruk routine onverwacht wordt afgesloten.


pagina 23 van 46

4. Implementatie module Voor een gebruikerstest hebben we de nieuwe plotroutine bij de gebruikers geinstalleerd en na een bepaalde periode gevraagd hoe de ervaringen zijn en wat er aangepast en of verbeterd zou moeten worden. Hieronder zal het uitdragen van de module, de ervaring van de gebruikers en de conclusie worden beschreven die we hebben opgedaan na de test periode. 4.1.

Uitdragen nieuwe module bij de gebruikers

Voordat de gebruikers aan de gang kunnen zijn eerst de instellingen met betrekking tot de plotterfiles en plotstylefiles gewijzigd en is AutoCAD zo ingesteld dat de plotroutine automatisch wordt ingeladen. Daarna is een korte instructie gegeven van de werking van de routine. Het doel van de routine is dan ook dat met een korte introductie de gemiddelde gebruiker er direct mee kan werken. 4.2.

Ervaringen gebruikers

Na een bepaalde periode is de gebruiker gevraagd naar de ervaringen met de nieuwe routine.

-

In de periode dat zij de module hebben getest zijn er geen probleem geweest met het plotten.

-

De ervaringen zijn positief en de plotroutine voldoet aan de eisen die wij vooraf hadden gesteld.

Voor de toekomst zouden de gebruikers graag de volgende punten zien verwerkt in een nieuw project. Die nu niet waren voorzien in dit project: -

Tekeningen van externe bureaus worden niet herkend m.b.t. het bepalen van het kader.

-

Ook wijkt de plotstyle van een extern bureau af van onze standaard.

-

Ze zouden graag een batch plot functie hebben die ook gebruik maakt van de juiste instellingen.


pagina 24 van 46

4.3.

Conclusie ervaringen gebruikers

De module voldoet aan de eisen die ik hadden opgesteld en de gebruikers kunnen zonder problemen een afdruk maken met de juiste bedrijfsinstellingen.

Het kunnen afdrukken van tekening van externe bureaus is niet voorzien in deze plotroutine, maar bij een nieuw project is het een optie om die mogelijkheid mee te nemen. Het automatisch bepalen van het kader formaat en daarmee de juiste plot instelling wordt zeer gewaardeerd. En zou dan ook graag bij externe tekeningen zeer welkom zijn.

Een batch plot functie zou kunnen worden toegevoegd, maar we hebben er nu voor gekozen om een korte handleiding te maken van de Publish functie aangezien de batch plot niet vaak gebruikt wordt.

In het volgende hoofdstuk zullen we deze punten meenemen in de eind conclusie.


pagina 25 van 46

5. Conclusie De module die is gemaakt, voldaat aan de eisen en wensen die van te voren waren vastgesteld, voldoet. Zoals is gebleken na de test door de gebruikers. Op een eenvoudige en snelle manier kunnen de gebruikers de tekeningen afdrukken met de juiste instellingen zoals voorgeschreven binnen de organisatie.

Toch zijn er enige punten die meegenomen zouden kunnen worden in een volgend project. Zo zouden de gebruikers ook graag tekeningen van externe bureaus snel kunnen afdrukken zonder zelf teveel te moeten kiezen, zoals je hebt met de standaard plotroutine.

Voor de batch plot kijken we eerst de ervaringen aan van het gebruik van de Publish functie. Mocht dit niet de gewenste resultaten geven zal bij een nieuwe versie van deze module een batch plot functie worden toegevoegd.

Een aandachtspunt bij deze module is dat de plotter en formaat instellingen in de VBA code is ingeprogrameerd en dus moet worden aangepast bij wijziging van één van de plotters. Bij een nieuwe versie zal dan ook moeten worden nagedacht om dit anders op te lossen, zodat nieuwe plotters kunnen worden toegevoegd zonder de module te hoeven herprogrameren.


pagina 26 van 46

6. Aanbevelingen Nu de plotroutine naar tevredenheid werkt en wordt gebruikt binnen de organisatie zal hieronder enige aanbevelingen worden gegeven voor een volgende project voor het maken van een plotroutine met de gewenste extra mogelijkheden.

Voor een volgend project is het wenselijk om de module dan in VB.Net te programeren, omdat deze programeer omgeving meer mogelijkheden biedt. Daarom wordt het management dan ook aangeraden om enige personen te laten opleiden voor het programeren in VB.Net om te waarborgen dat een toekomstige module intern kan worden aangepast of gewijzigd.

In een volgende versie zouden dan de volgende punten kunnen worden meegenomen: -

Plotterinstellingen vanuit een tekstfile in laten lezen zodat bij het wijzigen van een plotter je alleen maar de tekstfile hoeft aan te passen.

-

Plotstyle instellingen vanuit een tekstfile in laten lezen zodat bij het wijzigen of toevoeging van een plotstyle je alleen maar de tekstfile hoeft aan te passen.

-

Papierformaat instellingen vanuit een tekstfile in laten lezen, zodat bij het wijzigen van een plotter je alleen maar de tekstfile hoeft aan te passen.

-

Het bepalen van het kaderformaat aanpassen zodat de routine ook externe kaders kan bepalen.

Naast een module die speciaal voor de organisatie is gemaakt is het ook zaak om de AutoCAD kennis van de gebruikers actueel te houden. Het is daarom ook zaak om het management ervan te overtuigen dat het personeel weer een updatecursus krijgt aangezien de laatste cursus bij AutoCAD 2000 was. Ondertussen gaan wij binnenkort migreren naar versie 2014 en zou een update cursus zeker raadzaam zijn. Een aantal belangrijke punten om deze update te rechtvaardigen zijn de extra functies die AutoCAD heeft gekregen in deze periode onder de aandacht te brengen.


pagina 27 van 46

Hierbij moet je denken aan het volgende: -

De Publish functie om meerdere tekeningen af te drukken met de gewenste instellingen.

-

De Ribbons in plaats van de oude knoppen balk. Er zijn nog veel gebruikers die de knoppenbalk nog steeds gebruiken terwijl de Ribbon hetzelfde doet. Alleen is men er niet mee bekend.

-

En zo zijn er ook nog vele nieuwe functies die hier niet nader worden genoemd, maar zeker een tegevoegde waarde hebben voor de gebruiker.

Afsluitend kunnen we dan ook stellen dat het verbeteren van de kennis in AutoCAD en VB.Net zeer wenselijk is binnen de organistatie.


pagina 28 van 46

BIJLAGEN: VBA code Private Sub UserForm_Activate() 'Controleren op blocken met transparante kleuren FindBlockName 'Inlezen block gegevens t.b.v. bepalen kader formaat Dim ent As AcadEntity Dim oBkRef As AcadBlockReference Dim FormaatKader As String FormaatKader = "Kan formaat niet bepalen!" For Each ent In ThisDrawing.PaperSpace If ent.ObjectName = "AcDbBlockReference" Then Set oBkRef = ent If oBkRef.EffectiveName = "BASECIV0" Then FormaatKader = "A0 ( 1189 x 841 mm )" Exit For FormaatKader = "A0 ( 1189 x 841 mm )" ElseIf oBkRef.EffectiveName = "BASECIV1" Then FormaatKader = "A1 ( 841 x 594 mm )" Exit For FormaatKader = "A1 ( 841 x 594 mm )" ElseIf oBkRef.EffectiveName = "BASECIV2" Then FormaatKader = "A2 ( 594 x 420 mm )" Exit For FormaatKader = "A2 ( 594 x 420 mm )" ElseIf oBkRef.EffectiveName = "BASECIV3" Then FormaatKader = "A3 ( 420 x 297 mm )"


pagina 29 van 46

Exit For FormaatKader = "A3 ( 420 x 297 mm )" ElseIf oBkRef.EffectiveName = "locdoco" Then FormaatKader = "A4 ( 210 x 297 mm )" Exit For FormaatKader = "A4 ( 210 x 297 mm )" ElseIf oBkRef.EffectiveName = "KaderA3Aanvalsplan" Then FormaatKader = "A3 ( 420 x 297 mm )" Exit For FormaatKader = "A3 ( 420 x 297 mm )" Else FormaatKaderLbl.Visible = False FormaatKaderCmbBx.Visible = True End If End If Next ent FormaatKaderLbl.Caption = FormaatKader End Sub Function FindBlockName() 'Inlezen block gegevens t.b.v. bepalen stempel Dim ent As AcadEntity Dim oBkRef As AcadBlockReference For Each ent In ThisDrawing.PaperSpace If ent.ObjectName = "AcDbBlockReference" Then Set oBkRef = ent If oBkRef.EffectiveName = "COMMENTAAR_ONDERHOEK_STEMPEL" Then


pagina 30 van 46

ChBxTransparency.Value = True Exit Function ElseIf oBkRef.EffectiveName = "SCHETS-STEMPEL" Then ChBxTransparency.Value = True Exit Function Else ChBxTransparency.Value = False End If End If Next ent End Function Private Sub UserForm_Initialize() 'Controleren of er vanuit modelpace wordt geplot 'Eerste check voor tilemode = 1 If ThisDrawing.ActiveSpace = acPaperSpace Then 'Hierna controlle of ms actief is If ThisDrawing.MSpace = True Then MsgBox ("Er is een Viewport actief!") End If Else MsgBox ("Je kunt alleen plotten vanuit Paperspace met deze routine!") 'AutoCAD standaard plotroutine opstarten ThisDrawing.SendCommand "plot" & vbCr 'Afsluiten macro met behoud van instellingen Me.Hide End If


pagina 31 van 46

'Instellen plotter en printer keuzes Dim Plotter(0 To 5) As String Plotter(0) = "EMN4868 A0 Plotter Archief" Plotter(1) = "EMN4858 A0 Plotter Bouw/Civiel" Plotter(2) = "EMN5028 A3 Copier Bouw/Civiel" Plotter(3) = "EMN4833 A3 Kleuren Laser Proces" Plotter(4) = "DWG To PDF" Plotter(5) = "PDF Creator" For I = 0 To 5 Call Me.PlotterCmbBx.AddItem(Plotter(I)) Next I Me.PlotterCmbBx.ListIndex = 2 'Instellen papier formaat keuze Call Me.FormaatCmbBx.Clear Dim Formaat(0 To 1) As String Formaat(0) = "A3 ( 420 x 297 mm )" Formaat(1) = "A4 ( 210 x 297 mm )" For I = 0 To 1 Call Me.FormaatCmbBx.AddItem(Formaat(I)) Next I Me.FormaatCmbBx.ListIndex = 0 'Instellen kader formaat Dim FormaatK(0 To 5) As String FormaatK(0) = "Kies kader formaat" FormaatK(1) = "A0 ( 1189 x 841 mm )" FormaatK(2) = "A1 ( 841 x 594 mm )" FormaatK(3) = "A2 ( 594 x 420 mm )" FormaatK(4) = "A3 ( 420 x 297 mm )" FormaatK(5) = "A4 ( 210 x 297 mm )" For I = 0 To 5 Call Me.FormaatKaderCmbBx.AddItem(FormaatK(I)) Next I Me.FormaatKaderCmbBx.ListIndex = 0 End Sub


pagina 32 van 46

Private Sub PlotterCmbBx_Change() 'Instellen papier formaat voor desbetreffende printer/plotter If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Call Me.FormaatCmbBx.Clear Dim Formaat1(0 To 4) As String Formaat1(0) = "A0 ( 1189 x 841 mm )" Formaat1(1) = "A1 ( 841 x 594 mm )" Formaat1(2) = "A2 ( 594 x 420 mm )" Formaat1(3) = "A3 ( 420 x 297 mm )" Formaat1(4) = "A4 ( 210 x 297 mm )" For I = 0 To 4 Call Me.FormaatCmbBx.AddItem(Formaat1(I)) Next I Me.FormaatCmbBx.ListIndex = 0 ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Call Me.FormaatCmbBx.Clear Dim Formaat2(0 To 4) As String Formaat2(0) = "A0 ( 1189 x 841 mm )" Formaat2(1) = "A1 ( 841 x 594 mm )" Formaat2(2) = "A2 ( 594 x 420 mm )" Formaat2(3) = "A3 ( 420 x 297 mm )" Formaat2(4) = "A4 ( 210 x 297 mm )" For I = 0 To 4 Call Me.FormaatCmbBx.AddItem(Formaat2(I)) Next I Me.FormaatCmbBx.ListIndex = 0 ElseIf PlotterCmbBx.Value = "EMN5028 A3 Copier Bouw/Civiel" Then Call Me.FormaatCmbBx.Clear Dim Formaat3(0 To 1) As String Formaat3(0) = "A3 ( 420 x 297 mm )" Formaat3(1) = "A4 ( 210 x 297 mm )"


pagina 33 van 46

For I = 0 To 1 Call Me.FormaatCmbBx.AddItem(Formaat3(I)) Next I Me.FormaatCmbBx.ListIndex = 0 ElseIf PlotterCmbBx.Value = "EMN4833 A3 Kleuren Laser Proces" Then Call Me.FormaatCmbBx.Clear Dim Formaat4(0 To 1) As String Formaat4(0) = "A3 ( 420 x 297 mm )" Formaat4(1) = "A4 ( 210 x 297 mm )" For I = 0 To 1 Call Me.FormaatCmbBx.AddItem(Formaat4(I)) Next I Me.FormaatCmbBx.ListIndex = 0 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Call Me.FormaatCmbBx.Clear Dim Formaat6(0 To 4) As String Formaat6(0) = "A0 ( 1189 x 841 mm )" Formaat6(1) = "A1 ( 841 x 594 mm )" Formaat6(2) = "A2 ( 594 x 420 mm )" Formaat6(3) = "A3 ( 420 x 297 mm )" Formaat6(4) = "A4 ( 210 x 297 mm )" For I = 0 To 4 Call Me.FormaatCmbBx.AddItem(Formaat6(I)) Next I Me.FormaatCmbBx.ListIndex = 0 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Call Me.FormaatCmbBx.Clear Dim Formaat7(0 To 4) As String Formaat7(0) = "A0 ( 1189 x 841 mm )" Formaat7(1) = "A1 ( 841 x 594 mm )" Formaat7(2) = "A2 ( 594 x 420 mm )" Formaat7(3) = "A3 ( 420 x 297 mm )" Formaat7(4) = "A4 ( 210 x 297 mm )" For I = 0 To 4


pagina 34 van 46

Call Me.FormaatCmbBx.AddItem(Formaat7(I)) Next I Me.FormaatCmbBx.ListIndex = 0 Else End If 'Aanpassen papier formaat If FormaatKaderCmbBx.Value = "A1 ( 841 x 594 mm )" Then If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Me.FormaatCmbBx.ListIndex = 1 ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 1 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Me.FormaatCmbBx.ListIndex = 1 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Me.FormaatCmbBx.ListIndex = 1 Else End If ElseIf FormaatKaderCmbBx.Value = "A2 ( 594 x 420 mm )" Then If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Me.FormaatCmbBx.ListIndex = 2 ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 2 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Me.FormaatCmbBx.ListIndex = 2 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Me.FormaatCmbBx.ListIndex = 2 Else


pagina 35 van 46

End If ElseIf FormaatKaderCmbBx.Value = "A3 ( 420 x 297 mm )" Then If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Me.FormaatCmbBx.ListIndex = 3 ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 3 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Me.FormaatCmbBx.ListIndex = 3 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Me.FormaatCmbBx.ListIndex = 3 Else End If ElseIf FormaatKaderCmbBx.Value = "A4 ( 210 x 297 mm )" Then If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Me.FormaatCmbBx.ListIndex = 4 ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 4 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Me.FormaatCmbBx.ListIndex = 4 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Me.FormaatCmbBx.ListIndex = 4 ElseIf PlotterCmbBx.Value = "EMN5028 A3 Copier Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 1 ElseIf PlotterCmbBx.Value = "EMN4833 A3 Kleuren Laser Proces" Then Me.FormaatCmbBx.ListIndex = 1 Else


pagina 36 van 46

End If Else End If If FormaatKaderLbl.Caption = "A1 ( 841 x 594 mm )" Then If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Me.FormaatCmbBx.ListIndex = 1 ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 1 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Me.FormaatCmbBx.ListIndex = 1 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Me.FormaatCmbBx.ListIndex = 1 Else End If ElseIf FormaatKaderLbl.Caption = "A2 ( 594 x 420 mm )" Then If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Me.FormaatCmbBx.ListIndex = 2 ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 2 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Me.FormaatCmbBx.ListIndex = 2 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Me.FormaatCmbBx.ListIndex = 2 Else End If ElseIf FormaatKaderLbl.Caption = "A3 ( 420 x 297 mm )" Then


pagina 37 van 46

If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Me.FormaatCmbBx.ListIndex = 3 ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 3 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Me.FormaatCmbBx.ListIndex = 3 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Me.FormaatCmbBx.ListIndex = 3 Else End If ElseIf FormaatKaderLbl.Caption = "A4 ( 210 x 297 mm )" Then If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then Me.FormaatCmbBx.ListIndex = 4 ElseIf FormaatKaderLbl.Caption = "EMN4858 A0 Plotter Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 4 ElseIf PlotterCmbBx.Value = "DWG To PDF" Then Me.FormaatCmbBx.ListIndex = 4 ElseIf PlotterCmbBx.Value = "PDF Creator" Then Me.FormaatCmbBx.ListIndex = 4 ElseIf FormaatKaderLbl.Caption = "EMN5028 A3 Copier Bouw/Civiel" Then Me.FormaatCmbBx.ListIndex = 1 ElseIf FormaatKaderLbl.Caption = "EMN4833 A3 Kleuren Laser Proces" Then Me.FormaatCmbBx.ListIndex = 1 Else End If Else


pagina 38 van 46

End If

End Sub

Private Sub PlottenBttn_Click() 'Bepalen plotter keuze Dim plotterkeuze As String Dim plottertype As String If PlotterCmbBx.Value = "EMN4868 A0 Plotter Archief" Then plotterkeuze = "\\emmtec050\emn4868" plottertype = "type1" ElseIf PlotterCmbBx.Value = "EMN4858 A0 Plotter Bouw/Civiel" Then plotterkeuze = "\\emmtec050\emn4858" plottertype = "type1" ElseIf PlotterCmbBx.Value = "EMN5028 A3 Copier Bouw/Civiel" Then plotterkeuze = "\\emmtec050\emn5028" plottertype = "type2" ElseIf PlotterCmbBx.Value = "EMN4833 A3 Kleuren Laser Proces" Then plotterkeuze = "\\emmtec050\emn4833" plottertype = "type3" ElseIf PlotterCmbBx.Value = "DWG To PDF" Then plotterkeuze = "DWG To PDF.pc3" plottertype = "type4" ElseIf PlotterCmbBx.Value = "PDF Creator" Then plotterkeuze = "PDFCreator" plottertype = "type3"


pagina 39 van 46

Else End If 'Bepalen formaat keuze Dim formaatkeuze As String If plottertype = "type1" Then If FormaatCmbBx.Value = "A0 ( 1189 x 841 mm )" Then formaatkeuze = "ISO A0 Borderless" ElseIf FormaatCmbBx.Value = "A1 ( 841 x 594 mm )" Then formaatkeuze = "ISO A1 Borderless" ElseIf FormaatCmbBx.Value = "A2 ( 594 x 420 mm )" Then formaatkeuze = "ISO A2 Borderless" ElseIf FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then formaatkeuze = "ISO A3 Borderless" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then formaatkeuze = "ISO A4 Borderless" Else End If ElseIf plottertype = "type2" Then If FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then formaatkeuze = "A3" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then formaatkeuze = "A4" Else End If ElseIf plottertype = "type3" Then If FormaatCmbBx.Value = "A0 ( 1189 x 841 mm )" Then


pagina 40 van 46

formaatkeuze = "A0" ElseIf FormaatCmbBx.Value = "A1 ( 841 x 594 mm )" Then formaatkeuze = "A1" ElseIf FormaatCmbBx.Value = "A2 ( 594 x 420 mm )" Then formaatkeuze = "A2" ElseIf FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then formaatkeuze = "A3" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then formaatkeuze = "A4" Else End If ElseIf plottertype = "type4" Then If FormaatCmbBx.Value = "A0 ( 1189 x 841 mm )" Then formaatkeuze = "ISO full bleed A0 (841.00 x 1189.00 MM)" ElseIf FormaatCmbBx.Value = "A1 ( 841 x 594 mm )" Then formaatkeuze = "ISO full bleed A1 (841.00 x 594.00 MM)" ElseIf FormaatCmbBx.Value = "A2 ( 594 x 420 mm )" Then formaatkeuze = "ISO full bleed A2 (594.00 x 420.00 MM)" ElseIf FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then formaatkeuze = "ISO full bleed A3 (420.00 x 297.00 MM)" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then formaatkeuze = "ISO full bleed A4 (210.00 x 297.00 MM)" Else End If Else End If


pagina 41 van 46

'Bepalen kader oriëntering Dim ori As String If FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then ori = "p" Else ori = "l" End If 'Bepalen schaal keuze Dim schaalkeuze As String If FormaatKaderCmbBx.Value = FormaatCmbBx.Value Then schaalkeuze = "1:1" ElseIf FormaatKaderLbl.Caption = FormaatCmbBx.Value Then schaalkeuze = "1:1" Else schaalkeuze = "fit" End If 'Bepalen plotstyle keuze Dim plotstylekeuze As String If schaalkeuze = "1:1" Then plotstylekeuze = "_01_EMMTEC.ctb" ElseIf FormaatKaderCmbBx.Value = "A0 ( 1189 x 841 mm )" Then If FormaatCmbBx.Value = "A1 ( 841 x 594 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A2 ( 594 x 420 mm )" Then plotstylekeuze = "_03_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then


pagina 42 van 46

plotstylekeuze = "_04_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_05_EMMTEC.ctb" ori = "l" Else End If ElseIf FormaatKaderLbl.Caption = "A0 ( 1189 x 841 mm )" Then If FormaatCmbBx.Value = "A1 ( 841 x 594 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A2 ( 594 x 420 mm )" Then plotstylekeuze = "_03_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then plotstylekeuze = "_04_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_05_EMMTEC.ctb" ori = "l" Else End If ElseIf FormaatKaderCmbBx.Value = "A1 ( 841 x 594 mm )" Then If FormaatCmbBx.Value = "A2 ( 594 x 420 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then plotstylekeuze = "_03_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_04_EMMTEC.ctb" ori = "l"


pagina 43 van 46

Else End If ElseIf FormaatKaderLbl.Caption = "A1 ( 841 x 594 mm )" Then If FormaatCmbBx.Value = "A2 ( 594 x 420 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then plotstylekeuze = "_03_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_04_EMMTEC.ctb" ori = "l" Else End If ElseIf FormaatKaderCmbBx.Value = "A2 ( 594 x 420 mm )" Then If FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_03_EMMTEC.ctb" ori = "l" Else End If ElseIf FormaatKaderLbl.Caption = "A2 ( 594 x 420 mm )" Then If FormaatCmbBx.Value = "A3 ( 420 x 297 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ElseIf FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_03_EMMTEC.ctb" ori = "l"


pagina 44 van 46

Else End If ElseIf FormaatKaderCmbBx.Value = "A3 ( 420 x 297 mm )" Then If FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ori = "l" Else End If ElseIf FormaatKaderLbl.Caption = "A3 ( 420 x 297 mm )" Then If FormaatCmbBx.Value = "A4 ( 210 x 297 mm )" Then plotstylekeuze = "_02_EMMTEC.ctb" ori = "l" Else End If Else End If 'Afdrukken tekening Dim a As Variant Dim ltscale As String If ChBxTransparency.Value = True Then ThisDrawing.SendCommand "PLOTTRANSPARENCYOVERRIDE" & vbCr & "2" & vbCr Else ThisDrawing.SendCommand "PLOTTRANSPARENCYOVERRIDE" & vbCr & "1" & vbCr End If ThisDrawing.SendCommand "LTSCALE" & vbCr & "1" & vbCr & "REGEN" & vbCr For a = 1 To AantalTxtBx.Value


pagina 45 van 46

If plotterkeuze = "DWG To PDF.pc3" Then ThisDrawing.SendCommand "-plot" & vbCr & "y" & vbCr & vbCr & plotterkeuze & vbCr & formaatkeuze & vbCr & "m" & vbCr & ori & vbCr & "n" & vbCr & "e" & vbCr & schaalkeuze & vbCr & "c" & vbCr & "y" & vbCr & plotstylekeuze & vbCr & "y" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "y" & vbCr Else ThisDrawing.SendCommand "-plot" & vbCr & "y" & vbCr & vbCr & plotterkeuze & vbCr & formaatkeuze & vbCr & "m" & vbCr & ori & vbCr & "n" & vbCr & "e" & vbCr & schaalkeuze & vbCr & "c" & vbCr & "y" & vbCr & plotstylekeuze & vbCr & "y" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "n" & vbCr & "y" & vbCr End If Next a ThisDrawing.SendCommand "PLOTTRANSPARENCYOVERRIDE" & vbCr & "1" & vbCr 'Afsluiten macro met behoud van instellingen Me.Hide End Sub Private Sub AfsluitenCmmndbttn_Click() 'Afsluiten macro met behoud van instellingen Me.Hide End Sub Private Sub HelpCmmndBttn_Click() ThisDrawing.SendCommand "start" & vbCr & "EEBC_Beschrijving.pdf" & vbCr End Sub


pagina 46 van 46

AutoCAD Plotroutine. Emmtec Engineering. Afdeling bouwkunde civiel

Recommend Documents