ࡱ>  Root Entry0ZG@)The VBA Project @ɩy0ZG_VBA_Project @ɩy0ZGVBA Project Data"%&$'()*+,-.Root Entry, @The VBA Project @ɩy, _VBA_Project @ɩy, VBA Project Data"  !"#  !"#$%&'()*+,-./0123456789:;<=>?@BCHEGIJKLMNOPHost Project Items& Host Project Item Names0@ɩy, VBA Project Signature, Project_Data_CurVer( &L{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}FID="{A0DC9618-965C-427F-AFFC-32CF58B2D206}" Module=Module1 Name="changelayer" HelpContextID="0" VersionCompatible32="393222000" CMG="323033B3B1B7B1B7B1B7B1B7" DPB="B4B6B535B5B6B6B6B6B6" Host Project Item List Data8 VBA @ɩy@ɩyPROJECTwm PROJECT d GC="363437B73BBBBCBCBCBC43" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=52, 52, 1146, 546, Module1Module1nager6@,rU tt  2]( J< rstdole>stdole h%^*\Module1A_VBA_PROJECT dir+__SRP_2FT__SRP_3 Dgw__SRP_1B'0* pHd changelayer8@ = t  2>](( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\Windows\Sys@WOW64\e2.tlb#OLE AutomatXion0tk Module1GLduQN1 2QH1- ,4*!+c"(+am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files (x86)\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For ApplicationsZ*\G{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Program Files (x86)\Bentley\PowerDraft V8i (SELECTseries)\PowerDraft\draft.exe#Bentley MicroStation DGN 8.9 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation 2>](kModule12=5de63e32Module1 @P#;L` ER-T,1P+ As_Ifa ImplementsxlongMicroStationDGN8VBAWin16~Win32MacVBA6#Project1 stdole` changelayerModule1b _EvaluateStart startPointMbePointpointpoint2MbeSendCommandMbeStatemodalDialogByUserB_B_var_MbeSendCommandMacro1NPoint3drlngTemp CadInputQueuel SendCommandc modalHandlerMacro1ModalHandler(!AddModalDia  !"#$%'()*+,-./0123456789:;<=>?@ABCHEGIJKLMNOPSTUVWXYZ\]^_`abcdefghijklmnopqrstuvwxyz{|}~Host Project Items& Host Project Item Names0@ɩy0ZGVBA Project Signature, Project_Data_CurVer(R &L{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}FID="{A0DC9618-965C-427F-AFFC-32CF58B2D206}" Module=Module1 Class=Macro1ModalHandler Name="changelayer" HelpContextID="0" VersionCompatible32="393222000" CMG="292B28282C282C282C282C" DPBHost Project Item List Data8QVBA@ɩy@ɩyPROJECTwm SPROJECT ="1C1E1DECE3DEE4DEE4DE" GC="0F0D0EFDF203E404E4041B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=52, 52, 1146, 546, Macro1ModalHandler=78, 78, 1172, 572, Z Module1Module1Macro1ModalHandlerMacro1ModalHandlerrU t 2]( J< rstdole>stdole h%^*\CommandStateStartDefaultCommandClass1+6@x)H,% D0ClassIModalDialogEvents4!IModalDialogEvents_OnDialogClosed@ DialogBoxNamel DialogResultwMMsdDialogBoxResult7!IModalDialogEvents_OnDialogOpenedmsdDialogBoxResultOK7OnDialogClosedOnDialogOpenedF Layermanager _B_var_StringӊstrMODULE_NAM__SRP_3DgMacro1ModalHandler& [w __SRP_1 F__SRP_0Module1_VBA_PROJECT& dir__SRP_2FK*mrU~~~~~q jM/BCeJ5  a ` IiModule1 changelayerClass1Macro1ModalHandlerF:C:\Program Files (x86)\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA 9 a09K\靯[QC:\Program Files (x86)\Bentley\PowerDraft V8i (SELECTseries)\PowerDraft\draft.exeMicroStationDGN Iq!@0FC:\Windows\SysWOW64\stdole2.tlbstdole  QPMacro1 aation DGN 8.9 ~0* pHd changelayer8@ = t  e>](, J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\Windows\Sys@WOW64\e2.tlb#OLE AutomatXion0tk Module1GLduQN1 2QH1.-w ,4!+@Macro1=alHandlerG$ acDrC1MFaFH nrK 2 --_"@$( BC/e12=5de63e32Module1am *\G{000204EF-0000-0000-C000-000000000046}#4.0#EH5 $  stdole` changelayerModule1b _EvaD(_k_xME 9#C:\Program Files (x86)\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For ApplicationsZ*\G{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Program Files (x86)\Bentley\PowerDraft V8i (SELECTseries)\PowerDraft\draft.exe#Bentley MicroStation DGN 8.9 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation e>],kModule12B5de63e7eModule1.$Macro1ModalHandler2A5de63e655$Macro1ModalHandler_ @ P#;L`uscD4,1P+ As_Ifa ImplementsxlongMicroStationDGN8VBAWirU $`nrU~| 0 @  logEventsHandlerCRemoveModalDialogEventsHandler_ CommandStateStartDefaultCommandClass1+ClassIModalDialogEvents4!IModalDialogEvents_OnDialogClosed@ DialogBoxNamel DialogResultwMMsdDialogBoxResult7!IModalDialogEvents_OnDialogOpenedmsdDialogBoxResultOK7OnDialogClosedOnDialogOpenedF Layermanager _B_var_StringӊstrMODULE_NAME< t#kxrU $`nrU~| kMEx xp8Attribute VB_Name = "Module1" Option Explicit piFx)H@% D0iFt@)H8P% %*C@%X)Hpn16~Win32MacVBA6#Project1 stdole` changelayerModule1b _EvaluateStart startPointMbePointpointpoint2MbeSendCommandMbeStatemodalDialogByUserB_B_var_MbeSendCommandMacro1NPoint3drlngTemp CadInputQueuel SendCommandc modalHandlerMacro1ModalHandler(!AddModalDialogEventsHandlerCRemoveModalDialogEventsHandler_ PSS S`LB],*\R1*#d6 "   "  ( B@ R H( 0 $H Hp "  x8ho` F Importebenen4MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\GI\ .B@0xCMDL COMMAND MGDSHOOK,fileList_setFileNameCmd LAG-Norm_Layer_FLP.csv .B@0B Remove the following line to let the user close the dialog box. N'Hk Importebenen FEbene/Filter importierenB Remove the following line to let the user close the dialog box. N'Hk  Ebene/Filter importierenonAttribute VB_Name = "Macro1ModalHandler"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacIFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz EOption 0licit I&ements IDialogEbv P26 Sub_OnClX(ByVaDl  BoxAs Sng,  Result Msd )L8End:$BOppened! 9If2Kortebn" T8henA(A CadInputQueue.Send0CommDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\GI\ etFAcLAG-Norm_Layer_FLP.cs v'Remove the following lino letBuser c~d box., [= mzOKO{\ ' WXEbE0/@timp2iere2f0a\endCom\(kxME (<*<46 < x%8% (`   % %`, 2%@@@e>],$*\Rffff*2B5de63e7e "  (8 N@  B *  8 H`xp@o]]]H The following statement opens modal dialog "Ebene/Filter importieren"mp] 2A@6< The following statement opens modal dialog "Importebenen" Start a commandLEVELMANAGER LIBRARY IMPORT .B@0 2A@8 :B@<Attribute VB_Name = "Module1" Option Explicit Sub Macro1()  Dim startPoint As 3d