ࡱ> YH*ƴB:XN@cԤH( AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _Evaluate Module1b(ad_GetPlotInfoP adDevices\adItemßplotStre;adMediaAstrFindiXadPaperܴ ActiveLayout\RefreshPlotDeviceInfovbCrLf ConfigNameCanonicalMediaName5MsgBoxRGetCanonicalMediaNamesbpGetPlotDeviceNamesbl AcadDocumentZT   $ NhRoot Entry@V@#VBA_Project`K]͑@VVBA_Project_Version(VBA `K]V  ! "#$  !"#$%&')*+,-./012456789:;<=>?@ABCDEFGHIJKLNOPQRSTUVWXYZ[\]^_acdefghijklmnopqsuvwxz{|}~acID="{617D408D-5145-11D6-B11B-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="C5C7BE61C280C680C680C680C6" DPB="E8EA936494649464" GC="0B0970A792A892A86D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=44, 44, 693, 596, Z Z gModule1Module1PROJECTwmM>PROJECTThisDrawing y__SRP_4 t__SRP_5rBModule1 __SRP_2b__SRP_3`g_VBA_PROJECT3 dir(__SRP_0  K__SRP_1nrU~}   pole f%\*\K*mrU~~~~~~~~~c hr_wKFX_H  a ia Y1   ACADProject ThisDrawingModule1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ! I0aE1F @u;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD A@0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole  1YP.E .`M C:\Windows\system32\FM20.DLLMSForms aa`ݜ#D +|O# Y 2C:\Users\walter\AppData\Local\Temp\VBE\MSForms.exd Aaipad_GetPlotInfo Yj Ak,_f&FFcaݠzyL$jq#3 S'FaB&6KLI#s\ AcadDocument @6?N~^W  XSelected plot device for the current layout:   VSelected paper size for the current layout: dAvailable media names for the current plot device: 30 \Available plot devices for the current layout: PSVBE6.DLL  S q.E .`M  0* 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-02608C4D0BB4 Dindows\system32\FM20.DLL#Microsoft :" ] Ob Library/;D1tA00}#0#Gk0A44239CDD-2B09-4F7C-8223-2059C6`02E3C@XUsers\walter\AppData\Local\Temp\VBE\T.exd  P( Px . " (08 @ :P: +X: +h?0  DP%@  0  82X x  &  J%<  Pp0x  @2  ( 8 &@P ad_GetPlotInfobv< This routine demonstrates the retrieval of plot device andavxJav- media information for the active layout.4 The routine filters system printers from the list.' Developed for AutoCAD 2000 and above.: Demand load: -vbarun;ad_GetPlotInfo.dvb!ad_GetPlotInfo; version 1.00# Copyright2000-2009 ActiveDwg.comC This routine is provided for demonstration purposes only and must}C not be used for critical applications without your verificationyly3 that this routine will perform as you intended.dG This routine may be freely utilized for your own personal use so long8 as the entire contents of this header remain intact.zJ 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@(In4This displays the plot device for the current layouttain m',Selected plot device for the current layout: *'  !&!,'+Selected paper size for the current layout: *'$+   * * $A@0 now>This displays the available media names for the current deviceG !&%2' object'2Available media names for the current plot device: *'   AFo'" $ 30'"e  If strFind <> 0 Theng  $  *' bump End If` A@0sCThis displays the available AutoCAD plotters for the current layoutBWe !&%4'boundi'.Available plot devices for the current layout: *' (    off t'" $PS'" a If strFind <> 0 Then o9 If UCase(Right(adDevices(adItem), 4)) = ".PC3" Then  $ *' End If End If A@0o'$ $ !&!.'$hAttribute 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-9 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 IVe&@~_ 4 3 EqIBUNexb~