ࡱ> yam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#D:\AutoCAD_2000i\ACAD.TLB#AutoCAD 2000 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\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{B89669C8-1E8F-47F2-ARoot Entry7fzDVBA_Project 2J7fzVBA 2J-JfrmPlotFiles-J`RbKR P !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQgSTUVWXYZ[\]^_`abcdfjhiklmnopqrstuvwx{|}~PROJECTwm kPROJECTPROJECTlkff? < !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHILMNPQRSTUVWXYZ[\]^_`abcefgijdlmnopqrstuvwxyz{|}~<+/IH28C4C820-401A-101B-A3C9-08002B2F49FBID="{827DE560-A490-4C1C-9771-259DFA14B935}" Document=ThisDrawing/&H00000000 Module=BatchPlot Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmPlotFiles Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="CFCD0A5B1AEDE7F1E7F1E7F1E7F1" DPB="989A5D5E5E5E5E5E" GC="6163A429A529A5D6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C BatchPlot=88, 88, 683, 536, frmPlotFiles=66, 66, 661, 514, Z, 22, 22, 848, 341, ThisDrawingThisDrawingBatchPlotBatchPlotfrmPlotFilesfrmPlotFiles0* pHd ACADProject8@ = rU~~~~~~~~~~~~~~~~~~~~~~~~~~~o CompObj aVBFrame0ThisDrawingJ__SRP_6__SRP_7 BBatchPlot C__SRP_5 k __SRP_4h frmPlotFilese<__SRP_2z__SRP_3&_VBA_PROJECT)__SRP_9 O__SRP_8Krdir dir__SRP_0__SRP_1 VBA_Project_Version(~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~9  !PNumPNum1PNum2 A )( 8 !#H !%X &h q'x Q. 10 2 14 4 !6 7 8 : 1; A>( ?8 AH ACX ACh iDx AF YH I K 1L M N P )Q IR S( IV8 XH YX [h \x ] ^ Y`PageNo a b d !f Ag h i Qk( l8 mH QoX Iuh xxiCountfNames y i{ 1~    i 1  ) ( 8 qH X Ah Ix   !   ! Ѵ    i( !8PagNum Ht  Wp=( 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-02608C4D0BB4DFM20.DLL#Microsoft 9" K*mrU!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ ~~~ ~~~~!~~~ ~~~)~~~-~~~~-~~~ -~~~1~~~~~1~~~1~~~~~~~1~~~5~~~~~5~~~5~~~~5~~~5~~~~5~~~5~~~~5~5~~~~~~5~~~5~~~~6~~5~~5~~~5~~~5~~~~~5~~5~~~5~~ 5~~~~5~~5~~~1~~~)~~~)~~~,~~~~~,~~~~ }LKM͉   !zT ThisDrawingModule1 ACADProjectF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  90W &D:\AutoCAD_2000i\ACAD.TLBAutoCAD 1Y@0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole 1yPTextBox1.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms  1q`z1L3!кC:\WINDOWS\TEMP\VBE\MSForms.exd   qp AddPViewport PlotSetupEditPlotConfigAddPViewport_BAK  0u!= &q?(]yDѬKu!= &BsɑJ"DFXh{ _ AcadDocument @(x`5 c()`5()`5W[`5~a! cu!= &u!= &()`5 romand.shx DWGNAME %^I`5()`5VBE6.DLL ! a  GROS GROS$ GROS$TXT *GROS, GROS$, GROS$TXT  RM RM$ RM$TXT RM, RM$, RM$TXT ! S M^  DocumentOpen DocumentClose cat.txt eC`k-F  not found. ! ; 0 !  PC`k-FFMwM;cYH}@us_~`L Nothing qq <GROS, GROS$, GROS$TXT Page 0RM, RM$, RM$TXT Page !   Page 8 <GROS, GROS$, GROS$TXT> , <RM, RM$, RM$TXT> . GROS, GROS$, GROS$TXT . RM, RM$, RM$TXT 2 GROS, GROS$, GROS$TXT 2 RM, RM$, RM$TXTPlotDocs SheetSetup}TnQ`5!i;n`5स$*C ^J0B`5 cat2.txtfĤIx8< Error  generated by  ;   .  e !  P cat2a.txt ! 9 p{C5"FH?'TWDM{ >Attempting to access Document: "Failed accessing  cat3.txtI"Z; O 0C:\Program Files\Common Files\Designer\mtdsr.dllMTDesignObjects )Q KDEST $d:\Adobe\Photoshop55\TypeLibrary.tlbPhotoshopTypeLibrary A i UserForm1<+/IC:\WINDOWS\SYSTEM\comdlg32.ocxMSComDlg  C:\WINDOWS\TEMP\VBE\MSComDlg.exd q :EA r|%/JyS]Du]l6yfK4i=nMKfxD7^A2E瑩O+xr*niLv/r{lFWJOCommandButton1!-6S` qHȏ[qJ eUserForm,jGKA8  F3Dynamic   X<+/I CommonDialog1i H:lf hCommandButton1_ClickCommonDialog1_Enter H <All Files (*.*)|*.*|Text Files N(*.txt)|*.txt|Batch Files (*.bat)|*.batCommonFileDialog?bЃJAsqcE8Gɇ}Iפܡ_G1)V~/؀@ҕojn+OKHx3(DyS3{т@͞מVJY O׏` $   H4x[\!N+CjrD鿡%2%IB<<7#6$DO}cX6v$,)G@[9FՁ8>?cWE &  h[4.WFSRkr CatNam: +  NxsAFQPages R(*.txt)|*.txt|AutoCAD Files (*.dwg)|*.dwgx4nwM' Iڥ*M:YX_t`5D:\AutoCAD_2000i\AXAUTO15.TLB AXAUTO15Lib )9))xF !D:\MSOffice2000\Office\EXCEL9.OLBExcel )!*q*i1RDp 1w^$NkOðD\S+b.Ĺl߮CVz%^`[O)O'rcY̊uuKcD%J{k@N&jNm &All Files(*.*)|*.*| 0Text Files(*.txt)|*.txt| 4AutoCAD Files(*.dwg)|*.dwg浱5mO@;ì 88 :UE߁0(onk)@^= ).    ! w 8y-iAjOM WLj}^/CM8N~!qQDGH ;   iGH$c:\windows\TEMP\VBE\MSForms.exdOK ; ;q #,F&  c:\windows\TEMP\VBE\MSComDlg.exd a<q<   ngJ1:M 3Q$LmҤA_aiSNhHֶDq@n"6On?؇; >   :G KdL^\dGw-9BDOHx:|7 ̛J*twڳpޞIShȏŴE{+hW3]zV|A~UT ?     C`k-F 0Plotting Macro Cancelled.OFaZ+C$CJ; _t=[dOf|S/jO7ZJOQVEQnb A  x B $B4ږ-y?B ,R PlotFiles  faceg&ieK2hr8k5vĺE |'ZNrJ\1ktB8L3M{5ČDݒ! "-?@ FileNamesҋB `TextBox2Cancel[0Gjy2 AD  H \^ssL4]W-ҋB `  Jw L5|fOƺl\i# 1)͋B)2$ɂeCq.X8rZ&ZH?hz\&ࢳfE[܍ F   Cancel_ClickOK_ClickProcessDrawingsޖ~nB̋~l  Pr d#d3OdK%rJgZ1oGD1\GZ,XaISF*zCܫE` 1H  SelectDrawings  ze~4~AIfw'#Fk r9%CR2, 2H,w`½IHY LPu I  C{6frC4:>C7E`JTfP fpECY>[֧߽IUj;a J  3cvC fDPL0"M~n-Jܐ,( @ˣkF0 1ӏ*\B%GJhBW_ L    te,MSW63F7*H>O@u4__pm!O%y)]'Eߙ#Jtp1_muBS_I?.'dwoJ{٥Sx ReselectFiles O  (~"TGGs7)]L6l7E0DxKސatNG)oOߙ30"cJ}4 Q  ։ K\& ?nbUO tlsvԍnGBl*$ >oFV0FsS;cEnz} !R  bxaHd8m8%JGL%1mHcQl3:f XBŲ`KjŸ [!ۃJ|m iS  ReselectFiles_Click `rL_IG)^q,6!:#E2~ frmPlotFiles  III C!ѱ@4)6՛9bƣAM1[rg~NvG/+}8 _K#xIBp Y\  ƌ̪ JK\xnFhZI] ) `OD?$|B3g`kJp1ЍD ' y]  gM1XGG"<ڮ=06R\J-d1wGot@A95>H \G tK# ^   d  w4WCPp7SI`ƖzڦMp-EZċq61z)TLW @]IM|MȥzgMzE d  txtStartPage_EnterUlD0d׉ DxEc 0fU4>!I4- i    roh8@G 16TDg֯JgI%aEߜB6lA%{pT|E6`u )k   $@CZ\{XeH% Hj(ԋ9fD^ Yl    ׺uH@YE9VJ`\!%x=.J :%e- AE@D|AO؞"C pЮEUpKbH m    CjMW#SGPPK@ + KL& XA֔M\d]_@L$ )o  (u/BJ׫=n8uDY1 6AutoCAD Files(*.dwg)|*.dwg| 8AutoCAD Catalog(*.cat)|*.cat 8AutoCAD DirList(*.dir)|*.dirL,l[wLN dir ! j 8 !  X DIRC`k-FC`k-FFP`L:ktIBGF{l254BJ` N>G!׹%g @|b@cGOH)#&CR}Ԍ9Gcs([M@PE fcĄ7G-ܓ'1 LK@m40L$>*Jh::ƚpGZzF')Lb~ !u   ! :  *****-Su7OR({l REGENMODEJBOT䚋sw=@笴;ft8A%A }A;d+ȷVJ{qFaQѰ AEKۖaC3JIAcB"#vB'LfOOT*#fN© w  h  |4H WY{L?cCCl5{]KS\=Վ @Mz⺲L"3swEBW*] iy    4DX BatchPlot "KNM]X>F`3}*~/uG@Iܨn5UT%M B/(FHM-/n  &ccAr k ۥ@lO~   bb $(Ѐ,04DHdTK  /?@\SjOKxWc.C'6XEYl tNRF'A2zJjΝ_w A  8( bb $(,04DHd$J~K\W!ƫOx2_VCO+0z%@|st  ) ReadLayerList&  $(G0',,;PTXhleOe'   48ayr@ T`dhx|MTI.8ܨfYoBsM#3}_EϹ'@'F֏x|(5gRgF!aL ɋ  - \LayerSetup.lyr  VG,͕\NDZ a'   481C@F6-00`dhx|ky6BE4T#Bu> {qK`N)BDaIIb[lBxBMu{  7(   0DH\DP090\AptxrNf0Is~v?$i3KBK`h)  0DTX,` `,,E+`L9asrX=0EU0bMK<&w~ldBa*׌ UJVw\b\D[z\h,zcIiD !  ;)  0DTX`P - hE/`vyFBwI SelectSetup_DmyT y  = <Layer Setup File(*.lyr)|*.lyr|)  0DTXxe`eOe,"Yp OŞE=<gQBUG ^l*yiAj#>> m񚵝LV8C`k-FC`k-FC`k-FC`k-FC`k-F  Page C`k-FYHnF- EC`k-FC`k-Fa֤YE^c0NK now at FileNo=0m INjU$ fnames=  >now at FileNo=0, FileNames(0)= ~OwGqͶ; Msg01  Msg01:  Msg02: o:ȰJdkO Msg03:  I '܅ſDodL1f9/ zDѩBvAAn%Nr?q@U'!L$rs(  Msg05a: Z0D^]C`k-F\} BSq)  0DTX!` No1MSCo20zGV (MTTWk&A2wkDb^E rh4tLG y  K h4 True Msg05b: 8[z'M!hC`k-F %T DNvQ < *Msg04: FileNames(0)=  bMsg06: (Process Drawings:ProcessDrawing) CatNam=  @Msg07: (SUB BatchPlot:PlotSetup) Msg01: FileNo=  fNames= Msg02: FileNo=  FileNames(0)= DMsg03: (Process Drawings) FileNo= fNames= *Msg05a: FileNames(i)= DMsg05b: FileNames(0)\FileNames(i)= (Msg04: FileNames(0)= `Msg06: (Process Drawings:ProcessDrawing) CatNam=6C`k-F DOpen: Drawing(s) or Directory List ZMsg07: (SUB BatchPlot:PlotSetup) PlotToDevicewiQE 2ؐ{O06% RgN).E`@@J^]d#JO""qA#I̮Y  K)  0DTX`di 5iQV(Mdf ,Open: Layer Setup FilegQYxϟF8Hn{'T]>DX 4˵oKqT~IG@$L^HHX)(Zr)JH2W  M)  0DTX7: (`tchPt:Plot)+ LY_a] B7u67_l IW/RľOb>NyKhT A  O_KMذGa@3ebƏYl|6=xuDh_^3M X,?" ViewsIterateDդ c()`5 &Active Viewport is   Lower Left at  , Upper Right at Target point at Target point: Center point: ViewsN% \F-ޗJ3 V290-30 ViewRestore Update "-VIEWS R B290-30  -VIEWS R B290-30 VIEWS -VIEW Big Red Layout2XJ0B`5}TnQ`5 Letterx?N-  XRefInstancesW[`5 $AcDbBlockReferenceName  at  , ! e ?PathInsertionPoint  on Layer:  QN DAc (PublishToWeb DWF.pc3 Layout1+(9.NL3:Display Model=Je‹D/e$aSqM_?o> *Layouts.Item(i) ***>> *Layouts.Item(j) ***>>gĤIx8<gĤIx8<Example_ViewToPlot!  3 BThere are no named views to plot. * ( )    DWhich view would you like to plot? View To Plot) You must supply a numeric value corresponding to one of the views listed above. ! T 7 PltVpt(e`K3w5 ! 1 3*  0DTX9F`00A000_OE9Y;5E}jA7}h  7)  0DTXthis`g.visYS!(J$ 4)  0DTX` _eOeFj启BH4pSAF(I  U Page )  0DTX`  `P#+DNԚc4./ B%dX_VMRN)  0DTXOe`@VE<t PlotViewz+Gnۛ! 8Letter (8.50 x 11.00 Inches) 8ANSI A (8.50 x 11.00 Inches)SLf;Nݹ Tabloid CAFM.ctb 8ANSI A (11.00 x 8.50 Inches)@-J 4The default paper size is  Width:  Height: DWF Clas\ Ob Library/;C1sA00}#0#Gj0rAB89669 C8-1E647F2-A348-24BB1FB7198A6c:\windows\WP\VBE\DOp.exd`7.E .`M @MSComDlg>AEcCcmDgMcx@A-F9@C`88-F6,cA@3C9-08B2F49FB}#1.2҅comdlg32.ocx-mon Dialog Control 6.0 (SP3)f8(08z9E623B305-E11B-462C-BBAC-9D932684AAA9gSLg:@<+/I4ThisDra@CgGA@ThigD@raw`nPg2QH12- "," ""+ BatchPlo0tG tc P`Ho 2/8-Ȋ! %frmFilePsGf!mF"As@"&2o2oXv "((i|, #rU~|  -  +pt$ t lp=x)tp x t$ Tt \t t$ Tt rU $348-24BB1FB7198A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0#C:\WINDOWS\SYSTEM\comdlg32.ocx#Microsoft Common Dialog Control 6.0 (SP3)*\G{E623B305-E11B-462C-BBAC-9D932684AAA0}#1.2#0#c:\windows\TEMP\VBE\MSComDlg.exd#Microsoft Common Dialog Control 6.0 (SP3)<+/I  Wp=ThisDrawing033c298be7ThisDrawing 2BatchPlot0<3d708aabBatchPlot8frmPlotFiles2=3d712054frmPlotFilesXv82Xx80JZLq N}4;#H=r{Hkڟ-@v>db8b As b=dimBDoubleCEachDelseEElseIfGEndHendifRFalseTFor\Go]GoSub^GoTo_IfbincInputjIntegersLine{Me}Mid$NotnothingObjectOnPrivatepublicReDimReturnSetStopSubThenToTrueWendWhileAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b AddPViewportJLay0h AcadLayer LayersItemzLayerOn Freeze" ActiveLayer> ActiveSpacee acPaperSpacen1oPViewT AcadPViewport* PaperSpace$DeletexPgH_WmDisplayMSpace{>ActivePViewport%* ZoomExtents+ZoomAllm$tStyle.` AcadTextStyle0ActiveTextStyle fontFileTxtObj/AcadText~DrwNam GetVariable~AddTextQ PlotSetup layerColle AcadLayersOLayObjd Color2FacWhiteMRegen acActiveViewportrNMsgBoxREditPlotConfigs CollectionWAcadPlotConfigurationskmAcadPlotConfigurationPlotConfigurations CenterPlot' ConfigName PlotHidden_ PlotRotation^ ac90degreeslPlotTypeOacLimitsAddPViewport_BAK* AuditLayout ACADLayoutLayoutsAddr ActiveLayout\acAllViewports, AcadDocumentZ _B_str_Date{BPlotX PlotToDeviceLayColZ DocumentOpenHdocName׷ Application* Documents DocumentClose? _B_var_OpenlEOF _B_var_WhileIfaX_B_str_aCatNam$uCatJ}DocumentjPageNo"dPNumPNum1 _B_var_SubPNum2TxtStr50xoStr _B_str_StrzPageN} _B_var_ifPoagenolM _B_var_oagenoacCyanpacYellowPlotDocsi SheetSetup8 originalValuePlotWithPlotStylesNK ModelSpace_Layout-RefreshPlotDeviceInfo Preferences PlotPolicy acPolicyNamedLCase: _B_var_LCase' _B_var_On6 ErrorHandlerOErroNumber-ErrMsgSourceGvbCr$ Description  vbExclamation _B_var_ErrMsg`?1H _B_var_Error)Loc`Lo ^Lcsj2IClearcZCatErr}GErrCatMTDesignObjectsPhotoshopTypeLibrary UserForm1)mscomdlgWUserFormN CommonDialog1 CommonDialog1_Enterj CancelErrorF ErrHandler }FlagsocdlOFNHideReadOnlyFilter; FilterIndex˟ShowOpen~FileNamej_B_var_CommonDialog1_B_var_CommonDialog1_EnterxCommandButton1|CommandButton1_ClickEnterClickShowCommonFileDialogUserForm_ClickUserForm_ActivateZsActivate| ActiveControlyHide9zVisibleFilNam _B_var_FilNamform _B_var_formNv FileTitlecdlOFNAllowMultiselect$ VBcommand _B_var_SetFileOpenConstants.  CommonDialogo_B_var_CommonDialogfileopen _B_var_fileopen(_B_var_ShowOpenU commondialo AXAUTO15LibExcel+FileswXtxt Termminatel TerminateyLi`Count0v _B_var_ForjL _B_str_MidX _B_var_redimFilNamen MaxFileSizeTmdProcessDrawingZ;_B_var_ProcessDrawing _B_var_gosubx PlotFilesBf_B_var_UserForm1 FileNamesTextBox1SPagesTextBox2SOK^CancelOK_ClickR Cancel_ClickProcessDrawings. _B_var_CatNamSelectDrawings__B_var_ProcessDrawingsFileNames_Click ReselectFiles0ReselectFiles_Click frmPlotFilesC lblFileList txtFileList lblStartPage txtStartPageHcmdOK' cmdCancelcmdReselectFiles>cmdReselectFiles_Click± cmdOK_ClickcmdCancel_Click\_B_var_PlotFiles`SelectDrawings_Enterw_B_var_TextBox1/+txtStartPage_ChangeN9Change _B_var_PageNoTrim@ _B_str_Trim ReturnBooleanetxtStartPage_ExittxtStartPage_EnterOAmsgbocR _B_var_msgboc+Right  _B_str_Right#(UCase5  _B_str_UCaseKinpu6tAs _B_var_Line _B_var_ElseifqmOneFil~/fNamesq _B_var_fNames+LOFc SetVariable?RRgnSetFxiubt _B_var_xiubt BatchPlot, StartUndoMarkl AddCircleCenterW;RadiusV EndUndoMark*TxtObj1"TxtObj2#_B_var_TxtObj2oText1oText2magbox# _B_var_magbox̊ _B_var_DrwNam&B ReadLayerList( LayerSets|_B_var_LayerSets@FileNoLayNum layerset _B_var_layersetcLayNamjaLaySetA" SelectSetupL_B_var_SelectSetupA>ile _B_var_ile[ _B_var_Next'o _B_var_OneFil'DirFil*f DialogTitle߄ ScrollBars SelLengthSetFocusViewportIteratev AcadViewportLL^URp_ ViewportscActiveViewport LowerLeftCornerCUpperRightCornerؔvbCrLf ViewsIteratewViewsTAcadView~TargetFoT^oC^ _B_var_oPView ViewToPloth/viewIxxvasau ViewRestoreUUpdate SendCommandcRiB290[ Direction&vdir/ _B_var_vdir_B_var_LayoutsB AcadLayoutsmsgQACADPrefAcadPreferencesFiles$ PrinterConfigPath!dDISPLAY_CONFIGCanonicalMediaName5 ObjectName XRefRenameZxOldRxNewXRefEnt  AcadEntityiInsertionPointHandle XRefInstancesצ _B_var_StrPath2LayerObjecl.Height| PlotStyleName oPViesQthis̹ _B_var_Layout։acViewViewList`ViewNum#Example_ViewToPlot2iCountlViewName vbInformationnvbTabc9RETRYNEInputBox  IsNumeric$*DisplayPlotPreview acFullPreviewtq _B_var_TrimmT _B_var_View<V290.objViewMPlotViewAcadVieobViewPagNumDLyrObj!LyrColLyrNumLyrNamLyrSetw7PlotWithLineweights8lyrcolle_B_var_lyrcoll yhisdrawing#_B_var_yhisdrawing d[ setopview~r_B_var_setopviewBlitext2t StyleSheet& _B_var_LayObj  acExtentstTacLayout.PlotViewportBorders PaperWidthg PaperHeighta GetPaperSized= ac270degrees ac0degreesT ac180degreesLayObjsuPltVpt  optPrinterx_B_var_optPrinterbValueKlue@optWebJ= chkIsometric/emdif frmpltfilesڪ_B_var_frmpltfiles< chkDwgFontk _B_var_FileNopgyrObj_B_var_L l  642XvNͱyF;x:{xM 󫘨~FI)&vVMOHx&vVMOHNͱyF;xME$SPSSS6"<(<<<< <$<(<,<0<4<8<<<@  `  <  8  6 8& H4 x& (0 @, (* 6 ( 6  : (: Hv T  BP`@``!  ( X P (@L @< 0 , @(   &   X $  0   @ @ @  p `@ @ @ @   x@ `8 @ 0@ @  h @ @ @ PP 8@0hp ` 8P @ 8 , 8x` P `0Pp0Wp=$*\Rffff*2=3d712054DHLPTX\`dhlptx 6X  * P R0 R R N8   8   " x "  "  ` @ " 0  8     .p  xp.H 0  @  ).B x  8h '(E@ ((       8.G   ` &2  (  @    @     X    (  3  p    P H    p x"H  L$ 8   H  ` p    P XX  "h0   (p@ H h x  "+  `  h  `  p      =  p   $^rU Xo** Y EI , pq*..1YqQrr!11*+ho  9c*b !avAq    Y\i 0``)Hd)YhA lCIVpCiVtCIVxA i |U`I U` U` Ci W  yjW0 0  L$$ 0 p  P(lDz:l4 Th! h hhKIcl%h! h,h:l%h! h,h:l%h! h,hl%h! h,h.*#T*FD%h! h,/Th5D(l%h! h,h(l%h! h,hh! hh)h! haD`#TT/Th5DTJc@'(DuT #T 0/T5DD(lDD5D d@}D"XD(l]t(lDTJc<'(DuT #T =/T5DED"X(DuT #T*#8D"X;2T85DD(lDD5D d<D(l]t? TDUc4<GTX*#T *#8uX*#0 *#,T2T80, d4D(l]3TD"X;2X #T #802T8 TX]   4D(lDD5D=X]D"XDUc( 44#TuX;/T3TFl4D:X `#TT/T6D d(E=:l4Th! h hhh! h h cl%h! h,h:l%h! h,h:l%h! h,h$*FD%h! h,h5D(l%h! h,hh! hh h! haD`h5Dz v]  @ uzlu #Tu/T=>xP,(T80,hDp0PT! T llP #Lz2PLT$KD(<]3xXF<l 72D(<]tDUc$4:<]3uXF<l+X *#PuX*F,l/P l\ 7 uz d$2T02='<%lP T$ dT  0!/P)T (<%"$ uD, #5,' %f<%$ 4$ $TT %lTj& $TT %l#P*#L'*# $  $%l*#(*# *# $ ,%l*#)*1X2PL)T p0lX\@ PLT ,|\8PX Hxo8 ( d (* B@,|t vL & V ($8 !.'  v  L'  v$     ' $  v$  + v ress  v$  G  'jk v s v  vMous  " (v$ $ \ v$ 'W eH (.k  (dlHA@opo`@]](k B@H D: S\'0 v RAW '  '\ vsp.k|  !!B@l A@dw`X ! Error ! generated by  !;  !.'Dko B@H3-s0oA@B B@Hp !d$ '`h' (dHp0All Files(*.*)|*.*|AutoCAD Files(*.dwg)|*.dwg|AutoCAD DirList(*.dir)|*.dir ((`dk0V$ 8`XX v MOxTrue'8 Wenk$'0  e FilX 8`` REGENMODE B@(X  8 8  h' ,( \L ,(.pu'All Files(*.*)|*.*|Layer Setup File(*.lyr)|*.lyr| ,((0H 8 X  p  ,(*or G ,!.'eA@H ]]0 $  '  l  +Laye  +)|*.lyV(  ,B@,0 H( '$ 8True v$' H $$ $ DIR$\ v$'   +s x h 8'H  'fh $fi v 8  8 ' `V 8 v+ (@ t` eBox | '8 Open: Layer Setup File ,(:"Open: Drawing(s) or Directory List (:p H Example 15-9.Example 15-12. B@@7initial focus must be text box to initialize scroll bar@Pp B@BBox Xh']p]]]@ Example 15-8./ VBA for AutoCAD 2002: Writing AutoCAD Macros Jeffrey E. Clark# Copyright 2002 Prentice Hall PTRJ This software may be freely copied and used so long as this disclaimer,K together with the above copyright notice, are included in all copies andL any accompanying documentation. These example programs are made availableK "as-is" without any explicit or implied warranty. Neither the author norG publisher warrant that these programs are error free or will operate without interruption.` Example 15-10.Example 15-11.PExample 15-13.e 15 Example 15-7.h@]8Attribute VB_Name = "frmPlotFiles" Bas0{AA103AE3-DD7B-4D78-8E0B-BA94E0F61EA5}{98ABF397-A4A8-467E-BC9D-4929CCE@115B0} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizDOption 0licit ' A for AutoCAD 2002: Writing MacrosJeffrey E. Cek Copyright untiHall PTR7This softw may be 'ely copijand uAso lBo@!as t dis@Oimer,togethe@r withe above#$noA!, includin 3A%s Cany accomp@A?documentaAN. Th"eexaae programre1dvail]"as-iDs"&outyP expB_ @\i;Brantyp. Ne1@34 auth norCpublis:ar ;at<$q"errTAwi_operC#J#int up 7gE615-7.ADim Dir As S@0ng ANo5MfAs @s(b) P@% Sub cmdRWlec|_C% k() T UserForm_ActivBEDgOK.Hid`na ProcessDraw=[7 Cancel 'h)8b)G*= 0LyrNum@1@ $.tx'List.Texjt`"`O BGoTo Termin( Se/E!.E= Ô DialogTit""Open: (s)O :ory !$4lags @cdlOFNA8R eadOn`+ AllowMultisb `^ A" s(*.*)||" & _al"dwg: !#A dir"ir!Index@"22MaxSiBz2048Show2F0`m i1 EpLen(qA#I@f Mid$,@ i, 1) " "n+ =+ 1c NRic٣ReF„0Q No > hen632P s Q? 1 <> C G1oB c!?+E҃Uu3P6FIfg ^H9H1!B S E+3)`5"\5BiAvbCm5  %woOA7UC$$(RQ$(G0), 3)A"DIR4 U q4 Inputam#- WhЪ Not EOF(1Q Line #1~,v 3O! WendkCl@>  ; & ?:A a7Qo%#=/ 6+'[&& E !pZ!6w  0OK.SetFEs'inal@cus mtARbox tlo ^s`ba3{>10>p@#<^0up}9}}LayB0ketxxT"m0tly2t`|O.StS yq  }0eᬣSajCol?Sa *r7@ 7WC0aDam,a b`s({og2R`GF0Exit :r 2D11+!Yate Sub ProcessDrawings() Dim CatNam As StrpdErrp2Msg 2PageNo = Trim$(txtStartA.TexttfrmPlotFiles.Hide On lor GoTo Handler If 0^0 Then=!ames(0k GoElse,> ,FHig|1 J?:-D ir "True" MQiQF.0) & "\"Ix&`nd If's=| KL%{(+ 1N@{ iYfesIHExitD -G 'Example 15-12.˳:ThiE.Application.Documents.0OpenJ? SetVariab@"REGENMODE",6Sheet up (=Dp Close Fa@ Retur030D0@.Numbper <= "@@ @@ gener@d by _c#6SourceaH;vbCr!Descrip&."cEe2@i/a F8lxMEt L 0 << <$<(<,<0<4<8<<<@<(h Ax P6h  &3 A    4    x*   *h  $   "H  # `2X   H -.8 P`p$  X "        ( xA@@] !H.D?+4F?+4F+4?'6  4 6 !0%T.]0 !% . ` (^  (&]]] (extd ($^Obj.oh ` B@<( 8 h ( H  ?'6 ` H H P x  0 h @X  p !.X X p  X0  ` X p rU p$`(` / nY1rU~| "ho b i 1YY ! a A ! H$$ x$ 4lx=0x04tR_4 t4t5K4`:d%x$ 4x Pl`=4)x`04\_4 d_4 \4\x_0 \x4`:d%x$ 4x Pl`=4)x`4=[x$ x$ .`x$ tx \ l`= X)x`lX= [x$ P x!x$ Qx[PTL  T , TL @T@TT @ H@`@HTMd %x$ x Ll`= T)x` T ` 4`:d%x$ 4x Pl`=4)x`4=[x$ x$ lT= [x$ x-<x$ x cH`Fd%x$ 4x Pl`=4)x`_4 \#P_4 T do2`:d%x$ 4x P` \)x` X -<x$ x (t px.\....,..D !B@ub, file specification (<,change to mspace \B@LayObj PH * ((,change to paperspace , (>,activate new pviewport@+4F@+4F+4,set up and create new pviewport (<,change to pspace+4F?+4F+4,...and page number ($, ...thaw allall  ,or else 8 (,unlock all layers0h P8 d B@b0 !% .Drawin  (&,set 0PltVpt B@ LyrPltVpt !% ."0  (&,"set pviewport layer for new layout xXPltVpt !% ($Example 15-19.07:  XX0PltVpt !%.\mexD?+v,ThisDrawing.SendCommand "-VIEW"alent {/L ?+v,&& vbCr & "R" & vbCr & "V290-30" & vbCring.Se?+v~@@hX ,B@2,delete current pviewportsCount ]@,create new layout taboutsXx( !(ra ` (^, and make color whitehisDra ($,...set according to to  ,if no layer setup filetion =(8 \ (  ,layer set 0 on all thaw all , !0FhPublishToWeb DWF.pc3 !(t(|  !(| z !(x !(],...equivalent ofLetter !(ct  !(| !(erCAFM.ctb !(dk !!HP LaserJet 2100 Series PCL 6" !(t !!k ! !k romand.shx D(J] X88] ] ]] 0]h,set up title line... @HX] Example 15-17.Example 15-18./ VBA for AutoCAD 2002: Writing AutoCAD Macros Jeffrey E. Clark# Copyright 2002 Prentice Hall PTRJ This software may be freely copied and used so long as this disclaimer,K together with the above copyright notice, are included in all copies andL any accompanying documentation. These example programs are made availableK "as-is" without any explicit or implied warranty. Neither the author norG publisher warrant that these programs are error free or will operate without interruption.XExample 15-14.Example 15-15. As XXAttribute VB_Name = "BatchPlot" Option Explicit ' A for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*Copy rightA Prentice Hall PTRoThis software m@ay be Oely copied and usAso loas t6disclaimer,ttogether withe `above$FnoB, 6includ+in J 7s7&any accomp~documca. These example programcd=vailable'"as-is"Mout3y i#wranty. Necfi auDthnor&p ublisuarswatyIEerrTAwi_operat%J#int up7gE615-14 .PAc i As I ge#jLyrNumQPageNoQ SetASng DLayers(1 To@ 128, B2)I Dim @ColAcadDObB+F oText1 +2HDoDRAW P(0A*'E Sub Docs(), mFiles.Show8 E  ~Id5BdSheetEup(@U[@ =UisDhrawY.!FaCEach!"Ind $.LockFal@LAai'unlil4-N@* cbRResi\x.Item("0"VKa h' sJ0 `athaw~OnTru:I.Fre|ez ncO.Add "PltVp D!7Active/7C'pviewport cAnew`|Q Spa@=Pa@ 'change to p=sCiay5A AEP'cre  tabc""cN>@ :s(((9"= C oPV"s!~a$H?`)$'"`.D8ele'dQcura &3sF# 6B{! ) =5.25: hP(14=L 0?up ר-F3H7|`10#S@!!6(P, W, H.Disp' '3ryr!.Freezek False"Col= O2NjEnd IfL"PltVpt")>Tru> 'Examp15-19.  $=VRefreshPlotDeviceInfoIf fr mFs.optPrinter`.Valus4 TheSActive7out.ConfigNa"m"HPserJ2100 Series PCL 6""" Cganon{l MediaLet@(A6Typ#acExtents ViewportBordO|-StyleShe== "CA@FM.ctb+EJ>JRPublishToWeb DWF.pc3?c?Rot=ac90degNWithLineweightsN>/eRegen |acQ7c=  .9ToCbEfBayfNoth9"yrz4toPSqoT1621tJ)A!Subrat%J#int up7gE615-14 .PAc i As I ge#jLyrNumQPageNoQ SetASng DLayers(1 To@ 128, B2)I Dim @ColAcadDObB+F oText1 +2HDoDRAW P(0A*'E Sub Docs(), mFiles.Show8 E  ~Id5BdSheetEup(@U[@ =UisDhrawY.!FaCEach!"Ind $.LockFal@LAai'unlil4-N@* cbRResi\x.Item("0"VKa h' sJ0 `athaw~OnTru:I.Fre|ez ncO.Add "PltVp D!7Active/7C'pviewport cAnew`|Q Spa@=Pa@ 'change to p=sCiay5A AEP'cre  tabc""cN>@ :s(((9"= C oPV"s!~a$H?`)$'"`.D8ele'dQcura &3sF# 6B{! ) =5.25: hP(14=L 0?up ר-F3H7|`10#S@!!6(P, W, H.Disp' '3ryr!.Freezek False"Col= O2NjEnd IfL"PltVpt")>Tru> 'Examp15-19.  $=VRefreshPlotDeviceInfoIf fr mFs.optPrinter`.Valus4 TheSActive7out.ConfigNa"m"HPserJ2100 Series PCL 6""" Cganon{l MediaLet@(A6Typ#acExtents ViewportBordO|-StyleShe== "CA@FM.ctb+EJ>JRPublishToWeb DWF.pc3?c?Rot=ac90degNWithLineweightsN>/eRegen |acQ7c=  .9ToCbEfBayfNoth9"yrz4toPSqoT1621tJ)A!Subuption.XExample 15-14.Example 15-15. As XXAttribute VB_Name = "BatchPlot" Option Explicit ' A for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*Copy rightA Prentice Hall PTRoThis software m@ay be Oely copied and usAso loas t6disclaimer,ttogether withe `above$FnoB, 6includ+in J 7s7&any accomp~documca. These example programcd=vailable'"as-is"Mout3y i#wranty. Necf4DHJe#  $,LPTdlоH {:A5O˳Ce׍*D0zq/&HBEpٟ@NK   k ""4DTX   m$   4<\`dti auDthnor&p ublisuarswatyIEerrTAwi_operat%J#int up7gE615-14 .PAc i As I ge#jLyrNumQPageNoQ SetASng DLayers(1 To@ 128, B2)I Dim @ColAcadDObB+F oText1 +2HDoDRAW P(0A*'E Sub Docs(), mFiles.Show8 E  ~Id5BdSheetEup(@U[@ =UisDhrawY.!FaCEach!"Ind $.LockFal@LAai'unlil4-N@* cbRResi\x.Item("0"VKa h' sJ0 `athaw~OnTru:I.Fre|ez nc'\Kn#K2'0E-y_JLBJ*ۅCϬJs][U4[Mzd  g:5 L`cTxh[#  $,Vhap15_LPTdlt} )M3.LUKSI'w A߲o8͞אNob!-Jt'[_ Y  i 4cmdOK( 8cmdCancel#, 8cmdReselectFiles5K4`:d%x$ 4x Pl`=`)x`\`\_` d_` \`\x_\ \x4`:d%x$ 4x Pl`=`)x``=[x$ x$ .`x$ tx \ l`= X)x`lX= [x$ P x!x$ Qx[PTL  T , TL @O.Add "PltVp D!7Active/7C'pviewport cAnew`|Q Spa@=Pa@ 'change to p=sCiay5A AEP'cre  tabc""cN>@ :s(((9"= C oPV"s!~a$H?`)$'"`.D8ele'dQcura &3sF# 6B{! ) =5.25: hP(14=L 0?up ר-F3H7|`10#S@!!6(P, W, H.Disp' '3ryr!@Tahoma8Fg {0Use Drawing Font@Tahoma,  @@@&}",R KQDBTahomaH{@L <+/I<+/I90~uM TL $SelectDrawingsa28C4C820-401A-101B-A3C9-08002B2F49FB, 2TlblFileList( 8txtFileList{, 2PlblStacad$ $ "'d%x$ x @!x c= X c=0 c=4 c= T c=8 c=< c=  x` t\PLTX rU $`$A`$`$`$`nAi\I 0``)Hd)YhA lCIVpCiVtCIVxA i |U`I U` U` Ci W  yjW0 0  0   H$$ |(lD (l:l4 Th! sic.pc3:ɇAU-f "Bank Gothic Md BT_+*gJ~A oD <HP LaserJet 2100 Series PCL 6"ݫ,?2CP1R\nSߺ@cL}=P2B=E>?I@U/:%ۘKr3ARҋB `optWeb optPrintereSH?9 4D  0Z p4)  0DTXL`h hhKscl%h! h,h:l%h! h,h:l%h! h,hl%h! h,h.*#T*FD%h! h,/Th5D(l%h! h,h(l%h! h,hh! hh)h! haD`#TT/Th5D(4TJiXh((D"T #T 0/T5DD(lDD5D ~D"XD(l]t(lD(4TJiXh((D"T #T =/T5DFD"X(D"T #T*#D"X;2T5DD(lDD5D ~0D(l]tX T(XDhUHTX*#T *#"X*# *#T2T ~D(l]3TD"X;2X #T #02T TX]   4D(lDD5D=X]D"X$x`<,ftt$ Tt tt$ Tt tt$ $ (x0   0   \\  f`tartPage1( <txtStartPage]$(XDh 44#T"X;/T3TFl4D:X `#TT/T6D ~`=:l4Th! h hhh! h h cl%h! h,h:l%h! h,h:l%h! h,h$*FD%h! h,h5D(l%h! h,hh! hh h! haD`h5D (l v]  j(lDl"!#T"/T=>at|L4 $(ThD0 P  |\8lH8K(<]3rv F<l $(<]t ( h 40 "v F<l&v *#P "v *F,l/P l\ $ uz  ~:<]3='<%lPT"$# d$T % 0&/P)T,'"$# $,Up5,(<%'"$# $uD, (5,kD<%'"$# $'%f<%"$# 4$$ )TT *lT+ )TT *l#P*#L,*# ) $*l*#-*#*# ) ,*l*#.*1X2PL)T8 lX\@ PLT,`     $ 4x Pl`=`)x`_` T`=[x$ x (d]37\`4_` \_` T` \`j_` \`M( h I`"<Fd%x$ 4x Pl`=`)x`_` \$"<P_` T ~2`:d%x$ 4x P` \)x` X -<x$ "x .Freezek False"Col= O2NjEnd IfL"PltVpt")>Tru> 'Examp15-19.  $=VRefreshPlotDeviceInfoIf fr mFs.optPrinter`.Valus4 TheSActive7out.ConfigNa"m"HPserJ2100 Series PCL 6""" Cganon{l MediaLet@(A6Typ#acExtents ViewportBordO|-StyleShe== "CA@FM.ctb+EJ>JRPublishToWeb DWF.pc3?c?Rot=ac90degNWithLineweightsN>/eRegen |acQ7c=  .9ToCbEfBayfNoth9"yrz4toPSqoT1621tJ)A!SublX\@ PLT,|\8T,|\8|\8xȝ-YBJ2D/BbĹub|rqO y`KGάӄr-M|K݉,   m ""4DTXDWh?ZHMkeQWqFG,dؗsF*C+"D$"$oԈAPϗ[/"~OW"ʚ`ttqO>@ ŕEPB ,ؾ(.3>KVNxh ""4DTX/zJI]pO pkig.ValuÁR TheՉq@Active7out.ConfigNam"HP!serJ2100 Series PCL 6""^UanonicalMediaLet@( BKyp#acExtentsC> ViewportpBordO-StyleShe== "CAFM.ctb+EJ>JRPublishToWeb DWFp.pc3??Rotation=ac90degNWithLineweightsN>/umRegen acQ7c=  .hEfk}fpNoth@"yr@4toPqToT1621tGJ)A!Sub.ValuÁR TheՉq@Active7out.ConfigNam"HP!serJ2100 Series PCL 6""^UanonicalMediaLet@( BKyp#acExtentsC> ViewportpBordO-StyleShe== "CAFM.ctb+EJ>JRPublishToWeb DWFp.pc3??Rotation=ac90degNWithLineweightsN>/umRegen acQ7c=  .hEfk}fpNoth@"yr@4toPqToT1621tGJ)A!Sub\]048<T kbJ6A,9GKrKJ! K߿HHJhE?.tAPiVd.Fȑh )   + ""4DTX!?.tAPiVd.Fȑh )   + ""4DTX!