ࡱ> fPaper plot information for the current drawing is:   inches5ILz5Ic2ltFz@H : Jm &Layout paper size:`1t6H zdl&'' 'HtM,@ 6H Hp H   *1t 5ILz5IcJ2ltFz@H : `1t6H zd&'  Plot area:  Top  Bottom Left  Right Paper margins: " Paper margins:   Plot area:  * Layout paper size:  Paper size:  :Paper setup for ThisDrawing:' 'HtM,@ 6H t8   `IAcadPreferencesOutput$ PreferencesPrinterPaperSizeRoot Entryy/VBA_ProjectXbyVBA_Project_Version(VBA `urb$&  = !"#$%()*+,-./0123456789:;<@>?BADCEFGMQIZ[\]^_`aX E  !"#$%&'()+,-./0123456789;<=>?@ABCDMNOPQRSTUVWXbdefm:uvwxyz|}~ID="{827DE560-A490-4C1C-9771-259DFA14B935}" Document=ThisDrawing/&H00000000 Module=Plotting Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="1E1CDB153BFD2B012B012B012B01" DPB="1210D721CA22CA22CA" GC="0604C33D43C536C636C6C9" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=44, 44, 639, 492, C Plotting=22, 22, 822, 655, Z PROJECTwm APROJECTThisDrawing __SRP_4 __SRP_5BPlotting'6__SRP_2{r __SRP_3t _VBA_PROJECTdir b__SRP_0 Y__SRP_1rU~}  1RadDeglThisDrawingThisDrawingPlottingPlotting^0* pHd ACADProject8@ = t  up=( 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" \ Ob Library/;C1sA00}#0#0r 7A03CB88-31AD-4CBF-A0C1-D73321E2.A-@OP\VBE\G.exd /.E .`(M AB"BThisDrawingGThi^Drawng 2 HB1B,B  "B"+BPlhott"Aot!2D,!<jx #<CtL~vu!= &)&FGLx)&FGLCtL~vME(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%` % %`h8@tt0up=$*\Rffff*543b3e0f644 xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit XTPLD@<80,t     %   %dtx8`,00   0   0 X  @''''':@N00:`NPP 1x6P0K2lxF`%$ L Pl=t) ltc+'''0:`NPP 6P08''''''0:` NPP 1p6P0 lp 0-lx$    )/$    )%'`%lp$  <0pxt0 P0   4ptX,D@lhH 0 0  0   0 (  0   0 H  0   0  0 @  0 h       *t ut style sheet = &Paper_Configuration has ( PlotConfigurations:GetPaperMargins}TnQ`ThisDrawingThisDrawingPlottingPlottingtT     %|x)D6d2l@*FD:T`1@6 t.*'''l@*F 6D, @DTtx0!PLH@<840,($ |xDdTt+hl$ l lh=p)lh p Hp HX!*#D*#@ *1t2D@ X5ILzX5Ic<2ltFz@XH :`1t6H >lt@z@XHDp l@*# *1t2D@5H zd<&'' 'HtM,@ 6H Hp H   *1t 5   Model  millimeter(s) FThe paper size for this layout is:   X .The paper margins are:  Left ( ) Right Top Bottom PThe paper plot area for this layout is:  *_____________________ Alert  AcadDocumentZPlotting{Itemz olotconfigobjIb_B_var_olotconfigobj5pT  $rU $`$`$`$`$!`$I`$q`$`$`$ `$ `rU~|  1. /!.Y,-Y-) A/ / 00 X  0  0   0   0  0 0  0   0 (  0   0 H  0   0  0 @  0 h  t$ tlt=xttx \lt=pttx \lt=ltl ll l  l ll=[tp t0plxt     %T0plxPd`rU @nrU  41aYV`am  *\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{7A03CB88-31AD-4CBF-A0C1-D73321E2D0BA}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   up=ThisDrawing543b3e0f64ThisDrawing Plotting283d711f32Plotting,8V.[gJx*8Q PlotView1>R PlotView2?RFilNamV2Plot@x_B_var_FileNamer PlotLayouts2#E PlotLayouts+UPQueueSPQlist2uAboundx$ AcadObjectSetLayoutsToObjectobPlotNumPltyTogglePreferences=B _B_var_Sub GetPropertymgetPrp$Blockq PaperUnitsCollecL8mdType<5 ac180degreesD2RvRadq_B_var_FunctionODwg ComputeSinSin _B_var_DwgBDeg* ComputeSinCos\xos _B_var_xosCosOExample_CopyFrom PlotConfigurationNewPC1LNewPC2L ac270degrees acMillimeterseVIEWPC2SETTINGS6ZCopyFromNewLay1NewLay2 ShowMsgBoxShow C2SETTINGS;. _B_var_GoSubx acExtentstT ac0degreesTQueryPrintMedia^T  $*L|,xME <<`  pp% %`d `l`d8`d% %`d@ sxl08 `@  f8 ` % t%``h `h cx``dr`Z\ `J h ``Pd( Gt x(8`@ `NX `(8`  ` X``   0xO @0 0l%`  "` `  @  &8 `  @XH@ 0 (h   P` @ @ @ `T H `@!!VH @ @ @ @8   @t d @T xP @L P@H @D  @  8 `  `< @8 @4 @0  `| H, @( @$ @  @ @ @   p @ @ @ @ `@ @ 0@  @ X @ @| @x  >8#( @$ @  @ @ @ pX @ @ @  axh @ P@ @ @ h@ @ @h X( H@| @x P 8`T@++@@" (" $ 0(<`r8h 0up=$*\Rffff*283d711f32 6 8 *X P R R0 R N 0 P " (0 8H"X$ L0 h " @HPX`p4 4p  " $ *  8 H X  "  8     8  H  X   " h  "( 0  @     P PH  $8 ( H f 22X 0* (  "8+  >!  2$>0 X &` p"  82X x &  x(  2@  &`x]@]`] !.r r!$Paper_Configuration rB@&Model_Configuration rB@&!k   r d ( !'d !, has  r!$ PlotConfigurations: dA@*ro]]]]h !.rer @ r!$  @ !%. @:o]]p] !D!F. B@H'J T %L'JVALID DEVICE NAMES: ('d(' @ J JJ d @$J ('d(' dA@*d] ]8 %P'N.. MEDIA NAMES.....LOCALIZED VERSION: ('d @ N N ( d @$N.....'d d @$N %R ('dLE T` dA@*'d]H !V'TPLOT STYLE TABLE ENTRIES: ('do]P]8 # d ( ! =  !"'dion ]]o @ T TNAMES d @$T ('dVERSIO dA@*'d$Plot configuration Model types are: dA@*@ !.rt.Model_Configuration$r. (0hHP LaserJet 2100 Series PCL 6 (2$ (4  8 (6. < (: (]]]@ !`.` F `k F (\   FB@x   FB@z $$  ffffff9@ !%' d Plot area:   X  'd'd   d Paper size:  ffffff9@ !% X  ffffff9@ !% ('d`o@x  $$  ffffff9@ !%'P   )8 AP Y d Paper margins:  ( Left |$ffffff9@ !% | Right |$ffffff9@ !% ( Top |$ffffff9@ !% | Bottom |$ffffff9@ !% ('def!! ]X]]  F!Modeld p d ( F!$  ('d  Paper setup for ThisDrawing: dA@*hX0 PX h!'`0 `HX8@]P !`.`UT]NewLay1 `%&.NewLay2 `%&.  (p  (6`  (:ox@ (0ewLay1X NewLay1.CopyFrom NewLay2/ 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 inter<jx #<+@KQ[@bHu!= &HK|txHK|t+@KQ[@bHME(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%H` % %`h8@tt0=;$*\Rffff*0;3b0535f24 xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit $9 `$a `( ` +$`n ruption. Example 15-1. Example 15-2. Example 15-3. Example 15-4. Example 15-5. Example 15-6.8]жAttribute VB_Name = "Plotting" Option Explicit @ ' A for AutoCAD 2002: Wril*@MacrosbJeffrey E. Clark*CopyrightA Prentice Hall PTRoThis software may be Oely copied and usso long as t6discla imer,ttogether withe above$FnoB, 6inclubd+in J7s7&any ac0comp dPocumca. These example programcd=vailable'"as-iDs"Mout3y i#wranty. Necfi aut"hnor&publisuar9watyIEerNrTAwi_operat%J#int up7gED715-1.Sub ACon0figu@s() Dim Collec As Acad G ObjectV Q MsgA S@nFgCSet=cisDrawj.If .Count0qnC0/.Adda=J_:@A M ModelL , TruY EIfCCFeEach yDAInD& == A& vbCr4 & . NeFxD BoxJAWindowTitAS& " h g"_g $"': `@C2C!TypeBGHCHBiBIVgebO%  0 H  0   0  0 @  0 h  Xh$ tlh=xhhx \lh=php  p p lhx \lh=lh lp=[hl h 'T't' *#` *#X\l l\#T*#P *#L *F8Jl kJ(: : l hli 2 `XTPL68(tT(X4pltxD`XTPLh8mes   $Localized Version: ---  ----- ..... &VALID DEVICE NAMES: MEDIA NAMES $LOCALIZED VERSION: 2PLOT OED&Y3iCo F- 1C O.Item(id;4"5Aq.f/C icD@w  t@6:`E&O=3=EditgF>>.P#994]("B,v3D)C@erA1GyHP LaserJ2100 Series PCL 6d Hidden 1RotBac90degree>!lBLimlitws4qyFromYLay`Z#[;.j8New01A9AWS2 t;n=!X("D"G 2:s2!.P\UnRMp@oj[ExtP#.$s| 10ipy27x5&QueryPr{Media 1/2 THpDowlqW Hp!W#Z"LLpm, URpmVari@SQ=qTcvvS pvPC3u <> A"Active0c13.Get'Mar`gins utSize l, W9UtiliReahlTos + (D((t- ((00) + )) / 25.4), 4, 28@s %11)2#t UC@X$({DY)tw"  so) 2%}XBv6v(D~m)1P LeftAvbTaby.'i (A01' R3&/Top?7XP/ B9omdng _ (LLpm(1) / 25.4, 2) & vbCr Msg =  & " Plot area:& Wp52XHEnd IfNexFt LBox/ Paper setup for ThisDrawing_* ESub 'Example 15-6.DeviceD ata()iDim i As Integem ,1 Str5Object ACA@DLayouZS(et =S.ModelSpac e..Ref0reshOIn fo7:mdNames;Vari,an9 =<.GetCanonicalMediavk= "MEDIA NAMES"u".BLOCALIZED VERSION:}Fai@|LBound( ) To U/&  (iOS DH4Lo3e4ˤDGxp[TT GgSVLD DEVICEUMDM)LDMGca>.P#994]("B,v3D)C@erA1GyHP LaserJ2100 Series PCL 6d Hidden 1RotBac90degree>!lBLimlitws4qyFromYLay`Z#[;.j8New01A9A,Pla2kUN=bW("d"[$2s2G#2.PQ\Un Mp0n$?&Ext".O$rC|DyhpyAo7gx5QueryPrp{Media/ / THpsDo`$lqW' Hp, WcM #?"~Active0c13.Get%Margins& utSizep!, 2Utili0NEW_CONFIGURATION1 $NEW_CONFIGURATION2 RThe settings for NEW_CONFIGURATION2 are: Plot Rotation:  Plot Hidden:  Paper Units:  NEW_LAYOUT1 NEW_LAYOUT2 DThe settings for NEW_LAYOUT2 are: CopyFrom NewLay1 NewLay2 $NewLay2 Settin@RealTom #k| (((4- ((0) + )) / 25.4), 4, 25@2. d#11)?R0#LqUCـU$(DW)q#"  sl< )@? 2%{Xsvv(Dm)1P C Leftv0bTaby.'i (A01' RQs&/Top?7XP/ BomCXR, 4, 2) & vbCr  Msg = & " Plot area:a4& Wp<dX HEnd IfNextBox^ Paper setup for ThisDrawin&g_* ESu@b 'Example 1p5-6.DeviceData()iDim i As IntxegeXS trk,Object ACADLayouZSet =S.ModelSpace..Refre shOInfo7:mdNames;Varian 9 =<.GetCanonicalMediavځk= "MEDIA NAMES2"".LOCALIZED VERSION:+ }Fai@|LB ound( ) To U/&  (iS DH4Lo3e4ˤDGxp[TTGgSVLD DEVICEUMDM)LDMGca ""en# tnaq#Els No aB p$."$ %%0%nu %%c/@&F6&lB m%5 - /&!' bgShHeetK 's" ''c&F&s s&veotzzz3s1.489ob6Acad\{NumPlt^PQueue PQlisb:ySQrEach In:Ss S?("b q>C.X,stion +YesNo)vbCD = + 1SRePerp1q|#$1 /i s`0 Exit SA= Cq+0'.3 sToBc5tartBatchaToD "PubPhToWeb DWF.pc3TVZs co1teA3A f.@Toggleference.a?5Bh.aa,.re%gs:  Plot Type:  $NewLay1 Settings: QueryPrintMedian $NewLay2 Settings:  Plot Type:  $NewLay1 Settings: sOutp٨CXppl$..0ter¸SizeAlernte_Cs 0in?`y+o6 ;q 'a er ce _YZKView/KsZKO.t,V290-30'6aca3IA.soFi",//$/O-/A^2oj'S*hiaH5-7  P, Vv2Q 1SHٳ ='p 0("A n`Ӑ"a A"M@On ErrResume JFk3s(Q`MIs Not gX)Invalid Quu1kP1c0In% pe! 7T~U/#)#a &3I#xawing.ModelSpace.Layout.PlotType = acView Thi8sDroFile Nam, "PublishToWeb DWF.pc3" End Su@b 'Exampl15-. ComputeSinCos()%'010421'de@termin Fvang[for Batch-also use VPOINT aKthemn look as value of VIEWDIR sysvarMsgBox Q(D2R(290)) & "5&_s xFunction $Deg As Doe)x(/ 180) * 3.14<169,amera @varianm' which is8mpatible with\tToPtLi= Added$' GeFt~pobj~from draw;OS/uThisD .8)'ptions .QuietErrorMod False ' We do wybeified of e%' * Note:rmally, in a batsituon, 9P_', sPinceNi*will halaC(process.#&C WNumberOfCopi1= 1F5Won ly neTne9pyCtar "Ľ D7 uBSABWBvG @v%qitems=ctcCFor Count@1 To 4f'@ۀmu@cy'every tim@ƀ7 'ToDevice,e~Af'''b ASdefau6d DisFp("lres sA#?.. #@Aperty should rey b'" 5`a@s`uxa VBA *m, `but f,B/example, Rwll u@ra sage b|oxb'4!P(rogsena4`MsgBo0x("WbmliBkco caelb ?", vbYesNo & QuesA) Ag ! T= ‹E#IfgE+ "$has stopped!" Nexĵ% Fsh3 t%C͠ Ǥ E4_Origin()OC `8Bdsd0 mod`he"Vc `lue !f,2@k' I `"ck`1% it'Wal #Dim ACdAD$As'oVa VQanew( o 1)Dou'# cڃ! H=IActiveS S' Readd; K `wfbrI&A~Acad+sOutpu Booleaiw#Anr0K  eBLBpplicң..oCp - cCOD&P\DD&E' )CC, A3 @"*3"`OE5 O / Mybe ک2B`bBnBo D_ _ fZwP/aJLBeView@22i1Stg3b>j6FileNa0Pyñs= In@9Q...@"A"0jOn 2usupg7{7!s(QP$Is1hl`qpst.v Exit S ub End IfXFileName = InputBox("Plot fAd...")If V"" Th en RThisDrawing.ModelSpace.Layout.ViewToa=  2 !9'Typac945".'o y oWeb DWF.pc3SetLayoutsToPlot2 ArraySize: Plots complete. PlotView1 PlotView2 V290-30 Invalid View.D2R Plot File... PlotLayouts PlotLayouts2 Plot PrinterPaperSizeAlertस$*C ^J0B`5 `The PrinterPaperSizeAlert preference is set to:  lThe PrinterPK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $kt8H܀!m  a  ThisDrawingPlotting ACADProjectF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  A0W &D:\AutoCAD_2000i\ACAD.TLBAutoCAD 9a@0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole 9P.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms  1q`z1L3!кC:\WINDOWS\TEMP\VBE\MSForms.exd   qpPlotDeviceDataPlotConfigurations ModelTypeEditPlotConfigCanonicalMediaNameExample_GetPaperMarginsExample_SetLayoutsToPlotExample_PlotOriginExample_PrinterPaperSizeAlert u!= &CtL~vu!= &)&FGLXh{ _ AcadDocument @(x`5%^I`5}TnQ`5!i;n`5 &Valid Device Names:   HMedia Names _____ Localized Version:  _____  2Plot Style Table Entries:VBE6.DLL  S  Media Names   $Localized Version: ---  ----- ..... &VALID DEVICE NAMES: MEDIA NAMES $LOCALIZED VERSION: 2PLOT STYLE TABLE ENTRIES:  XThere is no media set for the active layout. HThe media for the active layout is: !i;n`5 &Model_Configuration :HP LaserJet 2100 Series PCL 6 .No active layout media. ,Active layout media =  StyleSheet :No active layout style sheet. 8Active layout style sheet = &Paper_Configuration has ( PlotConfigurations:GetPaperMargins}TnQ`5   Model  millimeter(s) FThe paper size for this layout is:   X .The paper margins are:  Left ( ) Right Top Bottom PThe paper plot area for this layout is:  Finished...  *_____________________ fPaper plot information for the current drawing is:   inchesJm &Layout paper size:  Plot area:  Top  Bottom Left  Right Paper margins: " Paper margins:   Plot area:  * Layout paper size:  Paper size:  :Paper setup for ThisDrawing:   ` > Paper setup for ThisDrawing: SetLayoutsToPlot()`5u!= & Plot layout: M^  $Cancel batch plot? &Batch plot stopped.PlotView View name... Plot ViewDդ c()`5 (View does not exist. Plot file...  T  (PublishT