ࡱ> CompObj aVBFrame,Test W_VBA_PROJECTdir{.__SRP_1JRoot Entrye˓?VBA_Project 5re˓VBA_Project_Version(VBA5r`ڳ˓  !"#$%&':  !"#$%&'()*+,-./0123456789<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~acadID="{1D55D08B-A425-4C51-9624-B534857DC07A}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Test Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="8A8832FEF402F402F402F402" DPB="484AF003F103F103" GC="0604BE02C27E817F817F7E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=54, 54, 1274, 495, Z Test=108, PROJECTwm;5PROJECTThisDrawing__SRP_4\__SRP_5gTestotterLayouts  @cǓHܳ˓fo rU~~~~~~~~~~~~~~~~_   i a( ! 8  iH 1iX Qih ix i 9i Yi  i Ai i i4plications*\G{1EFD8Ew0* 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 A90FB97F0-4D38-4BD6-B2C8-9818E37A5C586DOKUME~ 1\CarYn\ LOKALTemp\VBE\DTp.exd;!.E .`M "ZThisDrawingGTi@kDrawinPg 2 QHB1B-B,B c*"B+BBTestG@T2i(Cam *\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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 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{90FB97F0-4D38-4BD6-B2C8-9818E37A5C58}#2.0#0#C:\DOKUME~1\Carsten\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   FZThisDrawing7;4606d7afThisDrawingcTest7:4606d729cTest 8108, 1328, 549, , 81, 81, 1301, 522, ThisDrawingThisDrawingTestTest4@ue~rXxW"F_H>G- as=dimGend{MePublicSetSubTrueAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole` ThisDrawing5 _Evaluate AcadDocumentZSetPlotterLayoutsi`layoutsCount0v ModelType ConfigNamedi\ _B_var_di UserForm1)MSFormsCconfigIstylepuserform_Initialize5cUserFormN ActiveLayout\ StyleSheet&Layout- AcadLayout ModelSpace_RefreshPlotDeviceInfo plotDevicesNGetPlotDeviceNamesblxoListBox1AddItem  RemoveItemZ styleNamesGetPlotStyleTableNamesNListBox2ListBox1_Click  ListCount6SelectedYCommandButton1|CommandButton1_Click InitializeNClick PlotterName<ShowTest4_B_var_i _B_var_LayoutsB AcadLayoutsItemz _B_var_Set thisdraywing&@_B_var_thisdraywingyrefreshplotdeviceLabel1,SetFocusDefault ControlSource"SPLTc (  $u00}#0#k0 A9t ZOVd}L1EK<BJ3?k}xME8@SPSSS<8L `BJD b*x4 @BL @`p8x x  8% 8t @d  bb^pD@ .`@ P`H \ @H @F (`4 P0 @ ( ("`H@` 8`0P(t0 F'px". @+H `px  5  `"07( &808"@h P6.71H x]8]x !2! '*k] !:!6.6  6B@<r] 6%@'>] B > > B$> DB@F0 DB@H  D!R   D%T ^  %( (o o A@ro]p]` D,T $!  %B@</ k D!d'^  !!Attribute VB_Name = "Test" Basl0{0D5CC02A-45DD-4FFC-88CE72B6A8C0A8}{A273C2F2-AFD9-441A-B4A0-FBB235CEE2E7} GlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizDO@ption 0licit Dim config As Varian Plott,er SnglayoutsAcadL @i Pub/ Sub userform_Initialize(0) ;= ThisDrawing.Actj(.CL C +KCSet DModell. .RefreshA;Devic`eInfoCp@A;FHA0=.Get.s<x/IntegerCFor x@LBound(H) To U ListBox1.AddIte$m H(x@ZNexs Remov2eB (0Selected@8Endq t _Cxk6.i 0* C2t - 1 If i)enHS6TBIf  QCommandButtonJ1O^rr,Resu`#Unload Mo*Q{\Quba>(i).BKTyp}$!a [ Elc:U# x8Zc#pV{bG= Cu!= &Z4}JAEKdxME PSLSS<<<<<N0{8E75D913-3D21-11D2-85C4-080009A0C626}8((%8|@|  % %  |x@|0F" "( X bB@` oAufruf mit: ^C^C-vbarun;spl;6HAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Public Sub SPL() 'Aufruf mit: ^C^C-vbarun;spl; Test.Show End H \ @H @F (`4 P0 @ ( ("`H@` 8`0P(t0 F'px". @+H `px  5  `"07( &808"@h P6.71H x]8]x !2! '*k] !:!6.6  6B@<r] 6%@'>] B > > B$> DB@F0 DB@H  D!R   D%T ^  %( (o o A@ro]p]` D,T $!  %B@</ k D!d'^  !!Attribute VB_Name = "Test" Basl0{0D5CC02A-45DD-4FFC-88CE72B6A8C0A8}{A273C2F2-AFD9-441A-B4A0-FBB235CEE2E7} GlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizDO@ption 0licit Dim config As Varian Plott,er SnglayoutsAcadL @i Pub/ Sub userform_Initialize(0) ;= ThisDrawing.Actj(.CL C +KCSet DModell. .RefreshA;Devic`eInfoCp@A;FHA0=.Get.s<x/IntegerCFor x@LBound(H) To U ListBox1.AddIte$m H(x@ZNexs Remov2eB (0Selected@8Endq t _Cxk6.i 0* C2t - 1 If i)enHS6TBIf  QCommandButtonJ1O^rr,Resu`#Unload Mo*Q{\Quba>(i).BKTyp}$!a [ Elc:U# rU @$`}nrU  4! I X0 0  X8xZc#<pV{bG= Cu!= &Z4}JAEKdxZ4}JAEKdpV{bG= CMEPSLSS>"<<<<N0{8E75D913-3D21-11D2-85C4-080009A0C626} (% `|J|0 % % 00x@|pF$*\Rffff*4D4606d3a34"  (0 bB@` oAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Public Sub SetPlotterLayouts() Test.Show End VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Test Caption = "Set Plotter to Layouts" ClientHeight = 3456 ClientLeft = 36 ClientTop = 324 ClientWidth = 4200 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 3 End  Microsoft Forms 2.0 FormEmbedded Object9q(OK OuTahoma0(Bitte Plotter / Drucker whlen:{w@Tahoma` 5Tahoma  }o,4CommandButton1 (2TLabel1$4ListBox1"