ࡱ>  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#C:\Program Files\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{B89669Root Entry ۡp(VBA_Project ! ۡpVBA_Project_Version(VBA(`  Q!"W$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMXYZ  !"#$%&'()*+,-.U012345678:<=>?ABCDEFGHIJKLMNOPQR_VWXYZ[\]^`abcdefghijklmnopqrstuvwxyz{|}~ID="{CDE03E42-458F-4CCF-BFE4-F08172BE58AB}" Document=ThisDrawing/&H00000000 Module=AppDoc Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9193BCC4C0C4C0C4C0C4C0" DPB="22200FDCA1DDA1DDA1" GC="B3B19E4F2E502E50D1" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C AppDoc=22, 22, 822, 496, Z PROJECTwmT;PROJECTThisDrawing __SRP_4;__SRP_5 9BAppDoc #dT_VBA_PROJECTGdir/p__SRP_0  J __SRP_1n__SRP_3 S. __SRP_2@rU~}   pK*mrU~~~~~~~~~~~] en^D_3ݜʻ  a 1    ACADProject ThisDrawingAppDocF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA ! I0W & 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD Ai@0FC:\WINDOWS\SYSTEM\StdOle2.TlbstdoleViewportIterate CopyObjects 1YP.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms aa`iGH$c:\windows\TEMP\VBE\MSForms.exd 9aapApplicationWindowStateDocumentWindowStateApplicationWindowSizeDrawingWindowSizeDrawingZoomWindowDrawingZoomPickWindowDrawingZoomAllDrawingZoomScaledDrawingAddView ViewportAddViewportDeleteExample_WBlock DocumentNew DocumentOpen DocumentSaveDocumentSaveAs DocumentCloseDocumentCloseAllApplicationQuit_DoesntApplicationQuitDocumentActiveDocumentsActiveDocumentsLoadedSetGridSpacingSetSnapSpacing SetSnapAngle SetSnapBaseDrawingAddHyperlinksDrawingAddHyperlinks2 u!= &9~JZ#Vu!= &=Zstdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3DD452EE1-E08F-101A-8-02608C4D0BB4DFM20.DLL#MicrosPoft 9 \ Ob Libr@ary/;C1?s00}#0#jh0rAB89669C8-1E647F2-A348-24BB1FB7198A6c:\win dows\WP\VBE\DO.exd`7.E .`PM DT@hisDra@gGThi@fDrawng 2 HB1¨BE,B )"B+B¬AppDoDcG¬Ap@D݀cAC2NDE+!rU @nrU I q ! 4 a V`rU $`$`$`$`$!`$I`$q`$`$`$ `$ `$9 `$a `$ `$`$`$`$)`$Q`$y`$`$`$ `$1`$Y`$`$`$`$`$!`nrU~| ThisDrawingThisDrawingAppDocAppDoc5 www.oreilly.com 6O'Reilly & Associates, Inc. 4Sebastapol CA/Cambridge MA DJEC 2C8-1E8F-47F2-A348-24BB1FB7198A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   m=7ThisDrawing053aed3e7aThisDrawing) AppDoc023d710fcf AppDoc+E8)Lj]#D@WS.oNMAH,@ As=dimObjectWidthAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateAppDocNApplicationWindowState AppWinState3 CurWinState Application* WindowState|ChooseMsgBoxRDocumentWindowState9 DocWinStateApplicationWindowSizeԧ WindowLeft WindowTopEHeight|DrawingWindowSize?DrawingZoomWindow_NP1^P2^ ZoomWindowDrawingZoomPickWindow_ZoomPickWindowDrawingZoomAllZoomAllm$DrawingZoomScaledl ZoomScaledacZoomScaledRelativeJDrawingAddViewMAcadView~VWname6ViewsTAddrPgCenterW;H_Wm ViewportAdd# AcadViewport ViewportscSplit)acViewport3RightActiveViewport ViewportDeleteqDeleteConfigurationViewportIteratevLL^URp_LowerLeftCornerCUpperRightCornerؔvbCrLf CopyObjectsoldObj1-v AcadCircle,oldObj2.vnewObj1newObj2oldRad1oldRad2newRad1y,newRad2z,IDPairs SourceObjectsҖObjectsReturned ModelSpace_ AddCircleRadiusVColor2FacRedacYellowKeyvbTabc9ValueKExample_WBlockrayObjAcadRayl basePoint@ SecondPointAddRay0plineObjCAcadLWPolylinepointsAddLightWeightPolylineClosed,lineObjmAcadLinee startPointendPointyAddLine8circObj?centerPtellObj AcadEllipsegmajAxisradRatioQ AddEllipseğssetObjAcadSelectionSet SelectionSetsobjsInModelSpace?Count0v AcadEntityiI`ItemzAddItemsWblockh DocumentNewrN AcadDocumentZ Documents DocumentOpenHdocName׷ DocumentSave4Path2vbCr$SaveddvbYesNovbYesa?SaveDocumentSaveAsSaveAsf; DocumentClose?DocumentCloseAllGdrawing<0Activate|UCase5 FullNameОApplicationQuit_Doesnt8Quit9ApplicationQuit& SendCommandcDocumentActivegDrawng.ActiveDocument\DocumentsActiveZDwg1bDwg2cStatus+ActiveSDocumentsLoadedamsgQSetGridSpacingg(GridOnXspace8Yspace+GetGridSpacingcSetSnapSpacing,SnapOnGetSnapSpacingSh SetSnapAnglee5SnapRotationAngleEPpsObjh AcadPViewport* ActiveSpacee acPaperSpacen1 PaperSpace$ AddPViewportJDisplayMSpace{> SetSnapBaseoSnapP0 SnapBasePointSnapP1DrawingAddHyperlinksP Hyperlinks:AcadHyperlinks Hyperlinkw AcadHyperlinkURLURLDescriptionoURLNamedLocationzHLlist=DrawingAddHyperlinks2 Hyperlink2_B_var_Hyperlink2T   $y1Ia 1y0  0 p  0  0   0 `  0   0 P  0   0   0   0   0 0  0   0  0   0 h  0  0  0 (  0  0  0   0 h  0  0  0 (  0   0   ,```tT7 0% V  `0 ` N``%%  %`P T   > 0% V(``0 V` % V` X(0,% \Hh(%`fX %%F `P TH0 >h V``08$ @O 8 x0 V`hP`T Y8 `f x8@ Y8 ]4 k `f @ x  ` @ @ @  %  X @ @  ]48x8XP @@ < @$ @O @ @ @   p @ @ @  V8`@i(`)m=7$*\Rffff*023d710fcfh 6@ x * P R Rp R N  p   "8@H` h "*  ( "@XH LFPX ` ",  "  "    0 F@   8   (      ( 0 "P X h p "    "     @ "Xpx  "   " (084H0  " 420h p "  "    "(08  " (82H2  "  "@ H P "hpx  $ `  0 8 "PX"`   "  " (08@ X h x   "   6 8 P h  :   "      0 8 @ 6X     : ( 0 "H P "X   *  *   (0@H  P8`   **0` h ""    P@,P P    8(`h p   P, @PP  "2 ( HP `h " $,@FHpx Example 5-8a.]@]X !! ' Normal Minimized Maximized$"'( The AutoCAD Window is currently A@$oH Example 5-8b.p]] ! '(al (Normal Minimized Maximized$"'ment!The Document Window is currently A@$o Example 5-9a.,d !(,d !(.X !(0  !(o( Example 5-9b. o Example 5-unnumbered.`]]+6F+6F+68F+8F+8F+8: 6 8A@:o Example 5-unnumbered.A@>oP Example 5-unnumbered.PA@Boo Example 5-10.]]0ThisView'N N !P%R.]H !V'T $T,$TA@$]` !0'X !'Z X x  ZA@$o Example 5-11.] namedVport !`%R.b d B@b  (fo Example 5-12. namedVport !`B@j !f (fo( Example 5-13.0]p]]  !`n  (f !r'n !t'port  o Example 5-14.n ]` !f. (,  (f5.] ] . 0 B@2  Example 5-1.] !!!R.o Example 5-2. ]`"C:\Documents\anExistingDrawing.dwg'.A@ $~  !!B@d  not found.A@$ko Example 5-3.x !\ ! object.Saved property is  !A@$ ! Drawing has not changed. Resave? $$ G B@jd Save drawing with changes? $$ G B@jko Example 5-unnumbered.C:\Documents\Test12DXF.dxf B@!o@ Example 5-4. !B@Bo Example 5-5.8]  d. B@Close !\ !$ ? $$  !  !$  cannot be Closed until Saved.A@$d(!Drawing.SaveAs (Drawing.FullName) B@Bkko Example 5-unnumbered. !B@o Example 5-unnumbered. Quit B@ocumoH Example 5-6.H ] !!.oGrid Spacing: X = ., Y =  0A@$ .?'. 0?'00 . 0 B@*.  (f0New Grid Spacing: X = ., Y =  0A@$.o  Example 5-14. ] !f.. (6=   (f] ]( . 0 B@8 Snap Spacing: X = ., Y =  0A@$8 .?'.cing 0?'0Y = . 0 B@4.  (fNew Snap Spacing: X = ., Y =  0A@$fo  Example 5-15..@ ] ViewPort1 !`%R.  (,!` (6ModelSpace SnapAngle: !<A@$pace S? (<A@$new Mspace SnapAngle: !<A@$pace S  (f!] ] ] ] D (B@+VF+VF+V'0' V  0 !F%H.> >B@J  (L.>PaperSpace SnapAngle: >!<A@$pace S? >(<A@$new Pspace SnapAngle: >!<A@$pace So` Example 5-16.( ]h ViewPort2 !`%R. (, (6] !R'P ModelSpace SnapBase: %R,  %RA@$] @+TF @+T T (R new Mspace SnapBase: %R,  %RA@$  (f] ] ]0]H D (B@+VF+VF+V'0' V  0 !F%H.> >B@J (L >!R'P PaperSpace SnapBase: >%R,  >%RA@$?+TF@+T T >(R new Pspace SnapBase: >%R,  >%RA@$o  Example 5-17.`]]]+VF+VF+V' V  !%.] !X.X]0DJEC X%R.\http://www.djec.org \(`Jeff Clark's Web site \(b`]P \ X 'f f \!` (URL) 'f f \!b (Description) 'fnk C X!& H-Link in Object's H-Link Collection:  fA@$o08" (0P ( Example 5-unnumbered.acZoomScaledAbsoluteScaled HA@Fle ! activeA@$nnum Example 5-7.le ,000628] ] v'(  le ( ! '( ! dk0Loaded documents: (A@$.dxfo$@%No documents loadedA@$/ 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.H   Active Viewport is ! vLower Left at $n, $n vUpper Right at $p, $pA@$%'(](`ԶAttribute VB_Name = "AppDoc" Option Explicit  ' A for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*CopyrightA Prentice Hal l PTRoThis software may be Oely copied a nd usso loas t6disclaimer,ttogether with#e aboLve$FnoB, 6includ+in J7s7&any accomp~documca. These example programcd=vailable'"as-is"тMout3y: i#wranty. Necfi authnor&publdisuarwatyIEerrTAwi_ope8rat%J#int up7gED75-1.Sub ANew() Dim Object As Acad (Set=MisDrawT.T s.Add \ E}O"2N"Oxpen"j»"S9ngC!C:\\anExis%dwgA6$If7r() <> ""~no4(  Els_AMsgBoxE & " @und.D")CIfE3ESave"D iPad9` \"  '& vbCr _'`"o<.a d^`Ity x"c(v( B)((2") h@}!changed. RDes`?",Y@esNo) =B 'MAK/A d#SCs  Y7unnum8bermlAAse8M(["*YTest12DXF.dTxf$1E4ECxlosE3sB 5 AlleAe, o4F`Each1Inρfa$ .ActivB%W:@j& .*_UCase$(E _)^">J# EFullbg p can!^@l AdE7e +Y'e# ( D[q 2 uGNexQZ 5-- h%Quit_Doesnt.ga_'i}g.SendComm" V }5-6-?2'2q-Q/p !p/pic#p#is#.%0[/e {7 sLo2a()|'000628s { ms0s Iv!2CrLj=D<Q& ?hC'> s.Count > 0YT"v2s:rA5ENo 1a"]PC5-8aV/WindowStK)bqrIgeCuri%%u= Cho`, "Normald"Min@imizedaxD`vcur!Paho=f=8b, efm ubo9&D I淓Leftp1003JTopHe= 6o^Wid0= 8wXX9!SoR48o .5648T_f"J`Zoom(-}kd.  -P1(Mo 2)+DoaAP2` P1(0) = 1:1P"2P0 P222(( HZoomWin(dow,f End Sub  'Example 5-unnumbere d.# DrawingEPicrkI() 6XS`caled T `2, ac2Relative> 'Absolutt10pAddViewBDim Object As Aca< VWname Str  = "ThisE'" Set'= .s.>^(C PV@ariantCP&.CenterMsgBox P& ","t &1HDoublQ W HHeig hWWidt hH@" x eAWX11^>port?=#O] /Q R"fdV "DLSplift3R7eA^cE >626DeleteEM}+Configuron (3IIa's1LLGSURFor Each`In e-~s#=!{2E=D .LowerLeftCorncUpperW?$i"@ @is[DIN& vbCrLf__@ "b  atLLEs@ %UR*{NexY>4F> iGridSpac!Uoe$ On 6Tru;D JXs ͗Y2et , c = !: X ! Yd=$ * 0.5C Hk1V)- New  ' &s1#Snap#=s#up# u@[!#?:bq`XBԜ# Dim SnapP1(0 To 1) As Double t) = 2. 5:= 3.5JObject.XBasePo8int`xDMsgBox "new Mspace.: " & C(0) _?!& ",?1)=ThisDrawing.ActiveViewp|orS<3P psAcadP#Center2!Wid th Heig\ht -aS= acPaperA64: N= 0 @y(xSet D>= "(.AdC(, y, Dcq.Display (TrueC M:A $0ʞ(Dž= 1M΀(XPQΒ!hEnd Sub '`6Example 5-17.` j`?HyPlinks>(9AZkAZeCi|rcEQseRadiusMb\3Y[YDYModelMYYT''Ko= q4@kGridSpac@j_rVrOKhD' On8T|rud= aLXs eL!Y2)et , /c @ !: < X A Y/d=$ * 0.5C Hk1?&$&Nxew ?.WJGSnap_GD _G# _G ,C_GcJGet2-_G@I_G=UY%D PO -#n# 07=#U5YGAnglr! =o#o@"Q P1\?Q0L$%SeMoHdelA.e 6 :RRotb| n)6A5nP:MK?Q?tW[0 Pps P% (0 To 2)V㡟|m '#=ypPa@y%)@ 6.5: s= 4 = 0c#4 = 2= 3#=J;1(`1, Tw.Display (1mMo%ÿb.%%P%Ћ?#*6M@񚋡!#:SaXB ~180\" 22?2/Ont"cH1 2 RAI` c 3-'NDN5!oLP?TF</ U?acW>L= NN=@= 2 Width = 3pSet PpsObjLThisDrawing.PaperSpace.AddPViewport(Center, , Height).Display (True<$ dMwww.mcs.net/~djec/artwork $Decorative Artwork Batavia IL   (URL)  (Description) " (Named Location) R H-Link(s) in Object's H-Link Collection: L H-Link in Object's H-Link Collection: url_nv drawin Q y  `y%SnapP0HBase Point"Ms@gBox " A%: " &. :(0) _S& ",1b *P1'= 1.L5:=1)Z2.51^cnew PsecEnd Sub  'BExample 5-1l7. ā~Hy@links(!@Dim @ect As AcadCircle5AC(0 To 2)A DoubI Radius I R3: V= 0ʳ &= odelƳ+CD7G1G>9GC H =E. ?P@G("`DJEC"D*.URL "http://www.djec.org" Descr@iptionJeff Clark's Web psiteA:HLlis>Str #For Each  Insm= vbCr&r (){_DUA Nexks.CountA" H-L` in<%DColvla): #  mjZoomWindow()#n'00052\/aiP2mi1: @BiCh22(Cg , P 6aPickv(( Allt*,7  bšScaled6 @ 2, acRelative>'IAbsolut+$_WBl(ockų' eĺcreates severalH obAtsq,mEAQ gandS9' adds them to a-t.se8 inoutput asmd3 fileAC pR nj 0ray]uS;b_0GSecondocx03#: 'b1+1#AsQ 1I&IF#t ll( ,  Zl' polyP|e_QpAxLWPp:sC5}: 73$9n3d4;=~ Sw L1W (U.Closed@qaUHel3# instart/(̑eo*jY0: (+#&3 `^ e ne(y, )I?cң)1qQx)-cPt='Ԣ@I3ʧU ԧU<,  'n ellips_;B[7 `ECmajAxis'?aIradRPkoXO5OYߓR !1}3(0`z6.8_WDF,Vs qzr 8@Cosset(SrP3C E{ scWBLOCK0SET2žC' Ia3throuTghqz y|c  }|E ' each item found to an array of objec ts ReDimHsInModelSpace(0 To ThisDrawiHng.6.Ct - 1) As AcadEntXityNII@ntegerFor I = "W 4Set,I)JI{(I) Next' Adhe( int selion sesObj. /sH1Output & new filebWblock "C:\Documents\WB _example.dwg", H;ESub I@c5_G=U RGߝ_G{IG? aWG5! Angle/#vs("P 1"k`H$A) ǹ f:b8Rota"ufe M h :c:#PpsPe'Cer(0 To 2)Height1Widt^h C /e!acPapercE)6.5: 514= 0Cd= 2#= 3aG$GKG!(#, ,. I@ .Display (T0mMQ% %% `P%l?^n%O@(0) _"? cq`XB1$ 180k" 122/Ont" H1 2& <9~JZ#Vu!= &=Zllection: L H-Link in Object's H-Link Collection: url_nv drawing3.dwg drawing3.dwf @http://www.mcs.net/~djec/artwork>