ࡱ> le1b(ScriptVariablessysVarsysDataKdblDatag SetVariable?R GetVariable~MsgBoxRintData acDegreesacArchitecturalWacDegreeMinuteSecondsʈH $rU~|  )TrU $`n)CxXlx$ Xh3'''(lx*FXhH 6 XH( t ok8hhlx$ ,hx XH(k\bRoot Entry H'VBA_Project/ HVBA_Project_Version(VBAL//   !#$%&'()*+,-./0123456789:<=>?@ABCDMFHIJKLOPQRSTUVWXYZ[\]^_`abcdefghijksmopqrtuvwxyz{|}~acadID="{39F63F1E-8A7B-456B-8686-D77EFD6AAF90}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D5D7CF2471FD75FD75FD75FD75" DPB="AAA8B0178418841884" GC="7F7D6542EFC2C5C3C5C33A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=22, 22, 623, 468, Z PROJECTwm;>PROJECTThisDrawing _VBA_PROJECT"dirnModule1N __SRP_4 n__SRP_5lBrU~}   ypK*mrU~~~~~~~~d Ost*Dܧ  e  A a)  Project1 ACADProject ThisDrawingModule1F@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA A i0W & 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD a@0Fc:\WINDOWS\SYSTEM\stdole2.tlbstdole QyPScriptVariables  AUNITSu!= &E u6G{ʹu!= &V 2TG4qXh{ _ AcadDocument @  = VBE6.DLL  S  j0* pHd ACADProject8@ = t  <( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#c:\WINDOWS\SYSTEM\c2.tlb#OLE Automation^swThisDrawingGThisDrawng* 2# H1 ,@~"E+Module1GFdu1@2::Hb!Cam  *\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 <ThisDrawing0:3c9d9cb4ThisDrawing~Module11:3c9d9d5dModule1b @ ThisDrawingThisDrawingModule1Module1$duAI^3+s`cgJɍP$d' AutoCAD" VBAWin16~Win32MacVBA6#Project1  stdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZ ModuxMEP6 L"<< `H`p`@` %`(t__SRP_2 G\__SRP_3E__SRP_0 __SRP_1nXx*,p<$*\Rffff*1:3c9d9d5d*\R1*#19*\R1*#18*\R0*#14*\R1*#f2$*\Rffff*0:3c9d9cb4 6  * P@ R R R@ N   "( X  08 p  P (x]@]X .'(] ('   B@"+00oAUNITS'XLUNITS' ,'( ('   B@"(p/ 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, rU @nrU x)Q4yaV`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 A-1.Attribute VB_Name = "Module1" Option Explicit ' A for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*CopyrightA Prentice Ha@ll PTRoThis software may be Oely copied @and usso loas t6discla imer,ttogether with#e above$FnoB, 6inclubd+in J7s7&any ac0comp~do(cumca. These example pr`ogramcd=vailable'"as-is"Mout3yu i#wranty. Necfi authnor&publisuarwatyIEerr'TAwi_opperat%J#idnt up7gE!D7A-1.Sub ScriptVari7s() Dim Data As8 Do@(sys ASng @ nA C AUNITSE=iDeg@reeMinSecond E='DrawQu.SeF3 ,% CALU!ArchitecturalF B7E@@]_Dr~#LUNITS'CpPlp$ P`3''' lp*FP`@ 6 P@ tt otk0``lp$ CpPlp$ P`3''' lp*FP`@ 6 P@ tt otk0``lp$ c,`p P@ k<E u6G{ʹu!= &V 2TG4qxV 2TG4qE u6G{ʹME(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%H0h % %8p@@tt8<$*\Rffff*0:3c9d9cb44 xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit