ࡱ> xME -` M``x`  layo`"rout`$rint(D    B( 4p : .8 @ X ` x *  J J :( NhRoot Entry0)e?@VBA_Project`K]0'e?VBA_Project_Version(VBA`K]0'e?    !"#$%&'()*+,-./0123456789:;<=>@ABCDEFGHIJKLNOPacadID="{617D408D-5145-11D6-B11B-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="393B42B246B246B246B246" DPB="727009D243D343D343" GC="ABA9D01D081E081EF7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=44, 44, 693, 596, Z 6, Z gModule1Module1PROJECTwmM>PROJECTThisDrawing?Module1 _VBA_PROJECT dirBgzn0* pHd ACADProject8@ = t  i =( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E: ] Ob Library/;D1t00}#0F#0 74775DC6-1C15-4F3A-A537-527EF1@7C0E92H.DOCUME~1\WALTER~1.\LOCALS@Temp\VBE\DM.exd4".E .`(M "ThisDrawingGThi@dDrawng 2 HB1¦EB,B "B +BCodule1GDoun1@ 2OM!HN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\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{74775DC6-1C15-4F3A-A537-527EF17C0E92}#2.0#0#C:\DOCUME~1\WALTER~1.WAL\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   i =ThisDrawing0@44e6c2bfThisDrawingEModule10A44e6c2bfModule18rvbOIRdRwZEv,faH(AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1bad_GetPlotInfoP adDevices\adItemßplotStre;adMediaAstrFindiXadPaperܴ ActiveLayout\RefreshPlotDeviceInfovbCrLf ConfigNameCanonicalMediaName5MsgBoxRGetCanonicalMediaNamesbpGetPlotDeviceNamesbl AcadDocumentZT   $4}#2.0#0#?#xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D9ThisDrawingThisDrawingModule1Module113-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomiz > P PH . "  : `:h:  D0x@ 8 Xh p  J<0PX p @   0p ad_GetPlotInfo< This routine demonstrates the retrieval of plot device and- media information for the active layout.4 The routine filters system printers from the list.# Copyright2000-2006 ActiveDwg.com: Demand load: -vbarun;ad_GetPlotInfo.dvb!ad_GetPlotInfo; version 1.00C This routine is provided for demonstration purposes only and mustC not be used for critical applications without your verification3 that this routine will perform as you intended.G This routine may be freely utilized for your own personal use so long8 as the entire contents of this header remain intact.J This routine is provided "as-is" and no declaration, written or implied,J is made as to its reliability for any particular task. Any use of this' routine is solely at your own risk.]@]X]p]]] !&B@(4This displays the plot device for the current layout',Selected plot device for the current layout: *'  !&!,'+Selected paper size for the current layout: *'$ !&!.'$  * * $A@0>This displays the available media names for the current device !&%2' '2Available media names for the current plot device: *'   '" $ 30'" If strFind <> 0 Then  $  *' End IfP A@0CThis displays the available AutoCAD plotters for the current layout !&%4''.Available plot devices for the current layout: *'   '" $PS'" If strFind <> 0 Then9 If UCase(Right(adDevices(adItem), 4)) = ".PC3" Then  $ *' End If End If A@0o' Developed for AutoCAD 2000 and above.Attribute VB_Name = "Module1" ' ad_GetPlotInfoTThis routine demonstrates the reeval 0of ptDvi@ce and media iSrmatio n for=active lay5_./TTmfilters system priBnfrom?list6Deve loped[AutoCAD 2000 abov emM load: -vbarun;}.dvb! ;NPvH!a1.00 CopyrightE8-6 AmDwg.com providZ/purpos!onlybmu st$ not@ be usc riticap pls with r - ifDthatQwwill perhm asAqnten(OJ0may!free(1lizD$owbnAson&+ so^ngentire co@wntsAt@headermxain!!Q"@as-is"KnboclaS,, wH@2 im@Ied,!@m! 0@"en SgJ 4+ 3 E`nIRNex"{