ࡱ> y[ AB+ !"#$%&'()*,-./0123456789:;<=>?@VCDEFRHIJKLMNOPQSTUqXYZ\]f_`abcdeWghijklmnoprtuvwx{|}~Root Entry F]s-0_G@#Workbook_VBA_PROJECT_CUR"UCCCtls l  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQRSTUVWXZ[\^_`abcdefghijklmnoqrstuvxz{|}~@2iw_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{+;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-#,##0\ "DM";\-#,##0\ "DM"##,##0\ "DM";[Red]\-#,##0\ "DM"$#,##0.00\ "DM";\-#,##0.00\ "DM")$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-FA_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-FA_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_-000                     "p@ @* "     8"@ @ 8"@ @ <"@ @ vfg?b: i N,,64Be+0D*jq@h#GI~aզmpI")+ M60lw-G$/Eٓt rfE\d_ʖס,Qa R[.-+[چ^;鰮iZjRTt *,WveˀFz6}KXrj!S>oim1Ea+y-|v͗bOl=#iz15#WsѥR/S\G2L6rؕL~<;5ǧϜD"G* G>M-yGgJJe!+Ch%%tJMQxݪ G]5o_{d.%弙NVyצk7=q\&й{'ծCv$z|z}?WLjCϷ*j^қ|r V~84b5zj?WkPx~s VaK186GeBt>kxx=v mqw[7IPZxb5?sֳ"MnnE? Ephȍ1-W )0v+=D'](}6D|s~00 P5|V>*[b()Oyr'vX==$yzZ{ĕkr/u`$;wue~M8 U+C&!K~xEit 38IO/,;U}éBqk3K֎ה {5- M%/2 Ǔ4@x[4ʤqF H -*3  @@   Gre vorher Gre nachherLayerfilter gelschtPfadGesamtgewinn :OrdnerstatistikOrdner % gespart MB gespart Dateien : | @   dMbP?_*+%M\\NT_SERVER4\HP LaserJet 8150  dAXXLetter.HP LaserJet 8150 PCL 5e2xePjTQhLf2$p"qpĸGCQD]"?ҭ_!vq2EuWuCnWR;;ªڐn! ͍jV 8=v0mrvs~~ҶIj>C')He5yi̒إļ7+=7P鏨,STNNg,Q`Z,C5vӿ@п@cTjeGz6>JQڹ䤐W[8X ?FN䁾_y/?5qvn/vэ+B1VtmWg|.oƥvK R=1?_e!j77* )t_Ra" GXX<~?<~?U } $} } } }  } } } } $ } IMaterialX  @   # " ""$ !           H(    RA ?@Ordnerabfrage]` x X0 6$N,Forms.CommandButton.1l>@A @7 Tabelle1 VBAUCCDieseArbeitsmappe$ Tabelle1 Y__SRP_2 G|(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H(p % %pxH@8ނ E$*\Rffff*01450a70534xAttribute VB_Name = "DieseArbeitsmappe" " Bas0{00020819-0C$ 0046} |GlobalSpacIFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2rU $`0$`4$9`)$y`-*\R7*#f32*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R0*#11*\R0*#3*\R1*#c4*\R1*#229*\R1*#3c*\R1*#1754*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#10$*\Rffff*70450998d5*\R0*#e*\R7*#f3*\R0*#14tx vp t8PH( 0"H,$.@#ph" @(5 pK  x*+*!@- J@\-hDS"  x(  8   (   @ 8P Z   (. v*   H  &8L@  "Xp    #$gsP)j)JqqcT,SHGetPathFromIDListA@ SHBrowseForFolderAB2^r1 F=k3=GM->x+Ordnerabfrage, 8, 3, MSForms, CommandButton=k3=GM->B2^r1ME[LSSs<4 .1 >"<<$<(<,<0<4<8<<<@btl@@x  @ i 0 *`h 8k0 H`ke40( x8HXx@ @  @ @ @ @ ,2@x ]l@h h @X @ H @8 `\ xD~i @ 44tr@ P  j~l6  h @@ @< @, @ * @( `X b48~:@8 4 @$ `8 L P @H  x -th`2p``h `P`DG  08 x P @  tr@ @ 6 |\4 PP @ p   x@(@ @` ( @ @ @ @ <lr@ @ @ @O @ @ GI8~@ X 6`o,hhH0t h @  @  \4 @ @ `( X@ lrt` @ @O @   J` Hxp X   pp8 8`r\`tXX@X@Xh`8~<>HD @4 0 Px( @X @ @ @  (  @O 8H  8 `p X 8Xp 0HX@X@XhX@(p@  @  `8 (x`4 @l($   x pXhp @ @ @ @ PHPXh pP  x >@ @@ @ @t @d @T @D @4 @0 @&`, P&+ @  @ %  %*p (&+@ X(--X8xH8D8ނ E*\R8006*#5d*\R7*#10d$*\Rffff*0145151d92*\R7*#123*\R7*#10e*\R7*#a4*\R7*#b3*\R7*#10a*\R7*#109*\R7*#f1*\R7*#93*\R7*#92*\R7*#92*\R7*#57*\R7*#58*\R7*#f1*\R7*#107 %0"40     &(   H *!x h@@*!H";^-fu8 .P %h . % *! ";  .@  * $ @ *  (5 &M HB  H #H  B ( &@  h$ .5x   .@ :5X    +x  *! ";  .(  *X  .  $O  &h    #  NK8  <  #p :5`  #  DG 3( %  3X .+p 3@ 4A   xp4/x`xp h H h  @   h 8 x X 8x(x]] o A@*$'|4 Leeren-Knopfuch!3:50000$,B@H4) berschriften in Zeile 2 und 3 markieren 20 B@.4 und lschen00 oA1$B@H( 8!8!hP"$$$$h%h%x#'8'(h''''('((x(* *0*(.&&&&''(]@ %(])]X B1$B@H]() H  8(:j(  ') )) ) n.Bitte Verzeichnis auswhlen !A@lellen km###### sie und speichert sie dann wieder als DWG Lutz Federbusch / Theegarten-Pactec / 2005`](']x]xoA@]( r$ 8(:eien b r 'r]] _ ,|%k$]X]8 ]p ]P $AutoCAD.Application.15$<.ACAD_LAYERFILTERS \%.` b `NEWSSET ,!P%R. ,B@j-]'41 1/ \  !N%.,so/ ,!f!h.\nB@/]0'4 \!|'4A 4$B@H  8(:H 4 '4H  4 '' : B 4$B@H  8(:/'tE 4$B@H 1'r]8Ho'r \ *.dwg $ ~'0X11E1$B@H1282hScripting.FileSystemObject$.] \!| 8(:Scripting.FileSystemObject$.+ DateD 4$B@HC 4$B@H \!| 8(: 4 \!| '4'4F 4$B@HD1$B@H 1+ \  %.\%.. \  %.\...."X 'B2$B@Hn Plat@ 8 p###### Ldt die AutoCAD-Dateien aus dem anzugebenden Ordner und entfernt bei allen alle Layerfilter, bereinigtx  \!| 'F1$B@H t r  'tI! Gesamtzahl der gelschten Filterr Pl t$ 8(:4" Gesamtzahl gelschter Layerfilter ,B@~$ bereinigenzent  8(:4 Ordner(: bB@.$ Layerfilter lschen 4 \!| d 4 8(: @B$ MB 8(:I# insgesamt gesparter Platz in MByte ]]k b. b..begik x bb0H Schleife beginnen. Aktuelles und bergeordnetes Verzeichnis ignorieren.` H \* j$~'b0 Ersten Eintrag abrufen.0] f und  +'  'P ~'b9 Nchsten Eintrag abrufen. Sucht genau eine Ebene tief... f$'0 da sind wir jetztXp]0 \ b  +OM erst Verzeichnisse ermitteln, entkoppelt den Dir-Befehl hier und in dwgladen@] f  [pA@60? und nun alle DWG dort! 'MsgBox ("Jetzt : " + dirn)p'0 alle Zhler zurckstellenx]''8X \ b $l j j(  \  freigabe \  Freigabe8]' \ 'D]  D\ D\'\ D D  $|'D D\ 'hXkScripting.FileSystemObject$.k]0`]P ] 4''] '  4 'e  \!| 'H $B@HJ $B@HI $B@H @B 8(:9 MB in diesem Ordneru d $ 8(:H Prozentualer Platzgewinn gesamtch d $ 8(:J Ordnerprozentedv](E 4$B@H r$ 8(:7! zeigt bei denen ohne Filter 0 anH(Fertig!  $  DWG-Dateien bearbeitet. A@l$8x A@:r PhScripting.FileSystemObject$.a) G ~'j$nchste Datei holenBox  \  %.ting.FC:\Zeichnungen\VorAufrumen\    B@K Kopieren bers FileSystemObjects C:\Zeichnungen\VorAufrumen\ D %nGC:\Zeichnungen\VorAufrumen\ D A@j Dateien : $ 8(:TwacadDoc.SaveAs ("C:\Zeichnungen\VorAufrumen\" + Unterordner + a) ' , acNative) ' Sicherheitskopie als DWG speichernx Fehler beim ffnen von   Ist AutoCAD blockiert? A@l|0k(AutoCAD.Application.15$<.@xpx-Fehler : Kann AutoCAD nicht greifen!    WLuft AutoCAD oder ist es durch einen Befehl oder durch ein Dialogfeld o.. blockiert?) A@lScripting.FileSystemObject$.C:\Zeichnungen %nGC:\ZeichnungenA@jC Set fs = CreateObject("Scripting.FileSystemObject")jC:\Zeichnungen\VorAufrumen %nGC:\Zeichnungen\VorAufrumenA@j Attribute VB_Name = "Tabelle1"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Co ntrolOrdnerabfrage, 8, 3, MSForms, CommandButton'# Ldt die AutoCAD-DKien aus dem anzugebend 2 und entfernt bei a Layerf@ilter, reinigt 9s6 spei@chert Ad@ann wiVrs DWG'@Lutz Fbusch / Theegarten-Pactec2005 A Dim A5App As8.Acadlication dirn Sng=AMDokumBz hlerLoIaf"s ObjecF*^ 1 KopgO GesamtgewiWN'P@zalt :zahblZeiĐAAnz|O (P Sub Le@eren_Cak,() s'$-Knopf2Row@s("3:5!}"`).Sel)y܈ber`FrifEP in 2Y3 marki 3 C.D @Sh:=xlUp R'l eJRange("A11 Eg@ ? #.Dw!K= 0I'#On Error Res! R NexdKSe<`= GetKP(, "d~.a.15")C If (gIs Nothing)anD!!MsgBox "Fe"`:#K!zD D n@}t gfen!" & a + vbCrLf "Luf odjist eur`~XBef d Dialogfeld o.. bloc:t?)À%ExitP=A2IJ#1$Dir Jory(!"" ("BitAerznisAwn !e+aA6= e6"Script`0.FpSystefmcH6fs s"t@dC:\]chnuQn= b8 Mk ("%x 9n\VorAufr`+  gen,Jpan)()rtig@''PStr(5)`("Cag&pbearmtet.;< "gPfad1!O0VG#se(33M) p.m laufIntegerS3M= 3 bCA?'Pw]Zlzurck&}dHBqd?_aK0)6Yg= 1Y= y=r(+ "\*",@E;Te'Q Riag abr upH.Do W h+ 3<> "&"oeScNif egwen. PAktuѪsR`ѐfgeot`K ignorbfApV." A@bPW4(@J=" ,P#@vb=y<\1>+q{- 1AGf ' x,t Z mSln,koppe0둧 -D_h@|dwgla?9]1#' 0Nch"Suchpkenau g Ee tief..DLoopඃ9. To\ (lg =(1=' dawir jetzd} ?Ӊ `3>dort!:'RJQ : qq p! xPU}Pss`dG1OaDocLqq`HA1?Um oDic cpary{pFg#soX~5XXRec;iByte xa:XUYd`19 m !2]wa s omdPgҿc'P,DouCd\S=C/24B9 2 ActiveCell.FormulaR1C1 = Ordner a<Dir$(dirn + "\"*.dwg")F4ChB @Do~Untero""2If InStr(1,;,[) <> 0 Then)GPfad@dWhileI'I D/iEw Right(Len) - i~)Wend " }'Set fs4CreateObject("Script ing.FoSystem <fsExists("C:\Zeichnungen\VorAufprumE)A@FalseZ Mkp0End8 If:3Kopie&@4Get> aH] .Copy "") @Then apDir$ 'nchste Datei holen9Loop W&he= [Sub __SRP_3Modul1 N __SRP_4 P__SRP_5Y @pnn*R. qOTSHGetPathFromIDListAn@SHBrowseForFolderAxRR ME, (H> <ph0er &hHtet.h`warehx normhhhh+Xp i8i+,p, )A%+`k X@%` T'` P`L`J'xX`% h8P P8`x&( %@$ @  @ @ ނ E$*\Rffff*70450998d5(*\Rffff*70450998d5\0*\R0*#f  (08@HP XH xH B ( ,)  8%@#Xpxx^^0^H^rU 8Jq.1 0$ 0yy9 !i01   -I))(y-)a).&'YY 3yIq !Aa Y*q**3/I. q.9 t  `xQ y EyO,:h%x! x8x58.h%x $ xx#x'X%:h%! xxD$ xH88 @0K5:LN<<'\,  ,[(4(6\<,4cK'','<D*#$*# *#*F\ 2$ 6\<, #$</$< 0+'','<:l N\\ 6\<,!#\ $ \4H5\#:lH%XH\&f ]35\Q H '#:lI%XH\&f ]35\~ I '(S''' *F<@Ml@\ \,:L 6<\,$ 8 $ (\<,#Pd/P T X \ l h<\; ` <Cxlx*F@ 1t5@ lt =Hlt=lt=,.lx*#Plt*#<^2P<*``*lx*#Plt*#<`\;2P<'@ 1t5@V`c(kV\8, Vd(bTX@\xtP<@P K qP d3tD qL# '$%:4%!   %<F4% $ ( , 48*# *F #D25 8 ! C\ 8 8CXlXHlXb&lXJbXM4@ "  `1X5  lX*1\!# $  4H5 ,%lX*F %XH&f$]36 %lX*# '/!# $  4H5 ;8*#D*F %XH(4P/6 -%l\*#D*F %c$%XP)/5 uD =8*#D*#*8*#D*#+2 . '4%,d*F %!   5 %8F4% $ ( , . '4%-d*F %!   5 %DF4% $ ( , !# $  4H5 ;8*#D*F %XH(4L/6 . '4%.d*F %!   5 *XLW /% $ ( , 5 $lPi4XLW /"qP6 XLW /"X5 *\i4XLW /"\6 5:$N'   [ 4 6 M'4%8*#D*# X4  00l=1t2) ltcHB'''2D*#3*#*F 26 @@# '$%:44%!   B:$5@M4@  % $ ( , 6 ( t 46 @7l=8l)  :49%l p8Q hp`lhd: d ,7. '4%;d*F %!   5 5hM4@   $ ( , 5 hhp` d:. '4%;d*F %!   5 5hM4@   $ ( , 5  b b; t 1 bx&+< t 1 ,=l=>x) t 1!# $  4H5 ;8*#D*F %XH(4L/6 . '4%?d*F %!   5 *XLW /% $ ( , 5 . '4%@d*F %!   5 OXi4XLW /($dXi% $ ( , 5 &Xi4XLW /"X5 lLXqLTXT# '$%:4A%!   KT@Bk  :$B% $ ( , 6 lhk`l# '$%:4C%!   5lM4@   $ ( , 5 # '$%:4D%!   GTd\k   $ ( , 6 3 '4%EoD#*F %!  / 5 %8F4% $ ( , 3 '4%FoD#*F %!  / 5 +lL@Bk4% $ ( , 3 '4%GoD#*F %!  / 5 AlLdlPk   $ ( , 6 hd3#d/D = ' #D/5 D = L4 pT\dltXhx4   p t)`^x^^^p(32-bit API declarationsrmX]] ]8Ph (Bitte Verzeichnis whlen... ( ( $'$ '   $'   $ '   $'d'kxiphXAttribute VB_Name = "Modul1" Option Explicit Type BROWSEINFO  hOwner As Long&pidlRoot *szDisplaybS~3lpszTitle4 ulFlags Klpfn  Param iImagPEnd  '32-biPI de clvs De FuncSHGetPathFromIDList Lib "shell32.dll" Al ias "A" (ByVal P, sz- z)EBrowseForFo=Direct0ory(eDim bpL Ɗ, xf, poBxIntegerC.p= 0& G@Biterzeichnis whlen...CE= &H1Cx@SHK( )C2= Space$(512rB{xx@BD If r Then%A>= InI(, Chr$(0) b0Left A- 1 ElseGL "BAIf = rU~| 9 ! I yd q\Cd qh,X((^q$<(X l$qL( 1T)lT 4l lL^q$stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tl_VBA_PROJECT^h0dir]__SRP_0z__SRP_1pfficeu DieseArbeitsmappe _Evaluate Tabelle1RTabelle2STabelle3T Modul1UebergabeAnVerschachtelung ZZeilegoWS~ WorksheetcMatcGeoafdatei cnamedateizschacht6 conMat ADODBs ConnectionrsMat  RecordsetrsGeo cMaterialcDickescManuelldcGeopfadcStueckMhelpfhelp1gcKfmcZustand OCursorLocation* adUseClientҐProviderActiveWorkbookSheets CellsValueKEOFKillMAT_IDNRuu MAT_ABMESS_Z\ TV_REGELWERK TV_TEIL_PFADDateiUnterDatumUndZeitSpeichernMsgBoxRSDatum SZeitTime Application* Substitute^SaveAsf;WorkbookkChDrive% _B_var_OpenlcIndex- _B_var_cIndex, cIndexdateiU_B_var_cIndexdatei indexpruefenR5_B_var_indexpruefenn_B_var_FunctionO cDateinamelindexpruefeninGeo7: _B_var_IfP_Defaultj cIndexGeoSe_B_var_cIndexGeoncIndexGe _B_var_Elseifqm _B_var_Line ShowFileInfofilespecfsF]sj CreateObjectGetFile: DateCreatedfile%dDatumǸaX CreateAfiléCreateTextFile WriteLinee retstring% OpenTextFile ForReading8 AtEndOfStreamReadLineUCase5  _B_var_UCaseaPACnPos@C _B_var_nPos IndexPrfen[ _B_var_MidpValdDateGeoI cIndexinGeoDnWertTrim@Str ScriptingcDatum _B_var_cDatum{cDatumH_ _B_var_Format _B_var_DatevNow%test4_B_var_cDatumHFcMMC^ _B_var_MMYl_B_var_Y_B_var_Substitute= _B_var_StrMSFormsCCommandButton1|CommandButton1_ClickRange Worksheet_SelectionChange4TargetFClickACAD_DXFACAD_DXF_ClickAsset/.AcadSelectionSetACADApp AutoCAD"AcadApplication was DXFOrdnerJRIndexelemX9 AcadEntityiArray1&*Count0v AttributnameWertK6ZNR(acadDoc# AcadDocumentZAnfangseinstellungenKSpalte ZeileNummervh ActiveCell FormulaR1C1S GetObjectzerroClear Description Pfad, ZielLaufwerk% ZielOrdnerL DateinameOActiveDocument\ Documents SelectionSetsAddrExport_B_var_Anfangseinstellungen_B_var_DateinameH _B_var_PfadDatei1 IndexOrdnerSWxOIndexOrdnerACAD.'Name1Name2laufhswPfadږ vbDirectorygGetAttr FileExistsda\ PunkteWegfbpgAnfangLngevbBinaryCompare̝Right LeerzeichenWeg=ZeichnungsnummerofMkDirMachen _B_var_Name1 _B_var_LeftQ _B_var_Right9vbCrLf SchrgerWeghZ_B_var_SchrgerWegI< fileexist am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.3#0#E:\Programme\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#E:\Programme\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library"*\G{00000206-0000-0010-8000-00AA006D2EA4}#2.6#0#C:\Programme\Gemeinsame Dateien\System\ADO\msado26.tlb#Microsoft ActiveX Data Objects 2.6 Library*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINNT\System32\Scrrun.dll#Microsoft Scripting Runtime*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{D8D00544-1EF5-44EE-9EF8-0B447B50FC7E}#2.0#0#C:\DOKUME~1\LutzF\LOKALE~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#C:\PROGRA~1\ACAD2000\ACAD.TLB#AutoCAD 2000-Typenbibliothek ނ Eq"DieseArbeitsmappe01450a7053"DieseArbeitsmappeqTabelle10145151d92Tabelle1q0J Modul170450998d5 Modul1O0 H0'z'zDLj> 1@'z'zeuhpo AsByte"Const*Currency=Dim@DoBdoubleCEachDelseEElseIfHendifOExitQfRFalseTFor_IfbInjIntegerkIsxlongNameNotNothingresumeSetSubThenToTrueUBoundvariantWendWhileWith Excel+ VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject O_B_var_EndF SelectionZ ClearContents{INameListe_neu_holena]Liste_neu_holen_ClickEEFields7Itemz _B_var_TrimmTSolidWorks_DXFKSolidWorks_DXF_ClickGFileCopy@FileSystemObjectNUCopyFileBlockErstellen2$SWName ZeichnungjHModel9swAppOpenDoc swDocPartM DWG_SpeichernGKurzName$ Endung_abKPfad_ab# txtAusgabe:SelText+T Konfiguration BlockbildungG BlockOrdnerV OrdnerSucheKomponentenName blocknameBaktuell Aktualittsprfung. swDocDrawingVFund[0 _B_var_WhileIfgefundenPj SWFreigabe4SaveAs2 TempOrdnerS EditRebuildCloseDoc GetTitle-_B_var_swDocDrawings explodedObjectsf blockRefObj_ExplodeBlockq ModelSpace_ next_elem EntityNamex HasAttributesAuswahl>Ansicht;&SkizzeXSkizzenSegmentRElemente"Anzahlretnei` ActiveDocڒGetActiveSketchGetSketchSegmentsdIsEmpty Select2ijDeleteSelectionUnfugţ DeleteFileO _B_var_swAppUVisibleLeeren  Leeren_Click%RowsUDeletexShiftxlUpCommandButton2_ClickModul2 BlankSketchr BlankRefGeom)CCommandButton7_Click0 AppActivate26Captionx blocktotalK0ListBox1BlocksӍ allenamenAddItem Blcke_lschenAcadBlockReference insertionPnt ThisDrawing5 InsertBlockcNZoomAllm$ ObjectNameblockObjBlcke_auflsen5_B_var_Blcke_auflsenb_B_var_ACADApp_B_var_acadDoc_B_var_allenamen~BlockexplosionobjGroupsob^_B_var_ThisDrawingBlockexplosionAlt#%blockcolmR CollectionW BlockCol20Objekt/TypeName _B_var_Objectj_B_var_blockcol) _B_var_SetobjectsLmsgbo _B_var_msgbo|zhl$6elements0_B_var_elements _B_var_UBounddobies _B_var_obiestapeRlisp&objExplodeObjectW AcadObjectstrExplodeHandleId Handle SendCommandcChrK~vbCr$_B_var_strExplodeHandleId^ _B_var_Chr\; _B_var_lispies _B_var_lauf  _B_var_forjLobiesAltydurchstrblockRefObjG boolstatusgpart~ Extension SelectByIDaClearSelectionH_B_var_boolstatusLAnzSW/ EditDelete SetupSheet4RSelMgrselObj swSelNOTEShxSelectionManagerGetSelectedObjectCount $GetSelectedObject2/ _B_var_Model&swExtRefNoPromptOrSave( _B_var_ConstgSetUserPreferenceToggleo_B_var_SetUserPreferenceToggle<GetUserPreferenceToggle  Ordnerabfrage/Ordnerabfrage_Click"dirne (GetDirectory$ (!BROWSEINFOYhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSulFlagslpfnlParam7iImageU(SHGetPathFromIDListKpidlpszPath shell32.dll+(SHBrowseForFolder" lpBrowseInforbInfopath2rixoposSpace Dokumentzhlerq_B_var_DokumentzhlerMsgQStylepvbYesNo vbCritical+}vbDefaultButton2Title~ResponsevbNo% doccounter Altnormteile3vNormteilNeuzhlernoconfig)dodeletey _B_var_Msgbr Platzgewinn3dwgladenx _B_var_sub EigenschaftTretval;saveflagOpenDoc25doctype-Errors cuspcountWGetCustomInfoCount2 cuspnames#GetCustomInfoNames2okb CustomInfo2Ŗ AddCustomInfoLSave2RSpallte_B_var_SpallteIaq\oDictAcadDictionaryLayFltoXrec. AcadXRecordLayersGetExtensionDictionarySaveMyString _B_str_Space _B_str_Chrm#AnzfiltjGesamtebdif4 _B_var_On6 _B_var_fsSizePurgeAll6Qdi\ _B_var_diOrdnerPlatzaltH GesamtgewinnV_B_var_Gesamtgewinnq_B_var_i  JedenOrdnerPfad1 Verzeichnisse(_B_var_VerzeichnisseƩ Ordnerzahl _B_var_To _B_var_Gesamt_B_var_Anzfiltxx_acNative Unterordner5 _B_var_wasCopyƿ OrdnerSpar Ordnerproz_ Ordnergesamt ordnergewinn _B_var_ordnergewinnZ OrdnerzeilepKopieMB8^ _B_var_MBCZ_B_var_CProzt _B_var_Proz>DWG GetFoldernanztDateien&a bearbeitet46b#OLE Automation^DOfficDO>fic5DD2DF8D04C-5BFA-101B -BDE5DAAB42DE:\gramme\Microsoft 4\MSO@9.DLL#  @9.0 Ob LibraryA ADODB>ADOՀBU120610-8 U6D2hEA4U6CM*Gemeinsame Dateie nS\@\msa0do26S-ActiveX a-s 2.6. 'Scripting>Yr@[ping1rh1420B28@E718-11CF-893D10C9054228}#1Trun.dllXF Runtime@MSForms>SFrms3@WD452EE1-E08FA-8-02608C4D0BBWFM20L}@L }/;!1u0IAB}#0B# 5h0`! D[`*4-1EF5-44EE-9EF8-0B447B50FC7E%\`mDOKUME~1\LutzF\ LOKALTemp\Excel8.0\D*.exd0U @.E .`M AcxCAD4AuFPoC` ` jaC094C1E2-57C6 GD24E3-0`9A0C621.1$`ROGTRA`A 2 )\A.TLB#D -Typenbibliothek @bAqDieseArbeitsmappeXG"]eIeQrbisKap e-2 H1"",q+Tabelle1HGalm1i2roJolModul Mnd`;l2bũ mO!eaHP`psfI-pxfD" << 48@DH\l| Jetzt : )sz82EvS9-h +F7PWcLD3l;_BQ,:LC ^lt "5H3?( @@ 48@DH\`p Ersparnis : JNjsU'"1AdqqX4EV[ll nLuft AutoCAD (ohne Blockade durch ein Dialogfeld o..? pLuft AutoCAD (ohne Blockade durch ein Dialogfeld o..?)0[^F(`".9MzKy @@ 48@DH\hx freigabe Freigabe Dabei  4 Layerfilter gelscht und  # ,,|48@DH\hh 8C:\Zeichnungen\VorAufrumen\ k   CopyFile H I JDEH,Z&|>ęl1NL\ 00 48@DHL`ll 0 % " Ordner gefunden. $Lade als erste in  Das war (Lade als nchste in  FileExists 0Kopie nicht zugwiesen...CopyB2^r1=k3=GM->DD D{P~ .h 44 48<DHLPdpp 6C:\Zeichnungen\VorAufrumen FFehler: Kann AutoCAD nicht greifen! Fertig! ZFehler : Kann AutoCAD nicht greifen!- Luft AutoCAD oder ist es durch einen Befehl oder durch ein Dialogfeld o.. blockiert?) ,Ist AutoCAD blockiert? C:\Zeichnungenurde ein Platz von & MByte freigemacht!VBE6.DLL S H e h 3:50000 SelectFFAi Shift DeletesK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Q !4N"E}!`  e / y a 0      DieseArbeitsmappeTabelle1Modul1 VBAProjectF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA A i`F /E:\Programme\Microsoft Office\Office\EXCEL9.OLBExcel 9ap0FC:\WINNT\System32\stdole2.tlbstdole   .. 9aL-[DR -E:\Programme\Microsoft Office\Office\MSO9.DLLOffice am.6C:\Programme\Gemeinsame Dateien\System\ADO\msado26.tlbADODB a0( B=B(C:\WINNT\System32\Scrrun.dll Scripting q.E .`M C:\WINNT\System32\FM20.DLLMSFormsOrdnerabfrage_Click YY6hrxIh-4C:\DOKUME~1\LutzF\LOKALE~1\Temp\Excel8.0\MSForms.exd aYW &C:\PROGRA~1\ACAD2000\ACAD.TLBAutoCAD Y  F) I{ F~59+L`6/`{lFWJO Ordnerabfrage@2iw