ࡱ> }am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#F:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#F:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16enu.Root Entry0CVBA_ProjectP^@0VBA"P^@ /Form1 i*WJO@a@0  I 91!"#$%&'(*+,-.80723456/:=;<>?@ABCDEFGHKJLMNOPQRSTUWXYZ[\]^_`abcdefghjklmnopqstuvwxyz|~PROJECTwmnPROJECTfo   !#$%&'()*+,-./0123456789:;=>?@ABCDEFGHTJLMNPQRS^VXYZ[\]d_`agcUfhijklmopqrstuvwxyz{|}~ID="{00000000-0000-0000-0000-000000000000}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Form1 Module=Module1 BaseClass=Form_info HelpFile="" Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7D7FD15633D737D737D33BD33B" DPB="FAF856D9CEF6CEF6310ACFF67BA38769B4578864102296BCADD174C2AE4CDF0322A8D8CB3F" GC="7775DB5C25A4A3A5A3A5A3" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=66, 87, 739, 535, Form1=18, -6, 728, 718, Z, 86, 83, 716, 705, Module1=52, 166, 738, 509, C Form_info=198, 1rU~~~~~~~~~~~~~~~~~~~Y    Y Y( Y 8 Y! H Yi X Y h x CompObj nVBFrameThisDrawing# n2Form1  ),:Module1<4_VBA_PROJECTrdirfOoKCompObjIpForm_info( 80foV*'CompObjrVBFrameVBA_Project_Version(lpBrowseInfo lpClassName lpWindowNamepidlpszPathlngHwnd YfilesstrDirstrExt 98, 667, 676, C, 88, 88, 557, 566, rUThisDrawingThisDrawingForm1Form1Module1Module1Form_infoForm_infoWt%M? =ϲ0* pHd ACADProject8@ = t  L9B( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0(BB4DFDFM20.DLL#Microsoft 9 \ Ob Library/;C1s00}#0#j0 AFC420960-FB64-46F0-91E5-F867FDED884EHXDOKUME~1\criecky\LOKALTemp\VBE\S.exd;!.E .`M |ThisDrawingGThijDrawAng 2E HB1BrB,B (r"B+BAq1G E12O@zuMvD(Bªodule@êouA2 Fmt! _infoGc_b-f2/E0,<,.E .?|<׫ KҒGHFC˴xMEPSPSSS<<<<0{AF3C37C5-CECB-4593-94A6-FC2F8FD32CA5}{C71BF552-4379-4EC5-87EB-DE7125E077BD}0(%X0 %%%0 i hi i 80hL`L9B"  (0xoAttribute VB_Name = "Form_info" " Bas0{AF3C37C5-CECB-4593-94A6-FC2F8FD32CA5}{C71BF552-4@379-4E^87EB-DE7125E077BD} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustohmizDP Sub labeltext_Click() End z|tz|txME(6 < <<HH0%H8 `|@((ClicWWHH n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qgFolder_ChangeF(ffnenenNuArialnenH,!{7 @Tahomaen(LLschennNuArialenn`! 5Tahomannber- Module1b ad_DxfDH  d },1ZeichnungsumwandlungR KQ_Tahoma( <CmdBrowseaa$( b8DwgFoldera$d<CmdCleara$ $-4ListBox1 9Qi=//@` ==#rU a A 4X`$`$`,`(0$A`8L9B$*\Rffff*0841339baf : $ ( @ :"` hxkonverter progi rU Lna4, (p$`8`  a 1  von dxf in dwg roustand: 12.12.2003autor: criecky@mail.rut usH B@o x4****************************************************ppo4****************************************************fonAttribute VB_Name = "Module1"  '*0lkonverter progi von@ dxf i wg@stand: 12.2003autor: criecky@mail.ru*0 Sub Dxf_in_Dwg() Form1.Show End  l|r#<򺋊hGSu!= &QS6sEϬr[xQS6sEϬr[򺋊hGSME(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} 8(%H(pe % %pX0i (xH@||8L9B$*\Rffff*05423944d94xAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD24-08000VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form1 Caption = "Umwandlung von DWG in DWG2007" ClientHeight = 3510 ClientLeft = 1545 ClientTop = 1830 ClientWidth = 7035 TypeInfoVer = 265 End nd i i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q|| ( AAusfhreniENuTahoma(BAbrechenEOuTahomaen(IInfoEOuTahomannAttributerU $`nrU~|  H$w$ k(, e }y0/R KQ$Tahoma$@cmdApply nx  Q" ( <cmdCancelo$,#y 9YqYQ)   1  ## $#8  222`<! I  @i  `  Di  SlideName Y$({rU  " $#Iq  `I Hi  `L ! tlb#AutoCAD 2004 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#F:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{FC420960-FB64-46F0-91E5-F867FDED884E}#2.0#0#C:\DOKUME~1\criecky\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   L9B|ThisDrawing05423944d9ThisDrawingrr Form10742a4ce65 Form1v@1Module10841339bafModule1t0Form_info01471229f5Form_info<PEpP0 ݮC t$IMb@ݭiC1pF$0iyJ.EesG0:AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateForm1colDwgsH CollectionW BROWSEINFOYhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSulFlagslpfnlParam7iImageUMAX_PATH(SHBrowseForFolder" lpBrowseInfor shell32.dll+ FindWindowK lpClassName lpWindowNameuser32*SHGetPathFromIDListKpidlpszPathcmdApply_Click/intCnt.-DXFileCSaveFile}i`InsertPt@ ImportScaleS!Hide9z DwgFolderpListBox1 ListCount6 Application* DocumentsList*ImportiSaveAsf; acR15_dwg48cmdCancel_Click\CmdClear_ClickMsgQStylepTitle~HelpfCtxtResponseMyString vbOKCancelx? vbQuestionvbDefaultButton2MsgBoxRvbOK%ClearCmdBrowse_Clickl ReturnFolderlngHwndBrowser lngFolder strPathlstrTempM vbNullCharYRight DwgFolder_ChangeFFindFile[ AddToList&fileswXstrDirstrExt strFileNamee vbDirectorygUCase5 AddrobjBoxv ListBoxNamesο Error_ControlCount0vAddItem  Exit_HereiErroNumber-Module1b ad_Dxf2DwgShow AcadDocumentZ Dxf_in_DwgUserFormNcmdApply cmdCancel CmdBrowsexFrame2CmdClearcoClickChangeValueK _B_var_Stringӊ _B_var_LeftQ _B_var_Right9 ZoomExtents+cmdinfo< cmdinfo_Click UserForm1) Form_infoo%label_infotextcriecky&7label_infotext_ClickXPurgeAll6Q _B_var_UCaseaItemz Label_versionxUserForm_Click acR16_dwgA_B_var_acR16_dwgAcadDocument_BeginSave%FileNamejvbCrLf scalefactor?Q scaletypepacZoomScaledRelativeJ ZoomScaledMachdiay_B_var_Machdia| SendCommandc_B_var_SendCommandD MakeSlide5 SlideName+ tmpFileDia=v GetVariable~ SetVariable?RvbCr$DxfFile6_B_var_DxfFile*slda _B_var_sldrSave ac2004_dwgyX ac2000_dwg ac2007_dwg"l   HMEHR8!!:1|vt4JSHBrowseForFolderA<<FindWindowA4\( SHGetPathFromIDListA`1HtJ%8Ofo"B#Ak׉NV>^ŴEwN4np0jODrxp0jODr1HtJ%8OfR R MEHLSPSSS8H0>"<< <$<(<,<0<4<8<<<@xHp8H i@XiB Dh`|L&&`Fz`Ht`Jp@L` NHH0`P< f`|+@ h`J D@jl @l\ gr@nL AD@p< \W@r, m3@t \s@v IN ` `kP,8` kTi 0;fi 32 Xhf:@%`T2\`Psq`L\p ` >k n `k8 v) X`er%I fyI \p(0$A`$`8` 9Qi=//@` ==# nmplateDeriv$eCus`tomiz2 /x! Qxoh #dJ/d5h3x! :T NDDQxoh46hD6x! >4lx=@@k>)x@i@$ dx@hD@#l\ \:L ]@5\9,:L \b%,:L\ FtF`p! p p5`4$ tp`H-XqH H TH *((  `#TH/6( qH"((  `1P6(,X^q<X lqT lTR> lP4llT @ 8 @ ( @ @ h %P @ @  h P T~V@ x V@ h @d @T @D @@ @> 8`~@\ @L @(< @X, @@ @ @p @ hhx@PXh ``(z  h@(@t @r @p @@` @(P @@ @0 ~ @, @( @ @ @ Px   @@ (@ ( @ @ @   # hx( @L H @8 @(  @ @ @ X @ @     d  L9B*\R0*#1c*\R3*#61$*\Rffff*0742a4ce65(*\Rffff*0742a4ce65\0*\R1*#1f*\R1*#120$*\Rffff*05423944d9*\R1*#136*\R1*#122*\R1*#13c*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#45*\R0*#14*\R0*#19*\R0*#13*\R3*#45*\R0*#1b*\R0*#3*\R3*#45*\R0*#11*\R0*#e*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55 28<@DHL4P5TX :0 " p  :   (08@HPX ` HpHH "   /. i@ 2`D<x "  *      P  0@H "PX` " h,p$ ` ' $  " /(8 B @HPXForm_info"Xi44 n``v0__SRP_4 iD__SRP_5b__SRP_2W__SRP_1 x__SRP_3{h__SRP_0 rB`h p x* ",  4( 0@HPX " 8 P@ "`/h36 " #%($<8+`x B * "H p8]@ ^8^P^h^^^^^p]Dx x]]]]]]PH B@R T$~ F V!X F V%^ Z!\B@ F V%^'H+NF+NF+N?'P H N P B@`'L H.'L H L $'J] B@BB@b Fkohgo]0H`x x z | 'l DXF Dateien'n j l n$~'t t 'T VB@ko$'To]P]p]]  9 Select Folder9$ .$\9"q` .$\' $0'   A@>    $' $\ \'k 'ki T$~  TdwgA@ V $k`kXoP] $\ \'k *.* $~' b $$ $   B@k ~'ox]h` F ! F$ B@ F'z'i4****************************************************stand: 12.12.2003autor: criecky@mail.ru4**************************************************** shit fehler, !A@~A@ zoomgrenzenP8ox B@DXF-Liste wirklich lschen?'j B@bereinig alles ZoomScaled?']x '  A@ erstell sld von verzeichniss p J , B@bPAttribute VB_Name = "For m1" Basp0{07C07A78-82E6-4ACF-9207-6A5BD389E68D}{08482A75-B59C-49CD-BF45-A1087E5D15C6} @GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizD'*0 'erstell sld von verzeichnissstand: 12.2003 autor: criecky@mail(.ru *0 OptiGlicitP@@@B colDwgs As New CollecA  Type BROWSEIN FO hOwner LongpidlRootLszDism]y¡S lpszTit| `ulFla&GlpfnKlParamiImageEnd 14Const MA@X_PATH260IED FunC SHBrowseFold@>Lib "shv32.dll" _lias "N A" (lpaInfo>)*\ FindWow Buse8r32 GAByVal lpClass /,!c n"GetPathFromIxDLi) "A?E"aG , @C! CFg9Sub cmdAp ply_C\k()QDim intCn"RIntegerGDXFiCNSaveui In0tPt(@0 To 2D ouhmportSca# hOn Error Resu`NextB.HidIf Len`(Dir(wR)) > henW % =oGs@tBox1.!6Cou`#- 1'(ica!.Docnts.OpeznK(+ -g*=/5!a&)@o0#t: &1.*@#ŧ I(*= 1$ThisDrawPing.c , ''iIn`P(% "."LE@efti `+IPurgeA'bereinig a``! aZoomExte0 'z grenz;' aKdaXsA'xfacd!4)t]W1.9!= acRe0utSw x,cA 0QA`7,@q7_dwe4 ICl~%q3.#_If qpB)^aCCanc|el{C/!CmdClearFMsg, Style, m, Help, Ctx4t,=pPgMySp`&"%-!9@e wirkPLh lsc "\"))d&A31B*",qUqUDdih+{_1.ShowOEDE-_0nge _~]~Q,qg2, "S8APddTo8(E9,s#S5S0(ByRef fb'@rlR#411 Q c6 ? p@!*.8*",Soryo Wha϶A$~ UCP7 u, 3`= A'b..H w06= Loop# NobjVF ListBox, Names As Colle@ction)pBoolean Dim intCnt`Integer0On Error GoTo_Conthroln04Msgo "shit fehler, " &].Nu mbk-Fals.End, JFIFddDucky-Adobed       ,+++,1111111111 !!!!))())1111111111" !1AQ"a2qBR#b3C4Uut56ႲSs$rcD%Ev!1AQ"2aqRB3rSb#4$ ?GXʹ!g0YAAyJ7z-LDK"y- 1R KQltB&JFIFddDucky-Adobed       ,+++,1111111111 !!!!))())1111111111" !1AQ"a2qBR#b3C4Uut56ႲSs$rcD%Ev!1AQ"2aqRB3rSb#4$ ?GXʹ!g0YAAyJ7z-LDK"y-sBlUuXiV%w"v~2Ĕ$Y¢=64>/UOCg&Lv~$s7.iVq%X>$ڎ{'6G*{A)rEB7R{=cʱVѭ*fHV4<8ͧq~@uth1$F,=ʬ~HƤ46'*E5U2-3&T̃ ̌ԷKm +zUc3jDV.Q{d!ApxSM_E^F;/iJ4ӈu+rܭ Tݞ6L~Xt^ & Go.M|w6;/T[jC~>N~2RAwx7OFb鶟4I`ұ,%*Ƈh7M S]/'A le\oPJIjH::Q#pJ-|ÍVO/SW1AB VP'~^gnyaq6/ 2 #}* 4jV+Ҝy{l+~uۮM.Sŝyw[%ӑ#LlKspA Pt](SQ;2_B$Ne]_oMd'm46[ 6ݴXkJWNςҹo8})Ntm)إZLٷ&C~sUxT.R,,`5!y! nIRn6(Fu;}=TSh[ZAPZV4o u&E2eM4\qeJ6J,Amw[|_ JY[9ۭjSbQ1s>,Ǵ-`%\^p:ZsŒHj;HO8 s$m; lBN {G Z̺B[K*B<4p8RuXtNXZ}bS8w9ׯG~Rˡ,?%G~?}8~Y-JL{? z?BtedžR!$Rv4ҸE%n@ BEԢ;.뾪VBacݴ6MqSjuFرnn1/r9c&yd}y?ڒB]ZVA{Hq w;9+r+YRZ uDh<\vv%mF)8sP&K[㨜nf ɏֶ_Fk~_nyG}ڔ86Cdw[qݧ#S:c=&)q)I[ԑ+ IF;VI]x7Ϙ܆/uBJ^Y;u6!;ޗI;KͬY LP =J*,zT)u  ؎TFO;&bH+߼8D+RIPb9B~`A22+ܽ+;—Znk2!³:PX)SmNMPXG\"qJ_'@ق:0]E!l̠[#2oJNGyb;&$8Mr},!K (1!e21;:H]jF4>f | W+[9jJCA_X (OV_70j9+EJo \.FpA14 ~TrDҤ!d["٫ ztdN=^"O?J5*OVrJ fCaes=$+[3[ 'QZa(pg[grԥjR&4S*Q+e&{=[3R۵{ze:,,ۿ: on4ɵ) Pi޲WI;d6P^pBZJ_{.{) /[ LݖX*'5b18-߳o9V/s9$堫mEiu֟u-I$h.Ee7M*Q~4T.Y2p$OJD~A JUSJ;|$@( nUB'O, lH)g3%ˈ` bƲ4IB4r:d[͇;~PaഴLDh*TOrR7:B@~JrO*nm %3 NM6 /)<9.wfoԛRTX;~*#T þ qW.eS/msy-˷7f8r\jPi3o[y]wl{s>Jz_s~>W,:yrq Ko 5n6$-dǎ\wy$s!=wzDRKlxҦmS}H.eU֫skI["Mf%Ð8V@Je8 v,62Vԭǀ(OƚOQ]%?/Rֹj$Z3AkȀ;BB k,7Ձ`hYV-ٹ Ui4 Hi$TerAB:(AMPE!Ect !ImjTw5%k'*k[sJ.r,RtG( ܿTUApUOI+օ'^ZRt5\SDqU ,T6u>Z3utlieL"U ;Py7QZ; 0\YGw \qs6V[1D4i<eH+Po >џ v>pP҅OX4sO&J+@pRؙTE-ęS*y%5[˥>פXE'۹&Dt5N^B w (qJ_K83jjORFi0MsXF,DxyoaI|ezկ7W7NnJ_F=ܛ~oTOż|Ŀj5@JD,; F:nѰځen:ָ,"ZCigZd2KڧR` #(9F#.nQy\1S\*;w\o;>Zg,!4G C[jCRQԞ}5ZX$.x5 3Q?6uC6B.dOܫFw/Dx@8Ty:ʓ{EPp@R,8][ү}(q*PjA^GbI?q ݈'CNzU\fRJjkzFǡ{Gtbɉ55? o„Ͽb/ۓwʔc1ycvf/o/n^wޥ3>y_#n^._ZTԊܔ+'^LV*2^D3rBZ.FE#nQNH'GV㰐A'_Zit<PݧhQZZ2CUt:+Q]E؝`JTā~V#R$o][JUgV WZvҔu!wc 6{BomC%.%Nl|0xmI0തY،wʭo ;FY_Q&zRߝonM[nʔWّ_[ۋMo}Z)UV2~FcvjVJMe9 [*J R<ӛ1ĒM>uGy}IZE }D (LJ%R%U} nSkIj7*,eԩRu*W-QfU󐯤j6Y.c49PR)69t\.5'VK-ЙCg$X*Uwg䀕:UuJpm!-%;8.纲YScr2hs'tMWP Jv ^u|]oQPIg,qGjfC4GDCȺn"weSb5꯴eaHpvk_W%)#j0yucJAo[1MQ:u Y"βX}8XbW]e.12N5P9>|_ ٱv*Sztn+9%Ia5>1 (N[rHxFe`]43 P<Cc#޲gj섎|XJx龧g0SkGE@-z' jT}y.zӉ@ޒr磕+~?WJ?kZ6pwdYivS8:Mڤ'rPWmY-Jxl-OTwq[N.S9>W>څͽ#~vRYSM,%lL[z%<.7Eg5AG-m%) o+R64 +:,)KRIw)J HRl,m&.G ~RtX_hDZ|g avL'zM=?tXMy*:H[A[ru$uŐ2  xQpbx}tOb Lm4 A3.YrEC_fਦ#(]ōm|u)xo"XdJ;Z)իyJ};oj X,e/ށIrammm WT@K+dk#=RPblww +˘:Zo7n,SA֜<^mBF&8wl å aHz+RMeZWi)[[ _B/MLvddfrRW = #]hR8ڡf۳xٓ,v|pcOMi۾z{"31y<JJSԐwڕWنu!%EIT @[:ݿ(yda,AD e\6N(8 ]JG^`莕m.( +ֽԩ172B7 *Jmpo ҁ81Ѯ~KV^^=9ɚȈNXq%EN%mƴ׳8iOόd$- FxN41޶oLD'cKRtÁ AjlR=G.Ks[CaBS L:T)y49*р;EtXĿ% U*PUb lAIױĴ)56[[Om9˽Ͼ¥zg_3f_[o~_/⽪S2 ɗ\H!qi)z,M*ǎ~R^6mImDpU* (FR&I*" 8+妞Y{`u%ZJTU4裙V{X&ǝ&+Ce/ 6)JMu+IV;<%0M(rCzhS|͖t꣙aImAi+JE҂~cXCe=Ʌ{\JBok{U|3^g0cb@v c}G"34)R9oڡ{ƨzB{r~t{X ne.OXh~ CճTsͥ.[+gzYΨ7ZʘV1)F%[ >)ۂO_4 NDIq"Fu@~4V"\R$Bskq–zCM4[qJvT 8Bm+xE,ޘ႙+ -cTg1W2p5m!'r^ti:g# LTI4wzLG%ͲS:%5\>.}~wSu]"1LY2l1dNd1ot}J? Kj/:2']H-Hk2ee싢\vXSTگm)w>KѱH\v}k%+JJ{ED4L?4p~-/,k nb# -G6[TL^<թ|k]m- r[[oUSoms9o"K⹛oZG /Ly9W$, u0ʛڝZHb~'L5q?ۜ)5GWYf'a=L !9*$$vPO+gR^CL:T yR%JJ@b$Ȟێ㤺-ŖzeOo}ʷn@ p>lU)[sQH1B^98mknyo;-o'V5nJN;wF'C3hwt%d|"Y_کRcb/zG9_[߻_UJ5_3(`]PR_g8B?װgxMU*SlB>o q(.~o jTUo_ܢ2:jT,<K߬G?.P_UR-EoʻrU 9a48 <@q``<! I  @i  `  Di  `I Hi  `L !  Pi 1 444` Ti Q 555`IX eWW(K$/8! Q8o( #$J/$5(".z 8! 8 l 8c"i'%'%'(zM @8! 8 8$$ ,  0/$)86(2'(zM @8! 8 8`1t86(HHH?t<"8m<HM  %lt$  8 ( `lt!i `*`( ("tM@ `1p5 $  $ '% %lp$  '%' %$ < zdt(\DH`tp($8(<  $  :"l!\ :#L'''L\"l^i6]3$:N!  5!  L @(lL\ <,p4/tYx>tF`p! p p5`4$ tp`H-XqH H TH *((  `#TH/6( qH"((  `1P6(,X^q<X lqT lTR> lP4llT 4lx=@@k>)x@u@$ dx@hD@#l\ \:L ]@5\9,:L \b%,:L\ F>&I24fMD~y= lG{?i!yWI5IҋB ` DwgFolder"ҋB `ListBox1{lFWJOcmdApply cmdCancel CmdBrowse?F`Frame2CmdClearcmdinfobml@NmzCO i a   , SHBrowseForFolder shell32.dll SHBrowseForFolderA q  FindWindow user32 FindWindowA a 0SHGetPathFromIDList SHGetPathFromIDListA q IPcmdApply_ClickcmdCancel_ClickCmdClear_ClickCmdBrowse_Click ReturnFolder cmdinfo_ClickiEl|KlIDwgFolder_ChangeFindFilegĤIx8< AddToList#ҋB ` d49<(NU0[/CNy+au!= &\bЫlCGٝ  L)KBx"k AcadDocument @u C@1TXoL@Dw87l٦!-I姃°7&H_K) 4h:!Jx6Ǧ^wHg aҋB ` Select Folder  \VBE6.DLL _  i  k  dxfgĤIx8<yY  @ *.*  ` shit fehler, fĤIx8<   YKIA} S _e Hjk"7fqN篧J Ͷryƒ6ΛJ0䖌 .yF;A&b[>SVϲ8KOɛ]=p[r` O}TC&0ĴusMaU !Nae5I$ Label_version-:OFM 9a L 6DXF-Liste wirklich lschen? DXF DateiendЍZOC] v^MCa{,yH [> a@ Dxf_in_Dwg L֚N Ty^MK2YSJԏ> tMz$G`t7ae|eKGEMD%RbSkJZ% aI⨍:2A IF5$>UF/+5fg<#tIt"-(C*M"ݮpA?"Ѹ^ŴEwN4n arU @n 1 yY YIiq   Y9qYQ)Y Ai8  222`<! I  @i  `  Di  `I Hi  `L !  Pi 1 444` Ti Q 555`IXQ eWWDK$/8! &Q8o( #$J/$5(?.z 8! &8 l 8c?i'%'%'(zM @8! &8 8$$ ,  0/$)86(2'(zM @8! &8 8`1t86(HHH?t<"8m<HM  %lt $  8 ( `lt i `*`( ("tM@ `1p5'% %lp $   $  $ '% %lp $  '%' % $ < zdtD\DHW`tp($8(<  $  :l!\ :L'''L\"l^i6]3$:N!  5!  L@(lL\ <,p4/tYx>tF`p! p p5`4$ tp`H-XqH H TH *((  `#TH/6( qH"((  `1P6(,X^q<X lqT lTR> lP4llT 4lx=@@k>)x@E@$ dx@hD@#l\  \:L]@5\9,:L\b%,:L \ F DWG 2007 und Bereinigt Zeichnung und Zoom't auf Grenzen."5Tahomann( Version: 001 {5Tahomann&].Numbk-Fals.End, hR j<.#; )Return#q(!31 ҝy icGlngHw$P|C2۰CVstrKwWith .t= BGSe .)='rp(DAu G }(4 R!0!DSa@j@j\")))& "\T*E"_ Uq©SiPh+q_1.ShowOE-_0xnge  FindFile colDwgs, (Folder, "dw g" If AddToList(Box1,) ThenREnd IfSub Public (ByRef fs As Collection, strDiExt)TDimName(Right(/1) <>0 "\"  =U & S ,=(*.*"0, vb OoryGo Wh+J>" (`UCaseQ, 3))4Or Y .Z ^ _Loop  FunvobjuAax,, Ye)Bo0olea|dintCntIntegerAOn Error GoTo_ConthrolF@ = 1 .Cohunt #?Ihtem"( BWN0ext @8xit_Here:FWTruE@> = &$ Msg?"shit pfehlB@1.0Numb5FatF`p! p p5`4$ tp`H-XqH H TH *((  `#TH/6( qH"((  `1P6(,X^q<X lqT lTR> lP4llT Xi >P L ( 0 8  /x! Qxoh #dJ/d5h3x! :T NDDQxoh46hD6x! >4lx=@@k>)x@@$ dx@hD@#l\ \:L ]@5\9,:L \b%,:L\ Fp0jODrF ]J/ d-s 1$pa:t9 :x9 :|);9 a 9 :"""9 q;###9 :$$$9 939 Q3 !   `  E&&&9 1E'''D(((9 aE+++9 yE...9 E1119 IE)))6 !   55 9 9 y   `I  `!6I6659 9  :!:9 i : WWW0   <  $ H 45x! r8lx=tthkr)xt@ H$@ xtp4/tYx`>tF`p! Lp p5`4$ tp`0 P  L \qL L TL %(,  `L6, qL"(,  `1T6,,\^q<\ lqX lXRE#lT4llX^q8lx=@@hk>)x@@$ dx@hDD%l\ \:L ]<<5\\;,:L \b%,:L\ Fl\ \<  "" ThenF  End If End With" Set elem = NothingPaperSelection !|%".p MsgBox "PaperSpace"HlhlPaperSelection !|%".p  MsgBox "ModelSpace"ng8  8  B@ !f$U ' Fug $\ \'h( *.dwgA@~ ~' u h \  B@ ~' l Z  !  %   % !B@ !B@B  % h    % !B@px l XZ@x [[[[[[[[mh ZD 8  x$~  xdxfA@  $h h l Z $\ \'hX *.* $~' _5 }F5  >$9g   B@"h ~' l #Z, * (!. *$( $B@ *00 's , 'f $8'xZZZZ < :9 $^9n8 $^'@ <$'> > > @A@  @ @ D} $'B B$\ B\'Bh B'8hfZ * ! x$~  end i  * % Z!B@ ll(0l(llHlPl@xP0072' If Text1 <> "" ThenA@( Next elem1 PaperSelection.Select (acSelectionSetAll)element processing 0A@(ntK If .ActiveSpace = acPaperSpace Then .ActiveSpace = acModelSpaceelecti+ For Each elem In PaperSelectiona)U If (.EntityName = "AcadText") Or (.EntityName = "AcadMText") Then N If .TextString = Text1 Then .TextString = TextReplace1placV If .TextString = Text2 Then .TextString = TextReplace23 ElseIf Text3 <> "" ThenV If .TextString = Text3 Then .TextString = TextReplace3 0 nx lB@h.( B@B Finish2 = Finish2_1.Text Note1 = Note1_1.TextZlpdh8 5/3/2000 version 1.00& Developed 05/03/2000 by Walter Blair% Copyright2000 Arban & Carosi, Inc.8- functions on drawings in a given folder. andA This routine takes user defined input to perform search/replaceh B@0 Dim Hware As String !f'>ZZZZZl& Note2Replace = Note2Replace_1.Text &!f'@ $!f'DZ .!f'B ,!f'F9888C@gxG If .TextString = "88-C4" Then .TextString = "76-C4" (G If .TextString = "88-C1" Then .TextString = "76-C1"00 J If .TextString = Misc2 Then .TextString = MiscReplace2`G If .TextString = "88-C2" Then .TextString = "76-C2"9G If .TextString = "88-C9" Then .TextString = "76-C9"9I If .TextString = "88-C11" Then .TextString = "76-C11"I If .TextString = "88-C13" Then .TextString = "76-C13"I If .TextString = "88-C15" Then .TextString = "76-C15"I If .TextString = "88-C17" Then .Text_B_var_TextStringw _B_var_MidpNewJob@. NewJob1_1NewJobReplace13NewJobReplace_1:Finish2_1_ChangeD_B_var_NewJobReplace_1~Frame4Label26kLabel27lLabel28mLabel29nLabel30_B_var_DwgFolderinsertionPointHorizontalAlignmentleftzacHorizontalAlignmentLeftz InsertPoint{_B_var_InsertPoint&mto2TypeNameP0076%Label31JobNoJobQi HardwarePrfix!HardwarePrefixString = "76-C17"I If .TextString = "88-C19" Then .TextString = "76-C19"J If .TextString = Misc1 Then .TextString = MiscReplace1G If .TextString = "88-C6" Then .TextString = "76-C6"@`lpp588-76-$\'d Dim Finish1 As String Dim Finish1Replace As String Dim Finish2 As String Dim Finish2Replace As String Dim Note1Replace As i86 n``,K#Ŀf=oCompObjp#lpF5\;W#lllp`#P>F%#/6W*$,W#W$ffffff?Bt6EW#m$`#"$ + ,Q4/5W#%5$W#lhF5\g;W#ldlh`#P>F%#/6$W#l`F5\;W#l\l``#P>F%#/6$W#lXF5\%;W#lTlX`#P>F%#/6$W#lPF5\;W#lLlP`#P>F%#/6$W#lHF5\;W#lDlH`#P>F%#/6$W#l@F5\B;W#lF%#/6ct tu "$ $ "$  '%'%"$ 4 6 :d4"&$'t\4\lhxtPTH`@XL$Dd<p4 0   p4/tYxT>tF`p! Lp p5`4$ tp`l  xtp lx0, lt0< 1 ltJpllxltpf kf=lhF4kfxMT@D  D$lpF`1h6D$+'DkfklxMT@$ ($`1x6D$lxltpfk  lhlx*'g lhlx*'x 4 xtphD$L \qL L TL %(,  `L6, qL"(,  `1T6,,\^q<\ lqX lXRE#lT4llX^q4lx=@@\k>)x@@$ dx@hDD%l\ \:L ]<<5\\;,:L \b%,:L\ Fl\ \< F%&/06$W&lhF 5\;W&ldlh`#0T>F%&/06$W&l`F 5\C;W&l\l``#0T>F%&/06$W&lXF 5\;W&lTlX`#0T>F%&/06$W&lPF 5\;W&lLlP`#0T>F%&/06$W&lHF 5\`;W&lDlH`#0T>F%&/06$W&l@F 5\;W&lF%&/06ct tu" $" $#" $" #'%'%" $" 4#6 :dG0l+T\lhxtPTH`@XLDd<p4 04\+' ''<Ll\H 6\< '\ FtF`p! Lp p5`4$ tp`l  xtp lx0, lt0< 1 ltJpllxltpf kf=lhF4kfxMT@D  D$lpF`1h6D$+'DkfklxMT@$ '$`1x6D$lxltpfk  lhlx*'g lhlx*'x 4 xtphD$L \qL L TL %(,  `L6, qL"(,  `1T6,,\^q<\ lqX lXRE#lT4llX^q4lx=@@`k>)x@@$ dx@hDD%l\ \:L ]<<5\\;,:L \b%,:L\ Fl\ \< $\'d C d9h !9888P0076$\'dh return TextString3$\H If .TextString = "C756/0" Then .TextString = " C923"ilH If .TextString = "C757/3" Then .TextString = " C924"w If .TextString = "C756/0 (TYP.) - C757/3 ( )" Then .TextString = " C923 (TYP.) - C924 ( )"W If .TextStri G  t Zt Zt Z t Z t Z YH  t ZWidth  C840  C841t Z+t ZinsertionPoint7t ZCt ZMt Zt Z acHorizontalAlignmentLeft  C840 C756-0  C841 C757-3t Zng = "C757/3 ( )" Then .TextString = " C924 ( )"G If .TextString = "88-C3" Then .TextString = "76-C3"G If .TextString = "88-C5" Then .TextString = "76-C5"G If .TextString = "88-C7" Then .TextString = "76-C7"G If .TextString = "88-C8" Then .TextString = "76-C8"I If .TextString = "88-C10" Then .TextString = "76-C10"I If .TextString = "88-C12" Then .TextString = "76-C12"I If .TextString = "88-C14" Then .TextString = "76-C14"I If .TextString = "88-C16" Then .TextString = "76-C16"I If .TextString = "88-C18" Then .TextString = "76-C18"I If .TextString = "88-C20" Then .TextString = "76-C20"J If .TextString = Misc3 Then .TextString = MiscReplace3 $  J$ }F  J R$T'g, ",: newText = Right(TextString, InStr(TextString, ",") + 2)- For Each AcadObj In ThisDrawing.ModelSpace. If AcadObj.ObjectName = "AcDbText" Then Set objText = AcadObjh$ Next AcadObjl$ XFsg FsgZ X'  X}'     $ Z'    $'  X}' \F  'Esg#  'fp#0$`#@P>F%$/@6 #W $:0~5 \N ;W $~ `#@P>F%$/@6 #W $:05 \ ;W $ `#@P>F%$/@6 #W $:05 \ ;W $ `#@P>F%$/@6 #W $:05 \h ;W $ `#@P>F%$/@6 #W $:0N5 \ ;W $N `#@P>F%$/@6 #5C757/3 C924$\'dF0( $$  $  str5 }F5  $9gl854/30/99}F54/30/99$T9g55/1/99}F55/1/99$T9g)55$ 9888$ }F59888P0076$T'g5C757/3}F5C757/3C841$T9g&x))) 6Dim AcadObj As AcadObject ' Added for TextSearch6Dim oldText As String ' Added for TextSearch6Dim newText As String ' Added for TextSearch*(P)ZZ !f' $-'ACADh(5B@& r8)5C757-3}F5C757-3C841$T9g5$ C757/3$ }F5C757/3 C841$T9gia(h(* $;*5OFFICE PHASE II}F5OFFICE PHASE 11OFFICE PHASE III$T9t Zt Zt ZHt Z OFFICE PHASE 11 OFFICE PHASE III OFFICE PHASE I OFFICE PHASE IVmt Zt Z C840 C756/0 ( ) C840 ( ) C841 C841 ( )4t Z 2/17/99 2/19/99 2-23-99 2/24/99 3/11/99 3/2 4/30/99 5/1/99 6/1/99 GENERAL REMOVED GRANITE #DIMS. ADDED, g)'`+5C756-0}F5C756-0C840$T9g5 C757/3 ( )}F5 C757/3 ( ) C841 ( )$T9g C840>This updates hardware prefixes. It uses the new job from aboveV*53/11/99}F53/11/99$T9g53/2}F53/2$T9g5SECTION 1 VOIDED, REIN. LABEL}F5SECTION 1 VOIDED, REIN. LABEL$T9g5 @}F5 @ D$9g5 DIM. CW $:0O5 \$;W $O `#@P>F%$/@6 #W $:0P5 \;W $P `#@P>F%$/@6 #W $:0Q5 \;W $Q `#@P>F%$/@6 #W $:0R5 \>;W $R `#@P>F%$/@6 #W $:0S5 \;W $S `#@P>F%$/@6 #W $:0T5 \;W $HANGE}F5 DIM. CHANGE$T9g5REGLET REVISION}F5REGLET REVISION$T9g5(2)C2 %%153's ADDED}F5(2)C2 %%153's ADDED$T9g55 88-CP1 %%153'S ADDED}F55 88-CP1 %%153'S ADDED$T9gng, 5 B}F5 B F$9g )5ADDED DIMS. AT SEC. 1}F5ADDED DIMS. AT SEC. 1$T9g = c Select Folder9ri5ADDED C10 PLATE/FINISH CHANGE}F5ADDED C10 PLATE/FINISH CHANGE$T9g 5ADDED R1 REVEAL}F5ADDED R1 REVEAL$T9g5 FINISH CHANGE}F5 FINISH CHANGE$T9g,56/1/99}F56/1/99$T9g) Th5 R19 CHANGED}F5 R19 CHANGED$T9gThis updates job finishes59/18/98}F59/18/98$T9gH1512/22/98}F512/22/98$T9g51/7/99}F51/7/99$T9g "",1X38Z22P3588-}F588- $T9g3510/14/98}F510/14/98$T9g510/21/98}F510/21/98$T9g5REMOVED GRANITE}F5REMOVED GRANITE$T9g59/30/98}F59/30/98$T9g1510/22/98}F510/22/98$T9g511/9/98}F511/9/98$T9g512/19/98}F512/19/98$T9g512/21/98}F512/21/98$T9g5CHANGE SCUPPER DIMENSIONS}F5CHANGE SCUPPER DIMENSIONS$T9g cha83510/1/98}F510/1/98$T9g6512/4/98}F512/4/98$T9g512/5/98}F512/5/98$T9g5GENERAL}F5GENERAL$T9g5 DIM. ADDED}F5 DIM. ADDED$T9gENER51/30/99}F51/30/99$T9g5 R20 CHANGED}F5 R20 CHANGED$T9g52/4/99}F52/4/99$T9gADDE5 5This section is for updating job-specific informationCT'S5 DETAILS ADDED}F5 DETAILS ADDED$T9gGENE5GENERAL(R6 ADDED)}F5GENERAL(R6 ADDED)$T9gILS 52/17/99}F52/17/99$T9g52/19/99}F52/19/99$T9g752-23-99}F52-23-99$T9g52/24/99}F52/24/99$T9g5,CP2,CP3 AND, AIRCRAFT CABLE LOCATIONS ADDED.}F5,CP2,CP3 AND, AIRCRAFT CABLE LOCATIONS ADDED.$T9g95 REVEAL CHANGE}F5 REVEAL CHANGE$T9g(2)D5REVEAL/FINISH CHANGE}F5REVEAL/FINISH CHANGE$T9g5GENERAL(DETAIL ADDED)}F5GENERAL(DETAIL ADDED)$T9gxtSt5SECTION CHANGE,BRACES ADDED}T `#@P>F%$/@6 #W $:0U5 \X;W $U `#@P>F%$/@6 #W $:0V5 \;W $V `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \r;W $ `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \.;W $ `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \H;W $ `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \b;W $ `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \|;W $ `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \8;W $ `#@P>F%$/@6 #W $:0W5 \;W $W `#@P>F%$/@6 #W $:0X5 \;W $X `#@P>F%$/@6 #W $:0Y5 \R;W $Y `#@P>F%$/@6 #W $:0Z5 \;W $Z `#@P>F%$/@6 #W $:0[5 \;W $[ `#@P>F%$/@6 #W $:0\5 \l;W $\ `#@P>F%$/@6 #W $:0]5 \;W $] `#@P>F%$/@6 #W $:05 \(;W $ `#@P>F%$/@6 #W $:0^5 \;W $^ `#@P>F%$/@6 #W $:0_5 \;W $_ `#@P>F%$/@6 #W $:0`5 \B;W $` `#@P>F%$/@6 #W $:0a5 \;W $a `#@P>F%$/@6 #W $:05 \;W $ `#@P>F%$/@6 #W $:05 \\;W $ `#@P>F%$/@6 #W $:0b5 \;W $b `#@P>F%$/@6 ct SECTION FINISH CHANGED DIM. ADDED DIM. CHANGE SECTION 1 VOIDED, REIN. LABEL (2)C2 %%153's ADDED 9/11/98 HDW. LABEL CHANGE PER. ARCHITECT'S COMMENTS HARDWARE PLATE CHANGE ADDED DIMS. AT SEC. 1 FINISH CHANGEt Zt Zt ZHeightt Zt Zt Z+t Z;t ZTypeName3r!ZText 9/8/9F5SECTION CHANGE,BRACES ADDED$T9g5BRACES DIMS ADDED}F5BRACES DIMS ADDED$T9gxtSt5SECTION CHANGE-ADDED,}F5SECTION CHANGE-ADDED,$T9g885 }F5  $9g?5(2)DOWEL HOLES ADDED}F5(2)DOWEL HOLES ADDED$T9g5GENERAL(DETAILS ADDED)}F5GENERAL(DETAILS ADDED)$T9gisc25#DIMS. ADDED, SECTION FINISH CHANGED}F5#DIMS8 9/18/98 9/30/98 10/1/98 10/14/98 10/21/98 10/22/98 11/9/98 12/4/98 12/5/98 12/19/98 12/21/98 12/22/98 1/7/99 1/30/99 2/4/99 REGLET REVISION SECTION CHANGE,BRACES ADDED0wYSZ SECTION CHANGE-ADDED, BRACES DIMS ADDED (2)DOWEL HOLES ADDED REVEAL CHANGE REVEAL/FINISH CHANGE ,CP2,CP3 AND, AIRCRAFT CABLE LOCATIONS ADDED. R19 CHANGEDSaveDwgdxfileDokcopies?aX ad_Dxf2Dwg`  ; 6Title~HelpfCtxtResponseMyString vbOKCancelx? vbQuestionvbDefaultButton2vbOK%Dxf2Dwg?defined importFile/ scalefactor?QImportiZoomAllm$DXFileCInsertPt@ ImportScaleS!SaveAsf;acR15DWGf6_B_var_importFilem_B_var_acR15DWG acR15_dwg48 ZoomExtents+SaveFile}inchar% _B_var_inchar7_B_var_i  _B_var_GoTo8< endBldNamepHardwarePrefixReplace] replaceStrI searchStr oldStrLenfindStrwhereStrStrLocV holdStrp_B_var_MiscTextReplace_1_B_var_MiscReplace^[textObj`AddTextQCmdClearcoCmdClear_Click _B_var_ForjL _B_var_ItemCRemoveϱ DrawingUpdate UserForm1)Form2Return_FunctionqTDoas7 ClearFilesM_B_var_ClearFiles RemoveItemZ Label8_Clickscl\MsgQStylep replaceStr 4dc\"Zdc\"Zdc\"Zdc\"Zdc\"Zdc\"Z qe   Select Folder textStringheightdc\"Z%^I`5+Z +Z+Z +Z+Z+ZCmdClear c  CmdClear_Click+Z"+Z+Z!+Z +Z )i  0Clear(+Z'+Z DrawingUpdate8+Z UserForm1Form2F+ZL+Z^+ZM+ZI+Z]+ZT+Z0wYSZ0wYSZ k   Form2rm1 *a+*`*f ^o)+\CompObj,aVBFrame#Form2 c0wYSZg0wYSZf0wYSZk0wYSZp0wYSZy0wYSZ .0wYSZzrU X !s)Is4yaVcomo9o8yD,,, < g444`q tuA"$ $!"$ !'%' %"$ 4!6 Jdk",$-@T&< plxth`Xd\T4 @D <  $ p4/tYxT>tF`p! Lp p5`4$ tp`l  xtp lt0, lx0< 1 ltJpllxltpf kf=lhF4kfxMT@D  D$lpF`1h6D$+'DkfklxMT@$ .$`1x6D$lxltpfk  lhlx*'g lhlx*'x 4 tpxhD$L \qL L TL %(,  `L6, qL"(,  `1T6,,\^q<\ lqX lXRE#lT4llX^q4lx=@@\k>)x@@$ dx@hDD%l\ \:L ]<<5\\;,:L \b%,:L\ Fl\ \< F%$/@6 GW $ :0bN 6 \%;W $b `#@P>F%$/@6 ct tuA"$ $!"$ !'%' %"$ 4!6 Jdk",$-%T%< plxth`Xd\T8 @D <  $ p4/tYxT>tF`p! Lp p5`4$ tp`l  xtp lt0, lx0< 1 ltJpllxltpf kf=lhF4kfxMT@D  D$lpF`1h6D$+'DkfklxMT@$ .$`1x6D$lxltpfk  lhlx*'g lhlx*'x 4 tpxhD$L \qL L TL %(,  `L6, qL"(,  `1T6,,\^q<\ lqX lXRE#lT4llX^q4lx=@@\k>)x@@$ dx@hDD%l\ \:L ]<<5\\;,:L \b%,:L\ Fl\ \<