ࡱ> Root Entry]<1The VBA Project W:]<_VBA_Project W:]<VBA Project Data"# !"$%&'()*+,-.Root Entryw')=@7The VBA Project W:w')=_VBA_Project W:w')=VBA Project Data"  0 /31254 6789:;<=>?@ABCDE ;!"#$%&()*+,-./0123456789:?<@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}Host Project Items& Host Project Item Names0W:w')=VBA Project Signature, Project_Data_CurVer(> &L{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}ID="{61A66947-3899-49D7-900E-76C4D060383E}" Module=Modul1 Class=Macro1ModalHandler Class=Macro2ModalHandler Name="test_exp1" HelpContextID="0" VersionCompatible32="393222000" CMG="0D0FAHost Project Item List Data8=VBA W:w')=PROJECTwm PROJECT 5BABFC3C3C3C3C3C3C3C3" DPB="1A18B2CDBECEBECEBE" GC="27258FC091C09FC19FC160" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Modul1=175, 175, 949, 778, Z Macro1ModalHandler=125, 125, 899, 779, Macro2ModalHandler=150, 150, 924, 804, Modul1Modul1Macro1ModalHandlerMacro1ModalHrU tPJ J< rs@tdole>stdol@e h%^*\G{#$Macro1ModalHandler$Macro2ModalHandler0650c215975$Macro2ModalHandler*0andlerMacro2ModalHandlerMacro2ModalHandler6@,PModul1[ __SRP_2 ^__SRP_3Macro1ModalHandler&~Macro2ModalHandler&V _VBA_PROJECT' dir __SRP_0__SRP_1JK*mrU~~~~~q VM(kAkz*  `y11! test_exp1Modul1Macro1ModalHandlerMacro2ModalHandlerF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a 09K\靯[<C:\Program Files (x86)\Bentley_V8i\MicroStation\ustation.exeMicroStationDGN Y @0FC:\Windows\SysWOW64\stdole2.tlbstdole  PMacro1Macro2 g00-0000-C000-000000000046}#2 ; !"#$%&'()*+,-./0123456789:?<@ABCDEFHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoqrstuvwxyz{|}~Host Project Items& Host Project Item Names0W:]<VBA Project Signature, Project_Data_CurVer(> &L{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}ID="{61A66947-3899-49D7-900E-76C4D060383E}" Module=Modul1 Class=Macro1ModalHandler Class=Macro2ModalHandler Name="test_exp1" HelpContextID="0" VersionCompatible32="393222000" CMG="FAF85Host Project Item List Data8=VBAW:W:PROJECTwm PROJECT 2D8CEDCCEDCCEDCCEDC" DPB="7270DA605361536153" GC="EAE842E8BBE9BBE944" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Modul1=175, 175, 949, 778, Z Macro1ModalHandler=125, 125, 899, 779, Macro2ModalHandler=150, 150, 924, 804, Modul1Modul1Macro1ModalHandlerMacro1ModalH0* pHd test_expD10@ = p PJ J< rs@tdole>stdol@e h%^*\G{SendCommandc modalHandlerMacro1ModalHandler(!AddModalDialogEventsHandlerC SendKeyinPRemoveModalDialogEventsHandler_ CommandStateandlerMacro2ModalHandlerMacro2ModalHandler6@,StartDefaultCommandKlasse1AClassIModModul1 / _VBA_PROJECTL dirMacro1ModalHandler& p Macro2ModalHandler&G 00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`sMModPul1GMMKdDuM12U)H1}$  ,1($!+Macro1:alHandl erG$ acr@1CjaCH nrۀI 2 -h-"@$(BN/2Y/2a/JM/WO/O]*P/B2-C000-000000000046}#4.0#am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\alDialogEvents4!IModalDialogEvents_OnDialogClosed@ DialogBoxNamel DialogResultwMMsdDialogBoxResult7!IModalDialogEvents_OnDialogOpenedmsdDialogBoxResultOK7Macro2NMacro2ModalHandlerTI )  6`D(_*VBA\VBA6\VBE6.DLL#Visual Basic For Applications0*\G{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Program Files (x86)\Bentley_V8i\MicroStation\ustation.exe#Bentley MicroStation DGN 8.9 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation P Modul10f50c211c8 Modul1$$ $Macro1ModalHandler0h50c211de)$Macro1ModalHandler $Macro2ModalHandler0i50c211deI$Macro2ModalHandler*8X 8"PD?n's`Z-rcKmf&iJk3]$)) As_Ifa ImplementsxlongMicroStationDGN8VBAWin16~Win32MacVBA6#Projekt1Astdole` test_exp1CModul1 _EvaluateMacro1N startPointPoint3drpointpoint2lngTemp CadInputQueuel xME PSS S`L8<@<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}(% %*90% :i<6)>% B0i<P)>`2h8Glph88pP*\R1*#d1"   "   Hp H8 H   HH P h 8hoh < Export File9MDL COMMAND MGDSHOOK,fileList_setFileNameCmd 00416_AB.dwg "B@$B Remove the following line to let the user close the dialog box. D'>k Export File < InformationB Remove the following line to let the user close the dialog box. D'>k Information16o:MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd P:\transfer\ "B@$@MAttribute VB_Name = "Macro2ModalHandler"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacIFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustPomiz EIements IDialogEv1 P(, SDub_OnClO(ByVal"  BoxAs Sng, Result Msd ) End:$BOpened! If2Abrt File" Then( CadInputQueue.SendCommDL COMMAND MGDSH OOK,f@List_setDirectoryCmd P:\transfer\@ et,d00416_ABP.dwg'@Remove the following lin o letBuser c|d` box.G*Y= mNyOKNzZ8 ' HWaInformation a??f-?0H!XD(_xME PSS S`L8<@<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}(% %*90% :i<)>% B0i<PATED)>`, h8an bph88pP*\R1*#d1"   "   H8 H H   88hoh <Save Asr\:MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd P:\transfer\ "B@$B Remove the following line to let the user close the dialog box. D'>k  Save Aso9MDL COMMAND MGDSHOOK,fileList_setFileNameCmd 00416_AB.dwg "B@$-Attribute VB_Name = "Macro1ModalHandler"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacIFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustPomiz EIements IDialogEv1 P(, SDub_OnClO(ByVal"  BoxAs Sng, Result Msd ) End:$BOpened!e If2Save@-" Then' CadInputQueue.SendCommDL COMMAND MGDSHOOK,fileList_setDirectoryCmd P:\tra@nsfer\@ etF@c00416_ABP.dwg'@Remo@7the following line t@o let Au`ser c{d box.G*X= mNxOKNyqY ' DV~<F $xME (<<(P  $ $ $ $@ 2h( 2   " 08H BP   B   0 @(Xx@o]]]] &A@*ommand7 The following statement opens modal dialog "Save As" Start a command DIALOG SAVEAS "B@$DMSG UPDATEDIALOG -400 "B@$DMSG UPDATEDIALOG -400 "B@$kRdADMSG UPDATEDIALOG -400 "B@$DMSG UPDATEDIALOG -400 "B@$, Send a keyin that can be a command stringtask sendtaskchangedasync "B@,$task sendtaskchangedasync "\Drawing" "B@, &A@.Ent 0B@2o]X]p]; The following statement opens modal dialog "Information"al dia] &A@*; The following statement opens modal dialog "Export File" Start a command DIALOG EXPORT "B@$ &A@. 0B@2Attribute VB_Name = "Modul1" Sub Macro1 () Dim startPoint As )3d

stdol@e h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`sMModPul1GMMKdDuM12U)H1};  ,1($!+Macro1:alHandl erG$ acr@1CjaCH nrۀI 2 -h-"@$(BN/2Y/2a/JM/WO/O]*P/B2o1ModalHandler am *\G{000204EF-00c;U"EؗicD|kA!spӊHahA t{0"$)a ImplementsMicroStationDGN8VBAWin16~Win32MacVBA6# test_exp1Cstdole`Modul1 _EvaluateMacro1N startPointPoint3drpointpoint2lngTemp modalHandlerMacro1ModalHandler(!AddModalDialogEventsHandlerC CadInputQueuel SendCommandc SendKeyinPRemoveModalDialogEventsHandler_ CommandStateStartDefaultCommandMacro2NMacro2ModalHandlerIModalDialogEvents4!IModalDialogEvents_OnDialogClosed@ DialogBoxNamel DialogResultwMMsdDialogBoxResult7!IModalDialogEvents_OnDialogOpenedmsdDialogBoxResultOK7 OnProjectLoadaT5#  6,(5*000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications0*\G{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Program Files (x86)\Bentley_V8i\MicroStation\ustation.exe#Bentley MicroStation DGN 8.9 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation  P Modul10750c21597 Modul1$; $Macro1ModalHandler0550c21597xME PS<S<S<<6<><<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}x %*7 8pi:AND )<eCmd% @i:/)<8 %h@%0@@"   "   H8 H H  0 HH   0oh : Export File:MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd P:\transfer\ &B@(9MDL COMMAND MGDSHOOK,fileList_setFileNameCmd 00416_AB.dwg &B@(B Remove the following line to let the user close the dialog box. B'<k Export File : InformationB Remove the following line to let the user close the dialog box. B'<k InformationoH@MAttribute VB_Name = "Macro2ModalHandler"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacIFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustPomiz EIements IDialogEv1 P(, SDub_OnClO(ByVal"  BoxAs Sng, Result Msd ) End:$BOpened! If2Abrt File" Then( CadInputQueue.SendCommDL COMMAND MGDSH OOK,f@List_setDirectoryCmd P:\transfer\@ et,d00416_ABP.dwg'@Remove the following lin o letBuser c|d` box.G*Y= mNyOKNzZ8 ' HWaInformation a??f-?0H!X,(5xME PS<S<S<<6<><<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}x %*7 8pi:)<% @i:)<8%h@%0@@"   "   H8 H H  ( 80oh :Save As:MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd P:\transfer\ &B@(9MDL COMMAND MGDSHOOK,fileList_setFileNameCmd 00416_AB.dwg &B@(B Remove the following line to let the user close the dialog box. B'<k  Save Aso-Attribute VB_Name = "Macro1ModalHandler"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacIFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustPomiz EIements IDialogEv1 P(, SDub_OnClO(ByVal"  BoxAs Sng, Result Msd ) End:$BOpened!e If2Save@-" Then' CadInputQueue.SendCommDL COMMAND MGDSHOOK,fileList_setDirectoryCmd P:\tra@nsfer\@ etF@c00416_ABP.dwg'@Remo@7the following line t@o let Au`ser c{d box.G*X= mNxOKNyqY ' DV~rU $`$`nrU~| f4e5 $xME(<<"<46  ` X% x% E%`ro vb% 2` 0% P&B@% pn th%` nged% %P$*\Rffff*0750c215977" ( 0 >@  $ $ $ $0 2X( 2   " (8 B@   B  $H $p $ $   0@]@]`=u]] A@$=u0=u7 The following statement opens modal dialog "Save As"