ࡱ> CompObj aVBFrame,Test L_VBA_PROJECT dir w7 __SRP_1*Root Entry09C@8VBA_Project 5r09CVBA_Project_Version(VBA5r}L  !"#$:  !"#$%&'()*+,-./0123456789<=>?@ABCDEFGHIJKMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~acID="{1D55D08B-A425-4C51-9624-B534857DC07A}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Test Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D2D06A928096809680968096" DPB="ECEE54BC74D775D775D7" GC="0604BEA6C2DADDDBDDDB22" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=54, 54, 1274, 495, Test=10PROJECTwm;5PROJECTThisDrawing__SRP_4\__SRP_5gTestotterLayouts  @cǓMLfo rU~~~~~~~q  )  a( 8 Y H  X 1hX Qihs0* pHd ACADProject8@ = t  F( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0MSForms>SFFrms3 ED452EE1-E08F-101A-8-02608C4 D0BB4EFM20.DLL#Microsoft : ^ Ob Library/;D1u00}#0#k0 A94E23DA4-7562-4D51-8@65E-E14B@79D7E16DOKUME~1\didi\LOKALATemp\VBE\S.exd ; .E .`PM ABDZBThisDrawingGT@ijDrawing* 2 HB1BE,B c"B+BBTestG@T62@-(Cramme\Gemam *\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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlb#AutoCAD 2009 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{94E23DA4-7562-4D51-865E-E1BB4B79D7E1}#2.0#0#C:\DOKUME~1\didi\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   FZThisDrawing3b49ff0f19ThisDrawingcTest3c49ff0f19Test 8V#Ldj,W[یFW?PnH79L,{meAutoCAD"VBA8, 108, 1328, 549, Z, 81, 81, 1301, 522, , ThisDrawingThisDrawingTestTestWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateSPLTest4ShowconfigI PlotterName<layouts AcadLayoutsi`userform_Initialize5c ActiveLayout\ ConfigNameLayout- AcadLayout ModelSpace_RefreshPlotDeviceInfo plotDevicesNGetPlotDeviceNamesblxoListBox1AddItem  RemoveItemZSelectedYListBox1_Click  ListCount6CommandButton1_ClickCount0v ModelType AcadDocumentZUserFormNCommandButton1|Label1, InitializeNClickItemzUtility1JPromptm thisdrawign4_B_var_thisdrawignUserCoordinateSystemsvbCrLfthis̹ _B_var_thisMsgBoxRTkHide9zT   $0-0000-C000-t Z8~,cEj íTK<]t>oxME@SPSSS<"<. :,@o $ :!D $ :%@ :!d'ko8 B@nad Me $ ! !H $$ !J  $ % (* $ % B@2ko A@r d ...Fertig. d !ZB@\ Dem Layout $ % ! wurde der Plotter   zugewiesen. d !ZB@\B@\ dStart d !ZB@\B@\Attribute VB_Name = "Test" Basl0{01B8B69F-9BE7-462A-B008-83FD5A38980A}{E376E039-A118-4185-B2E5-652A18B@33B0F} G lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizDOption 0licit Dim config As Varian Plotter SnglayoutsAcadL i Pub/ Sub userform_Initialize() ;= ThisDrawing.Actj(.CL C +KCSet DModell. .RefreshA;DeviceInfoCp@A;FHA0=.Get.s<x/IntegerCFor x@LBound(H) To U ListBox1.Ad@dItem (bxZNex@u R emoveB (0Selected@Endrӊu _Czk80i 0+C@4 t - 1C,If3,i)eny6 !)eP ,ETA0If QCommandButton1O`rr.Resu #Me.HidrRUtility.Prompt vbCrLf & "Start" C I{$f@ZukA!(i).TTypƆ,! Gd(%G(^"DLg a A_a$ wurde der9); ) zugewiesen. *ak<83...F ertig Unload M;&E @8Zc#<!׺jB)Aq~5zyL$jq#S1TFMx%1!0xS1TFMx%1!0!׺jB)Aq~5MEPSLSS6"<<<<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}  `|@h@% % % @@x@pF$*\Rffff*3b49ff0f194" " 0@PAufruf mit: ^C^C-vbarun;spl;exp B@vbo80Attribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Public Sub SPL() 'Aufruf mit: ^C^C-vbarun;spl; Test.Show End  d ...Fertig. d !ZB@\ Dem Layout $ % ! wurde der Plotter   zugewiesen. d !ZB@\B@\ dStart d !ZB@\B@\ B@PAttribute VB_Name = "Test" Basl0{2D9D5C6F-2B73-4B45-8628-FF9C9CC5048B}{E376E039-A118-4185-B2E5-652A18B@33B0F} G lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizDOption 0licit Dim config As Varian Plotter SnglayoutsAcadL i Pub/ Sub userform_Initialize() ;= ThisDrawing.Actj(.CL C +KCSet DModell. .RefreshA;DeviceInfoCp@A;FHA0=.Get.s<x/IntegerCFor x@LBound(H) To U ListBox1.Ad@dItem (bxZNex@u R emoveB (0Selected@Endrӊu _Czk80i 0+C@4 t - 1C,If3,i)eny6 !)eP ,ETA0If QCommandButton1O`rr.Resu #Me.HidrRUtility.Prompt vbCrLf & "Start" C I{$f@ZukA!(i).TTypƆ,! Gd(%G(^"DLg a A_a$ wurde der9); ) zugewiesen. *ak<83...F`ertig ;Show Unl`oad M"<<<<N0{8E75D913-3D21-11D2-85C4-080009A0C626} (% `|J|0 %