ࡱ> WPROJECTlkfdafoR3$`$A`$`nrU , 1Y 1i  )Qip ay 1YY!II Root Entry $@dVBA_Projectp5 $VBA_Project_Version(VBA `O5т( 7Z m !")$%&'9H+,-./01234568>:;d=?@ABDyEFGIJKLMNOPQ{ST]CXY#[\l^_`abcefghijkqnoprstuvwxz|}~   !"#$%&'()*+,-./013456789:;<=>?@ABCEFGHITVWXZ\^_`blfhjknpqrtuvwxz|}~ac#$,j(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1":5j(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1g8j(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1Kѽj(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1Aljj(6(H9368265E-85FE-11d1-BlockVerE=`O5sWPROJECTwmYPROJECT =fE8BE3-0000F8754DA1CB1}" Document=ThisDrawinID="{CD53B92E-359D-4997-9F0B-1E1BCDBFC246}" Document=ThisDrawing/&H00000000 Module=Modul1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=DWGFORMAT HelpFile="" Name="DWG_FORMAT"rU~~~~~~~q a   DWG's formatieren Q   K*mo6CompObj CaVBFrame>ThisDrawing __SRP_4__SRP_538BModul1'DWGFORMAT*KrU~~~~~~~~~~~~~~~~~~~~~~9 \*sWdcl[ h%^*\G{00020430v-C 0046}#2.0#0#C:\Windows\SysWOW64\22.tlb#OL@E AutosoFn0MSFs>SFxs3 ED452EE1-E08F-101A-8-02608C4 D0BB4EFM20.DLL#Microsoft : ^ Object Libr@ary/;D1?u00}#0@# 5h0 A7E22F6FC-1CE9-42A2A7-9FA896735FF@FYUsers\BOROWS~1\AppData\Local\Temp\VBE\U.exd<@".E .`M A @MSC omctl@H>iCgmcQ@lL@bk|4831FDD@16-0C561`D2-A98NF8754DA1kDow@msc.Xocx/D @#monntrols 6.0 (SP4)n;0;ValueKTypCmbVerzeichnis_Click9OoShell1UoFolder>BrowseForFolder TextBox1SSelf CmbOK_ClickregpfadUWertK6aX cmbEnde_ClickcmdDurchlauf_Click_MyErrorHandler DateinameO ImportPfadI ExportPfadp DateiZahlzi` ProgressBar1vMaxȲtAcadAppAcadApplication  Application* SetVariable?RtAcadDoc AcadDocumentZ DocumentsCaptionxPurgeAll6Q ZoomExtents+SaveMsgBoxRUserForm_Initialize5cFrame1CmbEndePicture* ImageList1c ListImages~*PicturePositionCdfmPicturePositionLeftBottomCmbOKuCmbVerzeichniscfmPicturePositionCenter)UserFormN cmdDurchlaufClick InitializeNControlDefaultTextBox2S vbInformationn aktWinState aktHeightLaktWidthWNewBlockQ AcadBlockBlockDefNVAcadBlockReferenceMinVPKreis AcadCircle,VPschrafx AcadHatchInsPktSset/.AcadSelectionSetEntity AcadEntityicolor1&Jcolor2'JNewDoc+Addr PreferencesDisplayGraphicsWinModelBackgrndColorZ WindowState|acNormnHeight| ModelSpace_ InsertBlockcNUpdate SelectionSetsErroNumber-ClearacSelectionSetAll.ExportDeletexThis̹Wblockhex&]ExpKimpoW _B_var_InsPkt'ins@Itemz SendCommandcvbCr$BlockqGetBoundingBoxYmi?^ma7^acSelectionSetCrossingRegen acActiveViewportrNl  H$$1 k|x/4xME (6 "<@ `|kp% #vyj6(H@ŘL$*\Rffff*1C4cbea0e3$*\Rffff*0_4cbe9d12"  ( B@ o`XWAttribute VB_Name = "Modul1" Sub User_Dialog()  DWGFORMAT.Show End T (<jx/4 #<r„BfDf01&I>g8ƳA\xg8ƳA\r„BfDf0ME(SLSS6"N0{D70E31AD-2614-49F2-B0FC-ACA781D81F3E} (VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DWGFORMAT Caption = "Optionen... / Grundeinstellungen" ClientHeight = 2445 ClientLeft = 45 ClientTop = 435 ClientWidth = 4785 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 74 End 0 Microsoft Forms 2.0 FormEmbedded Object9q@$H @J} H{@$ ":5j(6(!:5j(6( :5j(6(<k   6L XUxgd]>L XUFʣME8`SPSSS  *LL]''@/4E`Fʣf4Irύ]%j wC gd]>L XUxgd]>L XUFʣME8`SPSSS  *LL>"0dLL"L LLPLLLPLLLLLLLP<<<<<<<<<<<<<<<<<<0{87005ED9-78D8-4045-9F26-40666A1FC095}{9CA7096A-E3F8-4377-B396-BF1EC21109B7}`H,"`Tk@ i$ `i `&t 7C,,x`( (k  i$ 46i.i0@i  `&h 2`  `4 `6 >p` Hk )`@x`Bt@Dd F`| 6 H` doTT=`Lp`Nl`Ph`R`T d%  `% r`xk `@ `BH@%pH %"40@ 4%4%REG_SZhtvz8%xxp  Hh@0l x@\ Expo@X Dat(T`%Hh@D @@ @0 @, @ @ X@`%x( p`%X(":----  ' @hhh"eend`"PxaluehsDrawiPtion.P*es.Display.Gph@d olor@T ' ' H 0 `% 8 @ H X p @ Phx X 8 x ` 8 :~Vh@ x @ t @  @ @ @ @ p@ X@ @P  (@  ,  @  @ H lp @ (X@  :,@` @\ @Z @H X0` h h, `, z   `$tH`.p`p0`0lX*@X @H @8 h@( @ @(t @d %"'hxxHd 8ŘL$*\Rffff*0_4cbe9d12*\R4*#1b4*\R4*#122*\R4*#173*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\Windows\SysWow64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#53*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\Windows\SysWow64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R2*#33*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\Windows\SysWow64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42L*\G{84353AA6-88EE-4839-9AB7-5796A60C1FBB}#2.0#0#C:\Users\borowski2cad\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#62L*\G{84353AA6-88EE-4839-9AB7-5796A60C1FBB}#2.0#0#C:\Users\borowski2cad\Application Data\Microsoft\Forms\MSComctlLD 2010 pTypeer@B/45ThisDrawingGSTi@D@aw@Sng2*H1"X"," a+"Modul1G"M dd+l1!2 ~ !" 1GFORM`9TM2/@/EZ#(@ brU d,`q008A`q REG_SZ#$`$`ib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#60L*\G{84353AA6-88EE-4839-9AB7-5796A60C1FBB}#2.0#0#C:\Users\borowski2cad\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#5d*\G{AC2DE821-36A2-11CF-8053-00#$,j(6("$,j(6(!$,j(6(o$ 4CmbOKox1; $#Frame1x1$8CmbEnde1; P s3$ImageList1adg 9368265E-85FE-11d1-8BE3-0000F8754DA1 a8%H` a ( 8 H  X hPathValueTypJDf01&I>g8ƳA\Oą Jr>$&3 AcadDocument I @PH4сI|MFʣf4Irύ]%j wC gd]>L XU{lFWJOCmbVerzeichnis!-6S` @ȏ[qJ eUserFormN! ͡Ni F3Dynamic  P cmdDurchlaufҋB `TextBox1?F`Frame1!:5j(6( ProgressBar1:59HW  a `CmbEnde"$,j(6( ImageList1CmbOKRegReadRegWriteCmbVerzeichnis_Click CmbOK_Click cmbEnde_ClickcmdDurchlauf_ClickUserForm_Initialize d4 "DWG's formj(6(Jѽj(6(Iѽj(6(<k!g8j(6(g8j(6(g8j(6( P  $ImageList1oS"9368265E-85FE-11d1-8BE3-0000F8754DA1$LProEnd4( HBlockEin11o!/4( # FrameOrdner( #PreviewFrmr( DCmdOptionen44# FrameEinfuegeOptionengenM.$#FramePDF`OM.,#FrameBildGross`O, XToggleButton1sI4T 2 $StatusBar1onf79368265E-85FE-11d1-8BE3-0000F8754DA1, !2<LabelPInfoona4$",cmdPInfo/h4 0h4 ,,a[ )X@,6D0  c C ,  lX $ X h/Xx 8(1 T ,AA006009FA}#2.0#0#C:\Windows\SysWow64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28*\R0*#14*\R4*#2b$*\Rffff*0O4cbe9c50*\G{E072BCE4-9027-4F86-BAE2-EF119FD0A0D3}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax18enu.tlb#AutoCAD 2010 Type Library*#182*\R0*#11L*\G{84353AA6-88EE-4839-9AB7-5796A60C1FBB}#2.0#0#C:\Users\borowski2cad\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#36*\R4*#19f*\G{E072BCE4-9027-4F86-BAE2-EF119FD0A0D3}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax18enu.tlb#AutoCAD 2010 Type Library*#91*\G{E072BCE4-9027-4F86-BAE2-EF119FD0A0D3}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax18enu.tlb#AutoCAD 2010 Type Library*#93*\R4*#b6*\R4*#94*\G{E072BCE4-9027-4F86-BAE2-EF119FD0A0D3}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax18enu.tlb#AutoCAD 2010 Type Library*#184*\G{E072BCE4-9027-4F86-BAE2-EF119FD0A0D3}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax18enu.tlb#AutoCAD 2010 Type Library*#19a*\R4*#19b*\R0*#13*\R0*#19*\R4*#19b*\R4*#e*\R4*#8fL*\G{84353AA6-88EE-4839-9AB7-5796A60C1FBB}#2.0#0#C:\Users\borowski2cad\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#38*\R4*#182*\R0*#e*\R4*#1fo(*CompObjpi27. n`` TzLsW9e*\R4*#184*\R4*#15*\G{E072BCE4-9027-4F86-BAE2-EF119FD0A0D3}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax18enu.tlb#AutoCAD 2010 Type Library*#198*\R4*#182 8<@DHLPTX PB X`hp P PBh  P PH" "8  8@ PH P"@ HX x R R" 8@H RP R" R,` Rpx RH RPX6*p h REx RH0@  R        !    ( 2U8  p F  "h     6..    1)  &  (    [ !"#$%&'()*+,-Y?@ABDFGHIJKLMNOPQRSTy]^_`bdefghxjklmoqrsuvwz{|}~M ;     8   >3 P PX "   P @ cH `  h   c     c   P H P @X ,  xI##--Lesen der Information aus der Registry-------------------------------]( WScript.Shell$*.& $ &%"'"zP(H'"i8I-------------------------------------------------------------------------I##--Schreiben der Information in die Registry----------------------------REG_SZ]`(h WScript.Shell$*.& $ . 0 &B@,',z (',iI-------------------------------------------------------------------------I##--Ordner-Auswahl-Dialog aufrufen---------------------------------------x]]Shell.Application$*.4Bitte einen Ordner auswhlen 4%8.6 6 6!<!$ :(.koJ--------------------------------------------------------------------------J##--Programm beenden inkl. bernahme der Regristry - Eintragung-----------](]@]X8HKEY_CURRENT_USER\Software\Autodesk\DB_Tuning\DWG_FORMAT'@ :!d'B @ BREG_SZ$,'DgoxK---------------------------------------------------------------------------K##--Programm beenden / abbrechen-------------------------------------------pgoK---------------------------------------------------------------------------K##--Programmdurchlauf / DWG laden verndern und als WMF abspeichern--------K--Fehlerbehandlung wenn kein Eintrag in der TextBox------------------------ :!dGJj !^!f!. WL--Neue Zeichnung ffnen und die Hintergrundfarbe auf wei stellen-----------ate As"--Fortschrittsbalken um 1 erhhen. ~'LK--Variablen fr Verzeichnis / Dateiauswahl---------------------------------]]] K--Variablen fr die Blockbehandlung----------------------------------------] N'P]xL--Anzahl Dateien ermitteln fr Maximale Anzahl im Fortschrittsbalken--------K--Variablen Allgemein------------------------------------------------------]X 2)  X B@   X B@HL--ImportPfad und ExportPfad festlegen--------------------------------------- :!.\'N".Das Verzeichnis wird ber Ordnerauswahl in die]8Phl'T N*.dwg$ ~'Rzahl i Rbtsba T 'Tte$ ~'Rtring, T !V(X N*.dwg$~'LteiZah LbortP  N L !%. B@.Z L (hiZah B@jA@]x D _vscurrent 2d  B@da B@umber |J$Es wurde kein Verzeichnis ausgewhlt@HinweisA@poPI##--UserForm fllen------------------------------------------------------DWG's formatieren (h Einstellungen !t(hI##--Festlegung der CommandButton Eigenschaften--------------------------- v z%|!x9x 9~ Abbruch9hq   z%|!x9x 9~ OK9hq   z%|!x9x 9~q I##--Pfad fr den Registry festlegen--------------------------------------]]8HKEY_CURRENT_USER\Software\Autodesk\DB_Tuning\DWG_FORMAT'@ @$" !:(do A@ B@rawing V V!X Gxj V 'Vrt B@Bect acDurchlauf beendet (hen V(.`]h]] +F+F+F## P L  B@P$A@l`$H$  B@llMyBlock %.@##--wie kann ich hier noch einstellen, so das der Attributstexte##--nicht angezeigt werden?0##--Virtuellen Stil auf 2D-Drahtkrper eins(OK0g uTahoma(Abbruchg uTahomah!C4~%Bͫlt~h( /!6ANFUHVDUYbgpsyz}Vfjt-C4J;ΧG`o:mK6/;TATB68z)m}IJ$q}FqԼ" U 0#28!s9猈wpVTT_u><#cyjMpR PҴe$]UH{Z[X~;mmHRNYRqZQ[k5sfahc$҆*6]6姰q}V%DnrQ}HNa 򮘢D{xeÀ[PT 0&=JSjg'Q;ʫiU OSD)!lw#EfTl<.ylNsFk<38}Ny;.>J[UOiꐶ@G(sjA ,sZ~E`AJ x94nʧ^aL"6\-m],d:7 ! iΦP,Gy]7U#!(m%J=@W|3ghUFk˜?I%zc4`zh^n'-ʕ hL22-SUg~-inii!89mI԰m+k6 +RJРzN솃55m|inCB9AkiĘ`﬊lb:SWVJGUA@H[iiTpRFyrI7hp஍o{ZR?b}cLcfe>*{RQFrO?m;Z.̗қ}o(#{K@/i;sJTs4GIXTm==,z??lt~h( 2=:DSYAJPVORNYjnnrz{go}~/-.01'..023&6&:';"7%?1B)@/F1E5L?S@NK\`kirt~G[N`TcRc[jfwj{|}|+' 0&0$=# ()4"% * -!;8973.1 >277;@, A?5??lt006 h(0`sk{JZk9)Zck{!)!191JRRZks{}!y!!119B)yJZRZkkcsBy{!)1BBRRcZss)9BJJRck{JZckk^^^^^JalTJ3^^^^JVktZSJNW^^^JJ(Hccccc`o/KR^^^Jzfffffffffv_74J^^^^J9kAAAAAAAAAAAActZSJ^^^^Jn.AAAAAAAAAAAAAAABB`:6/^^^^Jo|}BBBBBBBBBBBBBBBBBBBBB+]7O^Jqy'-----------------------d*^JV.''''''''''''''''''''''''c0^JO(########################&;JooC2^Jo9&^JoMQ^Jp~z7^J[atierenpj).`$$,j(6(&$,j(6( {20 ďYl|  Abbruch  OK pHKEY_CURRENT_USER\Software\Autodesk\DB_Tuning\DWG_FORMATҋB ` WScript.ShellRegRead VBE6.DLL  p \ *.dwg=$0I*h?P6.҂CO X$.Q m;}CU&X3@?\IsY^JuLm T^Ju~D8^Jwa P^JbkM(  ,;^Ji{xxxx_Oy|  U^J{AAAAAcr7SJseC|  >g^Jk----------@=:64JD HQ^J$'''''''''''''''-5D ?^^J$"1D FY^J}4seCE|\^^J! )6PseC|(C8^JIJJJJJJJJJJ^JJJJJj%%mJJ%G\JJzF JJh  XJJJJJJ\,hE 1P T='G3j]ഭ;sС6&Ķ'E294DdWTFAjwMއfxeR' a6YѬX6ɢCn-mAH52}fVJ&߾A.YYhJ\lNy+֔a.xE}aK-I7 A+YS2(XI{ec I$h5AJ#k{ ǒRvIl)r+qUG}R pt uMB@! !=E6Z,In.C^ W=0%{pisKZx !j[m(ldFA VrwR\V$+FSfV?;}r jJRYCnSCVDӼ=|h߉VWWU-<L4>nU퐏uzIikB#b'oߍHEbڦxEnTS'zUhwmRۧ0jC$VR6mtNd3sV|Uimn{joۼ-h*%`p##w:VUE~OsMMΫi:ZQk`.LSc,r||i}m6f}N5:NRRк_vENJc@G5CW9ۼ>ABҭ֗A4^R딭 e2ZuHIRt:.십:RӲtY;FZ[GU1>gӰm 6Rsxڸ,5.(EQQEEEETQ|*(E_uTahomaнƯƯֻPH  }!Verfgbare Datenbltter / PDFR KQDBTahomaX( 8ComboBox2me.$ cmdpdf M n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q , ckBoxUrsprung"$* DH  }? ? Blockvorschau groR KQDBTahoma47, ImageBildGrossen 8BE3-0000F8754DA1 }kDWG's formatJ%hJJJJFH JJ  |JJJJJJJJJJJJJJ??( y[?O{ {kyz!%(kBBRoB rZ## "# #!$#%& # # J$BBBBfoQ^^J}-------7Plt~h( zyz112????@D@@D@F,L*G!@ I!K*X1]-\4`9b:e:c<e<hNfQhTmQoSoTu_vdiAlGmBoGpGqMuJvNiPmWmW}_rGsE|S}QWprY͆iԋn׍o}Ɍxdekmnvx̏ɑ̛̚ݜ֦ת׬᠇ά˰IJϴ۰ŶȸӹݻݼJFFJJEHK__KHEJHGWM-LWGHJGV" =]]/UGJEW! Rdd$-WEJHO R`d$MHJFK0 Rad7 KF_& Rad< __*&%Rad7 _FK;%+%Sbd# KFJHS++,521OHJE[P55@bc?&9ZEJG\T5DddB%;XGJHG[YC@@?Q[GHJEHK__KHEJJFFJlt~h( @ͻ}xuFGI(%'ujyz-# D9Gԇvn0&'(2-{qqmmtO^^x.Dh')-,Wɖ"MK{e\WSOD#WK]tt}}>J*JyqdZC-,zzww<Xa#z&jϨ̙zf%@cp^c۽AJ9Ϫ{{MZԬ͛ծ԰jjÔ״ҧضֲy|ivi28+ ) n``N{LsWfo-/{ CompObjypzzzzzzzzzzzzzzzzzzzzzzzzzXXyXzzzzzzzzzXXsstuvwxzzzzzzXklm[nopqr'zzzzXabcdefghij'zUVWXYZ[\V]^S_`'zKLMNO6PQ!RST1'?@AB CD89EFGHIJ'23456789:;2<=>'()*+,-./01'  !"#$%&'zz zz zzzz zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz΀Y00.?Yellen 9ȷAttribute VB_Name = "DWGFORMAT" " Bas0{87005ED9-78D8-4045-9F26666A1FC095}{9CA7096A-E3FJ377-B396-BF1EC21109B7} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDOption 0licit Dim NewDoc As Acadumen '##--Lesen der Inform"a!aus Registry- Pub9 Func Rea@d(Path=Sng)'w@%s Objec$ O/rror GoTo ErrHandler ASet = ae("WScript.Shell") 1aws.#Exit+ :"End 'C  aSchr(eibbifie /aaWrite(ByVal b, C@uee, _@[1TypY"R@EG_SZ"yBooleanyaO<;B, B, 9= q?~gdt_@>1F@Ordner-Auswahl-Dialog aufrufen "F@Sub CmbVerzeichnis_Csk(`_=o"e7C+4oFol!`!@n o.App "'ob = .BrowseFor(0, "Bitein_c swhlen", 1aIf Not %Ishing TheLaaTextBpox1.Z@c .Self.!`CB9If nd %p_,?#f:Programm beendinkl. bernahށ-@{rb{ - Eintragungh :@`:OK9regpf4ad9S¬9Wetrtma%HKEY_CURRENT_USER@\Softw\Autodesk\DB_Tun-\@_f- j./c a`h(, >/ abbrec#cmb e  bu%durch"l0B /  lBaA&ver&rn u-0 WMFsp@' dD7 1Fe80rbehx) w`enn k@;+ qj07  p<41.Qc"2<4MyxoGVarin fr HMq1iRS1D!nAN3ImportP4!{-- dzBlockO  ;DefRef`erencPAllgem@3InsPkt(2"}DoPDd0)0:21c = 0fMLin<Rax_ Ss@P[@Cd<--NeZRm(ffc.BHTergrfa +t*i stt Qj0LhisDraw pNm.%s.Ad>dD"!#festleg/{ 1W'Tk& "\@" 'Dasj/wird `d #s/R8i= B"Anz@ 0Q`iermQxl5MaximaT0Y {ts0Ps@ko ^ZA65, i*Inti"8= D0ir$( *.dwgDo Whi<> A =0+ 1/C LoopMe.BSessBar1.0iO@ Res0Ԁx0 r9 &f;+&Model.4zr(5,X &%0.Upd` wHkaZ hiY`noch A0, so d%B$xt0$lbn@t angeger`f?S6GeЗ104P `?<, q`CaAn = Dateiname '##--Virtuellen Stil auf 2D-Drahtkrper slThis0.Max@KEx`it DoJ = ALoopGNewDoc.Clos4Me.C aptio"D urchlbeAet" .Value@/0YB$Sub My@ErrorHler:MsgBox "Es w@urde k@ Verzeichnissgewhlt", 64, "HinweisE User@[m fA-2A5Tiv  _Initiali8ze(@4 GWG's forma8tie@(OFrame1IQEinst@un͂1B.Festleg@ dButt_Ei @afex With Cmb#DR.Pictur2ImageList1.ás(2)E21PosB?fmeLeftBo `mdD Abbruch3Asa5EOK F1 OKthN(s(3C@e{"?fr@?n @4ry 2fCBenX! Dim regpiAs@rWpert hE= "HKEY_CURRENT_USER\Software\Autodesk\DB_Tun \DWG_FORMAT)! .Tex9Cx1 ;Rexad(d gBv NewDoc = ThisDrawing.ApplicxAttribute VB_Name = "ThisDrawing" Bas0{D70E31AD-2614-49F2-B0FC-ACA781D81F3E} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2  Me.ProgressBar1.Max = i%Dateinarame User_Dialog (zmAL4[QYYY( MyBlockRegWrite 2D 2di/QFe+D_~G9@u*9 Set Sset = ThisDrawing.SelectionSets.Add("MySel")! Sset.Select acSelectionSetAllb 'ThisDrawing.Export Left(ExportPfad & Dateiname, Len(ExportPfad & Dateiname) - 4), "bmp", Ssetb 'ThisDrawing.Export Left(ExportPfad & Dateiname, Len(ExportPfad & Dateiname) - 4), "jpg", Sset NewDoc.Closer Me.Caption = "Durchlauf beendet"MiRThisDrawing.Application.Preferences.Display.GraphicsWinModelBackgrndColor = color2 B@rawrU 5 1Y 1i  )Qip ay 1YY!II y1!Aa  A i  8  `<a  ` @ a `ID  H  L 19  P  ` T Q! X A`eWW\-KJd  d4t5dl @td`1x5d/Cx/ (\,1xtdxl CtlCplClKfX  X4h5X t@p@l@h0pz/pz/Tx41tlphX0 x  P Cx\`! ` l>\1t`Z/lt<a  `rU @n oL %<9stdole>*sWdcl[ h%^*\G{00020430v-rU `a4 ) ^`a  @ a `ID  H  L 19 CompObjSpi18,1 n``0}PyLsW_VBA_PROJECTi01! n``LK9iOfio "g`CompObjepCompObjaplx kZHd4P01xdt\`0 p  $'tx! x llt0/tx.HHHE'%x$ xx  ,4l=[4)x0x! x :`1lx6llChpll*F 15 l=* kp' 15!kj%x x,xll*F 1p5K lp=U'%9999lllp*#tHM %x$ x l=`/t)x `  YM`,YM`` p@,.)**#t2*#**#$ l2t$ 8 $ ( ,$- 1:.%x$ x l= )x)'%'%M %,M % H  #&l= [xlhlp*#t$ $/tx ` ,$  X ' 1p5H! ax! xa**)x6`;x! xa*j%! ,)x5 #l'%'%X4 H:%%,j%x! x,x3'd't:&N@:'N (6td$1 d,Hpl`h8 txtd :l%,X 3X @XX! 3QXTc(l%X! 3XaD@@0,,a[T )X@,6D0T  T 0cTX! 3QXc(l%X! 3XaD@@0,,a[ )X@,6D0    0cX! 3QXc(l%X! 3XaD@@0,,a[ )X@,6D0  c C ,  lX $ 3X h/Xx 8(1__SRP_77gi14 n``0~1O`TO\\f T ,X@,D08XP@<(md6{_jC xk!f'0 2y ""𠑝RTtnoch_tZtvbIndjonuB!рach0d 'El!'akt~# ۠LongP FAkgpb"Acad$@RDMinIDoubli om VPKBsCirc&VPQafHatchTm Entitpy(0)5'@farb 1Varian'4-GB(255, E-color2 As Variant  'co= R@GB(0, )\Set NewDoc = ThisDrawing.Application.:uments.A ddhNPreferences.Display.GraphicsWinModelBackgrndnCs1TImportPfadextBox2.Value & "\" 'Daerzeichnis wird ber Ordnerauswahl in die)Ex)0  dPdowState>acNorm Heig$ht20dth ''' (AnzFD)ien ermitteln fr Maximale!im Fschrsbalkhen.$-A l D#ZA&SDtr{, iI@ntegerB i_39 / =r $(je*.dw g" o Whi5<> ""Fi + {PCLoopB Me.Progress`Bar1.K@$iGnamjDtirV$D# #  BlockDefɃBSpace.Inser t (Pkt,F @F#, 10 3 .UpdR/ 8CapA؀"ZoomExtAGOn Error Res@ zx~3!Ss|{SelecAs(" MyD8 If! .NumkThen on q End  GpoTo L1.pCleaPC ac@ All@ DoEv"!'i' Left(h& h6Lent) - 4), "bmp", )d @ Xf w,mfk d ei^ jpg d&TDBt(VPK8rei af~.J"'  um 1 hJ"6'' f*fi%E@V > aY Exit Do =JF᚟FL Vos&y"Durchlauf beendeta =_I}_T2 &7Sub _SZ$.'FgXoPK---------------------------------------------------------------------------K##--Programm beenden / abbrechen-------------------------------------------goK---------------------------------------------------------------------------K##--Programmdurchlauf / DWG laden verndern und als WMF abspeichern--------K--Fehlerbehandlung wenn kein Eintrag in der TextBox------------------------ <!dGLjK--Variablen fr WindowState / Fenstergre festlegen-----------------------]](]@K--Variablen fr Verzeichnis / Dateiauswahl---------------------------------]X]p]K--Variablen fr die Blockbehandlung----------------------------------------]]K--Variablen fr die Krei.-/Schraffurerstellung----------------------------- 7 ]]] aK--Zuweisung der Hinterrundfarben / Graphicbereich-------------------------- (]X$@'l wei]p$@'n schwarzK--Variablen Allgemein------------------------------------------------------1]]]]L--Neue Zeichnung ffnen und die Hintergrundfarbe auf wei stellen----------- !|!~!.  l !|!!(L--ImportPfad und ExportPfad festlegen--------------------------------------- <!0\'V".Das Verzeichnis wird ber Ordnerauswahl in die V'X0--Die Fenstergre der neuen Zeichnung festlegen  ($ Standardgre ($ neue Hhe ($ neue BreiteL--Anzahl der *.dwg Dateien aus dem ausgewhlten Verzeichnis ermitteln-------]X]p' V*.dwg$ ~' b  '$ ~'^L--bergabe der Dateianzahl an die Progrssbar--------------------------------  !(rk +F+F+-- V*_P.dwg$ ~'T  Ansicht = SWcht k+F+F+F V*_F.dwg$~'T+ Ansicht = Draufsichtcht k+F+F+F V*_D.dwg$~'T+ Ansicht = Draufsichtcht k+F+F+F V*_S.dwg$~'T+ Ansicht = Draufsichtcht ],--Markierung (Kreis)am Einfgepunkt setzen--wg; _FA@ Tb j V T !%.^ ^B@ j? !%.b  b( bB@Solid !%.f b2x x fB@  f( fB@  !( ! (A@ T ( BlockDef.GetBoundingBox Min, Max !|B@?  !|B@"ThisDrawing.Regen acActiveViewportfsqo02oCompObjmp__SRP_05%__SRP_16 w__SRP_34 __SRP_2D__SRP_6MySel %.t !MySel !%.tk tB@  tB@HA@ X T X T $wmf t B@ ^B@ bB@ fB@ tB@#--Fortschrittsbalken um 1 erhhen-- ~'T  !r Gxj  'A@ B@BDurchlauf beendet ( (0 n !|!!(|0 L( $Es wurde kein Verzeichnis ausgewhlt@HinweisA@o I##--UserForm fllen------------------------------------------------------I##--Festlegung der OptionsButtonGroup FrameWMF und deren Eigenschaften---FrameWMF (FrameWMF (FrameWMF (FrameWMF ( 90n9 2D [ _S.dwg]9q  n9 2D [ _D.dwg]9qp  n9 2D [ _F.dwg]9q@  n9 3D [ _P.dwg]9q I-------------------------------------------------------------------------I##--Festlegung der CommandButton Eigenschaften---------------------------  %!9 9 Abbruch9q(   %!9 9 OK9q  %!9 9qI-------------------------------------------------------------------------I##--Pfad fr den Registry festlegen--------------------------------------]]5HKEY_CURRENT_USER\Software\Autodesk\DB_Tuning\DWG_WMF'B B$$ !<(doI-------------------------------------------------------------------------L--Ansichten vordefinieren---------------------------------------------------M--Laden der *.dwg#s und als *.wmf's wieder abspeichern-----------------------Attribute VB_Name = "DWGWMF1" Basx0{513AD28A-D0E1-4E5B-9AFD-6BBAC2216D37}{6634B4C1-F7B8-4884-AF1D-7638334A8DEE} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit Dim NewDoc As Acadument 'neue Zeichnung ffnen '##--Lesen der In forma-aus Registry- PubE Func Read(Path$S@ng) -w@+s Objec1 O5rror GoTo ErrHan@dler ASHet = ge("WScript.Shell") gws.C#Exit+ * :"En:d 'CaSchreibbif8ie /aaWrite(ByVal b, C@」h, _@[TyptY"REG_SZ"yBooleaS<1F@Ordner-Auswahl-Dialog aufrufen "F@Sub CmbVerzis_Csk(`_=1o"e7eoFol!A!@n o.App "ob = .BrowseFor(0, "Biti`ei` c swhlen", 1aIf Not oD IshiThaaTextBox1.Z@#.Self.!`CB9If nd %_,?#f:Programm beend{inkl. bernah@-@{rb{ - Eintragh :@'@:OK9regpfad9S¬cWertma%@HKEY_CURRENT_USER\Softw\Autodesk\DB_Tun-\_ `-" `je./ ah(,  UBqpO_U/ abbrec#kcmb e  {E%d urchlB /" ` la&ver&rn u-̀ spq@p's dD7 R1Fe8rbehqxwenn k;*> Aj7  3@<41.!c" <~Myxo`Varin fr WindowSt0/ Fenstergre festlegR S1akt0pNInt ЅOHeighb3Long(dsSݏ V i@\oSD!n` y--[d Blockg DGDefReferenc0 K.-/SaffurerrllO/ 3VPCircl1VPs" HatchSIn@sPkt(2Do Zuweis-YHPXerr)4fa/nGraphic[a4o color1bn$= RGB(255, E)C '221UPs!s '0 [z2OAllgem:/  MinLMax_ Ss,a w`Entity(0!d N0sqL#Sgf Q #9j? jhi`sDrawl.Es.Add 6To.,s.HDis`y.!sDM@rlBackgrndC < =?KO0T@wӎ& "\@" 'DasHwird +tIb[i 0= DCzV!2nnHv [MdowState = acNorm 'ndardgre ThisDrawing.Height20 'neue Hh ^Width\ ^Breit1 '--Anzahl der *.dwg Dien ausmgewhltVerzeichnis ermitteln-A Dim>ZRAs Str i Inte@ger iN0 6= Dir$(ImportPfad & " H")o While/<> "" &i +< 1` * Lo opybergabezaan die Progrssbarm Me.essBar1.Maxmi5svordefiniereLAWNewIection(0@ To 2)VDoubltIf OB_2D_S@!$Tr@Thm'An!ufC CTnamAM`_SA`AZ)h0: 1(=AgEnd If  F)D@)"*_jD)(V)F)B_F)3D_PLSW2=m_P-1q=(`LadCP#s u`Aalswmf's wieabsp!erdbWSet Bloc0kDefA"ModelSpace.Insert(`Pkt, a , 1E0 ` .Upd +!Mark{ung (Ks)am Einfgepunkt setz$2oEvpents! VPbwAddCircle&0.5Da.color@ acRed Icsch ra(Hatch(0, "Solid", ay! Entity(0ႄC .AppendOuter (C:dIKA@veView.@%@+ ZoomAllxCapa&'F%GetBo1sBox Min, `ecpplica.Exf$Scaled 0.9,Rel@vpdq ')Rp{@c] On Err&ResudNex6ta S/ Sells("Myfb.Numz 1lB>.),g! Go tr .Cle~aSPlDjÔّExit DoZ=XF q:oc os+5"Durchlauf b2e@Eeti.Val=  0HA&5PrefecesAsplay.GraphicsWindBackgrndCdVBIF2URSub`y1Handler":sMsg>"EouС keinb 9ausķ64 Hinwei>s A1-@v##--U@m m f8llo--@ Privpm  %_Initialize( YFestleg o{OMsButtonGroup FrameWMF0%Eige2nP&afJ m3D Np%"4F Wid&"Am$1 14C.\"2D [ ]0 Q~D"F RA3  C/$7,'1,,%CommP3#%#1DCmb`l.P icturImageList1.Qs%HPos/on@)fm<]Bo.m_ Abbruch PWith Cmb OK .Picture = ImageLi0st1.8s( 1) Positionpfm&LeftBottomfCapV" OK" End   Verzei`chnis k30Center@ '-Ef'##--Pfad fr den Regry fes@tlegen7 Dim regp&As String Wert = "HKEY_CURRENT_USER\Software\Autodesk\DB_Tun@\DWG_W macht ihn zum aktu @CKPickC #jNewfAcad= 1WSet = ThisDr@awing.s(&KG1DFreDLXo o ` 7cQQo )o er pd?>#%_Q10otoD!14 0>__P8GMD`Sty"fbmNonSqMModl&,5ZoomO    9 r r s  re 5QPn@(0i 1)P7ؠ)p%.Add("Beschlge"@_&rs#So`i`)!'߀?3wZeichnung aus 'und bergibt sie an dCombobox 1. Dim entry As AcadLayer For Each@In ThisDrawing>.PRBox1.AddIteW.NameO@Next 'Value = "Beschlg e"(' ImageList zuordnen Set TreeView1.E!=-1 S0tartg'Public sD0irec xStre = Optio6.TWhT+Alle OGr in CB:zeigOCall LoadWithFoldPers(W,>,D "!Zu"O@ffen")statusBar1@.Width558 + kPanels(1XTAusgewhlter@ BlockA & "DX410x E@8Sub'###Fgt denn@?ZeiBcÝein- Private Ein1_Cek(0Me.8HidB-Pahth1ASjJ2R A =$Ver.CaAK\K = Ri0ght(Q`^, Len) - 2k2eLefPrevFrm.Co`ols.Cleaq 'Wi"e{holnbis cFP=%sߦ 2$ (7 'nchs oDpoiCfB ' AufrufPvr Funkч ohne Par0|!!ndexp{*0Loop Ne&wMSМms#]LastTopDo ;wa!iA}coloruVarian$`qGB(247, E)hellblaui @zat1@ fs P~ato wmAnzaLhl& = On ErrResume c = 1f= 5 U##h9+ Ч1= %Ls(".1O)&.Hhzt@7T:SizeM`= fBm<ZoomBackC0S>PAd-.EnaTQ>Ta B$= Tt'C')BxScroll*+-e.+5  >)- 125xa 5= E x+ 8!Q =W q Qim; = C./AX <+S(YQ0q$/װA"O}1)ƀ#M}ock = " & C.Name With ImageBildGross '=2_1<"Q! m1=en_ )@'<"|F=Me.Hidy/Path1)0*22as!gjh U:  = Right(v , Len) - 21Zf 2`Left( c 4)L.dwg@TB!#1  ThisDrawW.Act@iveLaya='g'bs(el1. Value  A- ,""(Replace+a2@j\l"/<")BIxheck@uUrsprung# zPSend@mw "(binB& ")vbC@by bBkin2O81 )%)?%i :\i"i$%`@ Bp% D%+F` 1)%)? (%i"/4xMET@0 0&0,> "Lo;BcPasswort?AOԚfPfto>@pLLPLLPP  " $$F.D* Alle Verzeichnisse des Ordners hinzufgen B D  B \ B!d " $AF B D.<i(+ Diese Fun ClientTop = 435 ClientWidth = 16425 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 78 End %H` Microsoft Forms 2.0 FormEmbedded Object9q$H "@N},q:<kDAljj(6(Aljj(6(Aljj(6(<k#$,j(6("$,j(6(!$,j(6(<kaKѽ     !ktion fgt alle Unterordner eines Verzeichnisses hinzu.2 Hierbei werden alle Nodes erstmal gelscht, damit auch immer alles aktuell bleibt ]D]D]D]D $2.J Childnodes lschen  >AL Hinzufgen aller Childnodes H J  > N H " !4%6.* $ *(: * DB6 H D.Fi - Diese Funktion lscht alle Childnodes eines Node-Objekts]D]D]D 1. Childnode *!R.B @ *!T Nchstes Childnode "merken" B! .P Childnode lschen B!X !4BV Gehe zu nchstem Childnode P.B @o/ Diese Funktion ermittelt die Unterordner eines- Verzeichnisses und gibt deren Namen in einer Collection zurck]DX]Dp $\ \* ^$~'Z Z `b+ aus den alten DOS Zeiten, gibt es noch die- Ordner, die einfach nur "." und ".." heien. Diese werden hier aussortiert. Z$ . \ Z$\ Z JB6k nchsten Ordner ~'Z J.2kix- Diese Funktion berprft, ob es sich bei dem/ bergebenen Verzeichnis um einen existierenden Ordner handelt& Falls Verzeichnis nicht vorhanden ist b$d ^ f'\ix jB@loXPضAttribute VB_Name = "Modul1" Option Explicit ' Diese Funkpldt die ersEbeninesXVerzeichnisses und gib`Nod$als Coll$ecNen5zurck d LoadWit hFoldg(oTreeView As  , _ sDirQLorySngImageApanded )M m v C BVarilanon $ODim cs Nf5#coy +' Unterordner hol Set7"= GetSu*b()Fo@r EachF8In ' j@eden Omit Bild demFb hinzufg !D= n.ADs.Add(, tvwLast, ,x, sc&?E Ic@setzen, wenn ufgeklappt wird B. x= s C Call;%BNext% Tu E@̩@Ft ele KAOVdas gle nochmal frg (daAj '+' zum expierI9au`>dai|st`&o3eEnoPat'e]q;t5@^qXc Long!5moChTB"crnqClcim s>#SiF$, ("$!I[Mq!' A`A`lsnsLlwbw | \f & "\" & .T`cbvh'a*LhigiY,".H@_beirqBs"١igelschgeimm s aPktueb qb gC] g_&gHF 3/ldeR1{lgol?6 n968//k}2#n` s 2g.Delet>e'%ǃJ:#' HkbZr qgrv 6g ao2xoOB!pp&05pmm2wmVs Qt9Nynȡ3n' n46-Objektݠ 23 R qqa 1)aae--oJ0!|1.!M0L ."#X`1 T>oS 0sQN vbNull ' aus n:t0DOS Zei,30_q 3c,infnur "$."R".heienPw1$34wewhxso4rttvLeft$( , 1,) A0Exr$)PWPe 1IfC '0%ЅD/CLoop; '`!QUqe22berprRfobs Oa/gen} Q12enden ' Ordner halt Function ExistDir(sdir As String)(@Boolea~ ' Falls Verzeic@hnis nt vorn Orror Resume Nexp i = ((GetAttuknd vbectory)(Err,0) UGoTo 00 E3 Sub User_Dialog(5 BlockZ.Show!C4~]ͫ<80 08<>????????lt ( @    lt ( @ ˌȻ ˀ˿   ̰   ˰ ̻ ϰ    ?8E0 ? M_g_apto>w={9{ lt6BM66(칼~dO~dO칼~dOu̹IJv^dN칼~dOuлçڻڼĮIJw^dM칼~dOuллï~k׸պӶܿįw^~dOuï~kƮ~k|կҴղż~k̷̷ƮĬ~k컾~k̷̷ɲĬƫɵ~k~kŵsasaȭDzﵧsaֻֻֻsa쵧saƯֻֻֻֻֻֻֻsa쪩saнƯ׼ֻֻֻֻֻнƯƯֻ lt JFIFC     "" $(4,$&1'-=-157:::#+?D?8C49:7C 7%%77777777777777777777777777777777777777777777777777b`"H  !1AQTq"23BRars#6S&5CDbc2!1AQaq2D"3BCbr ?(OHe 6'A9^㱼}ˮR㱼}xFԸ]w*>;ΧG`o:mK6/;TATB68z)m}IJ$q}FqԼ" U 0#28!s9猈wpVTT_u><#cyjMpR PҴe$]UH{Z[X~;mmHRNYRqZQ[k5sfahc$҆*6]6姰q}V%DnrQ}HNa 򮘢D{xeÀ[PT 0&=JSjg'Q;ʫiU OSD)!lw#EfTl<.ylNsFk<38}Ny;.>J[UOiꐶ@G(sjA ,sZ~E`AJ x94nʧ^aL"6\-m],d:7 ! iΦP,Gy]7U#!(m%J=@W|3ghUFk˜?I%zc4`zh^n'-ʕ hL22-SUg~-inii!89mI԰m+k6 +RJРzN솃55m|inCB9AkiĘ`﬊lb:SWVJGUA@H[iiTpRFyrI7hp஍o{ZR?b}cLcfe>*{RQFrO?m;Z.̗қ}o(#{K@/i;sJTs4GIXTm==,zl>T='G3j]ഭ;sС6&Ķ'E294DdWTFAjwMއfxeR' a6YѬX6ɢCn-mAH52}fVJ&߾A.YYhJ\lNy+֔a.xE}aK-I7 A+YS2(XI{ec I$h5AJ#k{ ǒRvIl)r+qUG}R pt uMB@! !=E6Z,In.C^ W=0%{pisKZx !j[m(ldFA VrwR\V$+FSfV?;}r jJRYCnSCVDӼ=|h߉VWWU-<L4>nU퐏uzIikB#b'oߍHEbڦxEnTS'zUhwmRۧ0jC$VR6mtNd3sV|Uimn{joۼ-h*%`p##w:VUE~OsMMΫi:ZQk`.LSc,r||i}m6f}N5:NRRк_vENJc@G5CW9ۼ>ABҭ֗A4^R딭 e2ZuHIRt:.십:RӲtY;FZ[GU1>gӰm 6Rsxڸ,5.(EQQEEEETQ|*(E_ lt ( @PXXpPXwXwpPXwwXwwpPXwwUXUwwpPPUUPwwPUUUUwwpPPUUUUUPwwPwUU;5UUUwwpPPUUUUUUUwwPUUUU;5UUUUwwUUUUUS5UUUPwXUUUUS5UUUwUUUU;5UUPXUUUUU;UUUUUUSUSUUPXUUSUUUUUUU3UUUPXUU[UUUUUU;5UUUXUUUUUUUUUUUUXUUUUUUXUP??? lt ( @ppwwwwpppp??? lt ( @ppwwwwppp?lt ( @ppp||x?X@,D08 _vscurrent   _2dWirefXP@<($ xahDD % %`VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PInfo Caption = "Produktinfo" ClientHeight = 3120 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 12 End 5Tahoma0o Microsoft Forms 2.0 FormEmbedded Object9q  ( ( Erstellt fr:5Tahoma0(Hoffmann Ladenbau GmbH & Co. KGu{@Tahoma (BlockverwaltungO@hTahoma g 0( Version: 1.0 / Stand 06.01.2008{5Tahoma$((c) by Dirk Borowski]5TahomaVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Passwort Caption = "Passworteingabe" ClientHeight = 1500 ClientLeft = 45 ClientTop = 435 ClientWidth = 3405 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 6 End 6" Microsoft Forms 2.0 FormEmbedded Object9q(0( Bitte geben Sie das Passwort ein 5TahomaH,* 5Tahoma( Besttigeni uTahomah8?x   $H @}vV  , 2PLabelPassni( 8TextBoxPassO$<cmdPass  "0X.eh ?ltFBMF6(d<trt 424DFD$"$DBD\Z\$"$LNLdfd424lnl \Z\TVT|~|$"$trt464TRT촲DBD\^\,*,dbdljlDFDCompObjAnaVBFramei)CompObjCaaVBFrame\#ljldbddfdDFD,*,dfd464<><\Z\LNL켺ljl <:<  dfd\Z\,*,464\Z\TRT(Geer 50]5Tahoma0((48653 Coesfeld - Letteh]5Tahoma0$h8@0ŘL(Tel.: 02546 / 1794et 5Tahoma04(!E-Mail: dirk.borowski@t-online.de]5Tahoma0 t@p@l@hpz/$H @ }t   (TVT Դ\Z\LNL464$&$$"$,*,,*,,*,ljlTRTĔԌ  \^\\Z\,*,LNL  tvtDFD424 $"$TVTLJLLJL$&$lnlTRT424LJL|~|\^\424424TRTljldbd$"$$"$LJL\Z\,.,<:< 464DBDDFDtvt\Z\,.,  4242@Label10(2TLabel20OO(2DLabel30(  ImagePInfoltg (2PLabel40q (2DLabel50(28Label60(2HLabel70]( 2DLabel80( 2TLabel90 l$*\Rffff*0O4cbe9c504lnl$"|zδδ<:dbƬ.F:6>6r$DB$& <:\Z|zdb46LNҴJf4~4z,^FҼ ,.46Ҽ:jD:< ,*LNҴ>bBF>>BJ\Z ҼBfTbr$r$^Blʬ:f BV \^n$6Df >d,*j2T>VLJ!Mlnb .\j:\ $",*DBZ2tœ:RNVBTDBtr,*dfV6|n$V^ZJ^|z,.ljN:b>Ҽ\Z46trּF:ʬD:\ּLf N>BRjTδ,.42Ҵ>>ҼFN.2F^ rn^B.6jƬdb|z<:Ƥ>FBb |ּœr$6:T|zLJ:RʬR:~<LJ422VZ6D <>lj$&$"t2^N>\^l.ft:b$"<:T.r$Z>Ƭ46<: $" <2TL6\LN TR,.T2lƤZ:>T64TV~<6Ҽ6JlD&~<¤:v,|~<2D6Ҵ\:6z,<:db\2\D6Ҵd6l2Ltr :rœ2V|T2nv,6|RFҴ|F26jJNL6v,Ҵz,:~4,*V:LdBJtrN6,.|~<>^2V|Z:Jœlj\^\F.FnL\\LnF2>v,|zDB$&$",*DFdb ,.lfB6..2Bb\Ҽ<PT(0 H  0   0    l  *F` 1t5`lt=;lt #\ =  *#Xlt*T 2\XT''''`tMD@p$ 6`'` 1t5`+ pVx+0xpt$\XT`|HK6 ^ p tt lpRpztK2 H$ tH$$ Mδδ,8 Programm beendench uTahoma(8 Block einfgene uTahoma$8  Optioneno uTahoma8F "0 !ToggleButton1enuTahoma!C4L,~z<ͫ