аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0 ѕћў1фўЩlLўєћ§#аўћ0/аўS ѕћў1фўЩlLўєћ§#аўћ0/аўv ѕћў1фўЩlLўєћ§#аўћ0/аў™ ѕћў1фўЩ+'ў'Аў'Рўѕ:џNдўдў 6дўРўАўўlфўPxџ 4мИшк Lўшўxџфў`џ’Dџ’(џ’0 аў џьўдўРўАўўpўPўsžx',§'L§'l§ѕ:\џlџ$ lџћяLџ:<џћя,џ:џћя џ:ќўћяьўмў$ мўћяЬў:МўћяЌў:œўћяŒў:|ў ћяlў\ў $ \ўћяLў:<ўћя,ў:ўћя ў:ќ§ ћяь§м§ $ м§ћяЬ§:М§ћяЌ§:œ§ћяŒ§ 6,lџLџ,џ џьўмўЬўЌўŒўlў\ўLў,ў ўь§м§Ь§Ќ§Œ§l§L§,§(\џ% $ :\џ%$ :\џ% $ єыѕ§ІњНмэ›wуљ?ѕ§Ієыѕ§ІњНмэ›wуљ?ѕьќІєыѕьќІєыѕьќІєыѕаќІєыѕаќІєыѕаќІFФќаќMџ %ьќM<џ %§M\џ %Шќ$ Шќ ”lФќ=(§)ШќФќШќ$ dШќ ДШќѕ (§  Root EntryџџџџџџџџP яtŽС@+VBA_Projectџџџџ`‚iжg–ПP яtŽСVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ `‚iжg–П@ЎємDС§џџџ ўџџџ ўџџџ( !"#$%&'ўџџџ)*ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ  !"#$%&'()*ўџџџ,-./01234ўџџџ6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXvYZ[\]^_`abcdefўџџџhiўџџџklmnopqrstuwўџџџxyz{|}~€ID="{70E509FF-687A-459D-BAA1-3D80209A01FB}" Document=ThisDrawing/&H00000000 Module=Accuracy Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6A688DB088B488B488B488B4" DPB="696B8E538F538F53" GC="686A8F50905090AF" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=66, 66, 667, 514, C Accuracy=88, 88, 606, 562, Z PROJECTwmџџџџџџџџџџџџWAPROJECTџџџџžThisDrawing џџџџ™Ц__SRP_4џџџџџџџџџџџџ”__SRP_5џџџџ’BAccuracyџџџџџџџџџџџџе__SRP_2џџџџџџџџjЄ __SRP_3џџџџgŒ_VBA_PROJECTџџџџџџџџџџџџ5 dirџџџџџџџџџџџџ+|__SRP_0 џџџџ -__SRP_1џџџџџџџџџџџџnrU€€€€~} џџџџџџџџџџџџ   с‰p“K*mџџџџrU€€€~~~~~~~~~~_ ЩЕ~ёG}jТKЎЕЎY,ъК6  фџџџџƒŠa йџџџџџџщA Yџџџџ€џџџџ9џџ ёс с ACADProject ThisDrawingAccuracyяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA )џџџџ Qс0тС”РЦWв…у  Ц& 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD IџџџџqЩ@0РFc:\windows\SYSTEM\StdOle2.Tlbstdole '   9џџџџaЉPс.E р….`ŒM ДC:\WINDOWS\SYSTEM\FM20.DLLMSForms aa‰Щ`Шi–ИђGЃH$ЛЗŠc:\windows\TEMP\VBE\MSForms.exd 9aaЩpPrimaryUnitsPrecision Arrowheads  DIMBLK = ' DIMBLKйuŽ!=в…Ф  Ц&ОЙYзЯдNБ"ѓэЖ–_sйuŽ!=в…Ф  Ц&ЛуВy—УџLК‡є"2З< сXh—{ а‰п€_ТћК AcadDocument @ DIMBLK1 = ' DIMBLK1 DIMBLK2 = ' DIMBLK2 DIMSAH = ' DIMSAH _ArchTick _BoxFilled…ЙЂЙ(вЖx`А‡т5ˆ%“^чџбЖI`А‡т5Ід()“ЪбЖ`А‡т5йuŽ!=в…Ф  Ц& _DotSmallVBE6.DLL Љ џџџџS Ш DIMDEC VNew Precision for Dimension and Tolerances: 2(enter value from 0 tp 8) "Decimal Precision ,Precision not Changed. Љ џџџџT ш1xВ€0* pH‚dф ACADProject8@е = t  Бo=( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE AutoРmation^€MSFo@rms>SFErmHs3€DD452EE1-E08F-101A-8-02608C4D0BB4DC:\WINDOWSDFM20.DLL#Mic€rosoft ‚9" €\ ObЌ Library/њ;C1€„sˆAˆ00}#0‚#G€j0rРAB89669 C8-1E647F2-A348-24BB1FB70198APX€WP\VBE\DO.exd`7€с.E р….`PŒM ДЁ‚œDТXЏ‚žT@hisDraРugG€Thi@fDra‚wРng Š2 €HB‚1ТЈђBE,B ’"B+BРAccuracyG)Ac@u"c6y!Щ2вЯU‘Я#f!РУСЬ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{B89669C8-1E8F-47F2-A348-24BB1FB7198A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџБo=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXЏThisDrawing1=3d6f18bcџџThisDrawingџџ’ђџџAccuracy1<3d6f18bcџџAccuracyџџ#fџџџџUџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџмMзEНуA‰рБ:I§мєџџџџX!ШщX(OД‘нЩu‚џџџџџџџџH€+.џЬ*ThisDrawingThisDrawingAccuracyAccuracy=€џdimˆObject AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_Evaluateй AccuracyЦИЌ(PrimaryUnitsPrecisionM<AcadDimAlignedіеP1–^P2—^TxtInsњ ModelSpace_ж AddDimAligned‚Ї ApplicationЅ* ZoomExtentsћ+AccOldRAccNewЖK GetVariable~InputBoxЯ vbCr$acDimPrecisionZeroKДacDimPrecisionOne№мacDimPrecisionTwoпјacDimPrecisionThree†ŸacDimPrecisionFourЄxacDimPrecisionFiveІXacDimPrecisionSixЎёacDimPrecisionSeven вacDimPrecisionEightCžMsgBox—R Ќ(ArrowheadsэH SetVariable?RArrowhead1Typeі§ acArrowOpen30Щ•Arrowhead2Block6Regen ўacActiveViewportrN AcadDocumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $ rU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџnrU€€€€~| yЙЈ щСй IyЙщ) Щ Y ‘ б љ ! I q 9 A Щ ™ Шмєыѕ`џІњНмэ›wуљ?ѕ`џІєыѕ`џІњНмэ›wуљ?ѕDџІєыѕDџІєыѕ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘ўџџџ“ўџџџ•–—˜ўџџџš›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDџІєыѕ(џІєыѕ(џІєыѕ(џІFьў(џM№ў %DџMџ %`џMџ % џ$  џ ”lьў=xџ) џьў џ$ d џ Д џдў$ дў`1шў5дўL'Pў'pў'ў'АўшўMџ@:џNРўРў*#аў*Fдў 1фў/аў6 дўРўАўўpўPўlфўCLўlLўєћ§#аўћ0/аў ѕћў1фўЩlLўєћ§#аўћ0/аўЄ ѕћў1фўЩlLўєћ§#аўћ0/аўЧ ѕћў1фўЩlLўєћ§#аўћ0/аўъ ѕћў1фўЩlLўєћ§#аўћ0/аў  ѕћў1фўЩlLўєћ§#аўћ0/аў(§ ,ѕ$ $',§'L§'l§ѕ:\џlџ$ lџћяLџ:<џћя,џ:џћя џ:ќўћяьўмў$ мўћяЬў:МўћяЌў:œўћяŒў:|ў ћяlў\ў $ \ўћяLў:<ўћя,ў:ўћя ў:ќ§ ћяь§м§ $ м§ћяЬ§:М§ћяЌ§:œ§ћяŒ§ 6,lџLџ,џ џьўмўЬўЌўŒўlў\ўLў,ў ўь§м§Ь§Ќ§Œ§l§L§,§ИxД кœ$§(§§WINDS\SYST’ §ьќa’аќ–ИђG’\TlШќФќlџLџ,џ џьўмўЬўЌўŒўlў\ўLў,ў ўь§м§Ь§Ќ§Œ§l§L§,§  frU€€€ џџџџџџџџ@nrU€€€ ˜9aџџџџщ4‰aБџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№Ќд(џџџџуOXЏ#fџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџ6 џџџџš"џџџџLџџџџџџџџџџџџLџџџџLџџџџPџџџџLџџџџџџџџLџџџџџџџџџџџџ<<џџ<џџџџџџјџџџџp8џџџџƒџџџџџџ8џџџџџџџџџџџџџџ% „џџџџxџџџXФЙН% „џџџџџџџџpdМx`„*џџџџџџџџџџ`„,џџџџџџџџџџА „ џџџџ(џџџ’ш`„*џџџџџџџџџџ`„,џџџџџџџџџџ Hџџџџ`џџџџџџџџџџџџФќHџџџџџџџџџџ0„ „џџџџ(§џџ% „џџџџџџџџШ „џџџџџџџџјaрџџџџ0ьќџџ0ic№ „ џџџџаќџџhKT’P 8`џџџџџџџџџџџџJўHџџџџџџџџџџ$$„џџџџH „џџџџџџџџшаџџџџxpџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџБo=$*\Rffff*1<3d6f18bc*\R1*#e5$*\Rffff*1=3d6f18bc*\R1*#f2*\R0*#e*\R0*#14*\R1*#59*\R1*#5b*\R1*#67*\R1*#f4*\R1*#3e*\R1*#67*\R1*#15*\R1*#3bпўЪR€€ џџџџ€ 6€ P€ *p€ џџџџ€ P € R№€ RH€ R € Nј€ H € џџџџ€ p € џџџџ"h €€0 €€0€ џџџџ80@80x2*А Fш€ џџџџ€ џџџџ€ €((‚L@Ш а#ш###0#H#`#x#Ј +А аи р№€ џџџџ€ ˆ € џџџџ"ј ь € џџџџ€ :Ј ("@$h€ џџџџ€€€ €˜€Ј€И€ џџџџ80Ш802*8 Fp€ џџџџ   АШ€ џџџџ ь и€ 8№€ >ш € FШ€ џџџџџџџџH Эџџx]ђ@]ЌЌђ`]ђ˜]ђА]ЌЌђаЌЌ+FДНмэ›wуљ?Ќ+FЌЌ+ДНмэ›wуљ?Ќ+FЌЌ+FЌЌ+ЌЌ+ FЌЌ+ FЌЌ+ Мџџџџэ    !"%$. !&B@(0]ђ]ђ ЖDIMDEC %.'*ІЖ+New Precision for Dimension and Tolerances: 2Ж(enter value from 0 tp 8)ЖDecimal Precision *$0',BE6 ,ъЌKTF 4',siЌKTF 6',icЌKTF 8',ЌKTF :',$ЙЌKTF <',џџџџЌKTF >',02ЌKTF @',00ЌKTF B',00ЌKTF D',2.Sџџ8ЖPrecision not Changed.A@F|џџnџџ , (OLoџџ№–8І   ( Ж DIMBLK = 'ЖDIMBLK %.Ж' 2Ж DIMBLK1 = 'ЖDIMBLK1 %.Ж' 2Ж DIMBLK2 = 'ЖDIMBLK2 %.Ж' 2Ж DIMSAH = 'ЖDIMSAH %.Ж' 2A@Fр1 VBA results are unaffected by DIMVAR settings.ЖDIMSAHЌ B@JЖDIMBLKЖ _ArchTick B@JЖDIMBLK2Ж _BoxFilled B@J]ђx]ЌЌђ˜]ЌЌђШ]ЌЌђ8ЌЌ+FДНмэ›wуљ?Ќ+FЌЌ+ДНмэ›wуљ?Ќ+FЌЌ+FЌЌ+ЌЌ+ FЌЌ+ FЌЌ+ э    !"%$. !&B@( N (LЖ _DotSmall (P T B@RІ   ( Ж DIMBLK = 'ЖDIMBLK %.Ж' 2Ж DIMBLK1 = 'ЖDIMBLK1 %.Ж' 2Ж DIMBLK2 = 'ЖDIMBLK2 %.Ж' 2Ж DIMSAH = 'ЖDIMSAH %.Ж' 2A@Fр@ Draw dimensions manually after running procedure to see this.eroџџ0р/ VBA for AutoCAD 2002: Writing AutoCAD Macrosр Jeffrey E. Clarkр# Copyright 2002 Prentice Hall PTRрJ 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 andрL any accompanying documentation. These example programs are made availableрK "as-is" without any explicit or implied warranty. Neither the author norрG publisher warrant that these programs are error free or will operateр without interruption.–pр Example 11-21.р Example 11-unnumbered.р4 Set DIMSAH to 0 or 1 to see which DIMBLK governs.р8 The properties don't override them, they IGNORE them!џџџџР]ЌЌђИџџџџ8 џџџџ|ЖAttribute VB_Name = "Accuracy" Option Explicit @ ' АA for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*CopyrightA Prentice H€all PTRoThis software ma y be Oely copied€ and us so lo…as t6discl@aimer,ttogether with€e a0bove$Fno B, 6inclФud€+in J7s7ƒ&any a`ccomp€~dPocum€caœ. These example pРrogram€‚cd€=vailable'"as-iDs"‚Mout€3yыƒО €Иi#w„ranty. Nec€fi aut"hnorƒ&publis‚uar9waty€IŠEerNrTAwiР_oрperatФ%СJС#Шint€ up7…gED711-21.ASub@sima€ryUnits@vcis€’()  Dim Object As Acad@AlignedGP1(€0 To 2)A œDo€3Р#ХP2YРTxtInsUУEС)€М0: €11.61803399Т@= 0gD РŽ2(‚ A2ў(I ХA Ч„ ‡Q Set…D=€i sDraw@”.ModelSpace.AdШI(P1Р, P2, УDVgУ*AЬХApСУЃZРoomExtРЇцRУС1Р~Old-S€‚ng*New-фkGetVariZ("DIMpDEC"рЁ= InputBoxx("сFC"Še.nE!l@?l`Pnces:" & vшbCrР_#Ёi "( avaluЁƒom 0 tp 8)", "DьecРQ Šr €##ФSelЁQCa@cCЧ ‚@<уFa†c&ZeroŒ41:€Zcу‹OnŸDXa РA Twэ B3і Thre- 4qЖFou`„Х'Т5)—iv- 6–Si xl!7weven5Ќ8ЖE!ХЌElFsHсMsg`K "чJРЙ Chanpged.`к…сEАxit €•Ѓ E`ШЧУ@у”.Pr™€@Iƒ6 ТubАЁu€nnumberЅЂA­wheadŽsEЁ eBLKр ž'a] xjР")a^""ВbaoР1п I^Mqџ[6є2џg2.я K2џџSAўHяя`мгsƒngБS№to`?Аl1 see whPich дg~rќns@jсI •KаBФIMa, 1Г"N‚рF_ArcрhTick$&/*–22*FАvedDџгАEЯqЮqр'џZ‚uƒ)§Ÿ\mQnuyua‰П lџђ“ u uПu9wuфwѕu uŸA A!4†uuedu?a‰ЏtЎtDCv>1T$ypaЕac"Open3 ­2Block01"_DotSm№ІЯ$.Re„geАЈcActpY€Viewpor ЙџБ SEEkz1,EгŸq0EŠ@K1@ї@`En/@qџџљё?= џSL‰Ё=лH\ѕЭresult“К`unaffа`РbyЁDVAR se~tсЮБD1€ОсН@Гties don'dt бFri`ОаЙm,Зy IGNOdREБm!гKš –d Ъ’sЮnuАх€ХfаЖ r`d‘ХЛ№ceduУ”MёЭтЖџџџџV`<фjxьXЏ’џџ#ˆЖџџџџџџџџ<џџОЙYзЯдNБ"ѓэЖ–_sйuŽ!=в…Ф  Ц&ЛуВy—УџLК‡є"2З< џџџџџџџџџџџџxЛуВy—УџLК‡є"2З< ОЙYзЯдNБ"ѓэЖ–_sџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@ttџџџџџџџџџџџџџџџџџџџџџџ0Бo=$*\Rffff*1=3d6f18bcпџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit