аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСй  ACADProject ThisDrawingModule1яРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA !џџџџ IБ0…ާ;цH“A<‹/`k;C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlbAutoCAD џџџџAС@0РFC:\WINDOWS\System32\stdole2.tlbstdole  1џџџџYЁPad_FormatNumbers  &Using RealToString:  ™9<†(N˜Uю0Щќ[Šгމt_HГ сЇ‡чi4йuŽ!=в…Ф  Ц&ЁWBВІLНГžmrЧ ьL)мйKБBx"Ёвk AcadDocument @–ЬвІ,@ИyU ЪЈy Using Format: #.######### #.####### #.##### #.### #.# Using Round:VBE6.DLL щRoot EntryџџџџџџџџPм9@ьХ VBA_ProjectџџџџрПХIQУPм9@ьХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ аzЪIQУPм9@ьХ §џџџ ўџџџ ўџџџўџџџ!"ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ ўџџџ  !"ўџџџ$%&'(ўџџџ*+,-./0123456789:;<=>?@ABCDEFGHIJўџџџLўџџџNOPQRSTUVWXYZ[\]^_`abcdeўџџџgўџџџijklўџџџnopqrstuvwxyz{|}~ўџџџacadID="{191FE148-1E04-4C05-956E-B26A36AEBEDB}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5A58AF9E86A286A286A286A2" DPB="2D2FD8F778CB79CB79CB" GC="0002F5F6F6F6F609" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=176, 232, 867, 806, Z Z Z Module1=151, 292, 826, PROJECTwmџџџџџџџџџџџџ>PROJECTџџџџœThisDrawingџџџџ џџџџm’__SRP_4 џџџџџџџџhThisDrawingThisDrawingModule1Module1odrU€€€€~} џџџџџџџџџџџџ   йбpadNumadPla“K*mџџџџrU€€€€~~~~~~~~~~~W Щ­б­…KœЖKЈУвУдf  фџџџџƒŠa !џџџџџџщˆa ‘џџџџ`џџџџaџџ __SRP_5џџџџfBModule1 џџџџФ__SRP_2 џџџџM(__SRP_3џџџџџџџџџџџџKgџџџџR Ј щџџџџQ Ш щџџџџS ш щџџџџ”  щџџџџЪ (9Јg 2#(H‚1‚ŒтX‚ ,‚@+ћ"‚+‚€MlБ€0* pH‚dф ACADProject8@е = t  I}@( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE AutomatXion0tD‚,>xThisDrawi ngGTJisDrawinЈg 2#(H‚1‚ŒвX‚ ,‚@+ћ"‚+‚€Module1G“dum•1€@2:":ИI!€CТG{C094C1Ьamџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation  џџџџџџI}@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,>ThisDrawing0U44e6c41c_VBA_PROJECTџџџџџџџџџџџџ)Tdirџџџџџџџџџџџџ#p__SRP_0џџџџџџџџ Ю__SRP_1џџџџџџџџџџџџ nџџThisDrawingџџ+ћвџџModule10T44e6c41cџџModule1џџИIџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4сXGџ€ D г*/ЄхгХџџџџФ"ЂаЊіEАB WВMOбџџџџџџџџH€џ ' AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“` ThisDrawingЙ5 €џџџ_Evaluateй Module1bЌ(ad_FormatNumbersЮ NumDoublexюRndRЯMsgBox—RvbCrLfЏЌUtility1J RealToStringт acDecimalМRoundЌ AcadDocumentZ _B_var_FormatрџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџ $  Б‘бrU€€€ џџџџџџџџ$`§џџџџџџџџџџџnџџџ$rU€€€€~|  yˆ 1AБщБY ё)YiЩ Ё@T 'Tџ 5Tџ'Tџ єыЋttџ5Tџ@џѕ ѕmtџDџ$ јDџ (0џѕѕmtџ4џ$ ј4џ ( џѕѕmtџ$џ$ ј$џ (џѕѕmtџџ$ јџ (џѕѕmtџџ$ јџ ('Ќў'Ьў'ьўѕ*#Pџotџќ#Lџ*#Hџ*#<џl@џ*#8џ*#,џl0џ*#(џ*#џl џ*#џ*# џlџ*#џ*#ќўlџ*FTџ 2"PџLџHџ<џ@џ8џ,џ0џ(џџ џџ џџџќўџ) Dџ4џ$џџџ6TџьўЬўЌў 'Tџ 5Tџ'Tџ єыЋttџ5Tџѕѕ:мў NTџTџtџMdџ@ьў ѕѕ:|ў NlўlўtџMŒў@\ў ѕѕ: ў Nќ§ќ§tџMў@ь§ ѕѕ:œ§ NŒ§Œ§tџMЌ§@|§ ѕѕ:,§N§§tџM<§@ § 'œќ'Мќ'мќѕ*#Pџotџќ#Lџ*#Hџ*FЬўьўћяЌў:Мўћяœў\ўћяLў:<ўћя,ўь§ћям§:Ь§ћяМ§|§ћяl§:\§ћяL§ §ћяќќ 2PџLџHџ6.TџЬўьўЌўlўœў\ўLўќ§,ўь§м§Œ§М§|§l§§L§ §ќќмќМќœќ 'Tџ 5Tџ'Tџ єыЋttџ5Tџѕ tџMdџ@Tџ  ѕtџMМў@œў  ѕtџM|ў@Lў  ѕtџMў@ь§  ѕtџMЬ§@Œ§  '§'L§'l§ѕ*#Pџotџќ#Lџ*#Hџ*FьўTџћяЬў:мўћяЌўœўћяlў:Œўћя\ўLўћя,ў:<ўћяќ§ь§ћям§: ўћяМ§Œ§ћя|§ 2PџLџHџ6$ьўTџЬўЌўœўlў\ўLў,ўќ§ь§м§М§Œ§|§l§L§§рT$ф Р-PџLџHџ@џ<џ8џ0џ,џ(џ џџџџ џџџќўDџ4џ$џџџTџьўЬўЌўœўlў\ўLў,ўќ§ь§м§М§Œ§|§l§L§§ §ќќмќМќœќllkџџџџ˜@џџџџџ rU€€€ џџџџџџџџ@n џџ џџџџр(џџџџџ Ш@ўџџџџџџ @№д д(џџџџЎ ў,>ИIџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 6 џџџџџџџџџџџџџџџџš"џџџџLџџџџLџџџџџџџџџџџџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџџџџџ  џџџџ`џџџџџџџџœќkџџџџџџџџџџ„`„џџџџtџџџџџџџџџƒџџџџџџˆџџџџџџџџџџџџџџ%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxР`џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџ4$Ќ&s@ўџ dџџџ џџ ve@ўџˆTџџџ џџ ix@ўџPџџџџџ ut@ўџЈLџџџџџ b!@ўџиHџџџџџ _L@ўџ Dџџџ џџ te@ўџ№@џџџџџ @ўџ<џџџџџ ј@ўџ88џџџџџ @ўџ€4џџџ џџ @ўџP0џџџџџ @ўџh,џџџџџ @ўџ˜(џџџџџ @ўџр$џџџ џџ @ўџА џџџџџ @ўџШџџџџџ @ўџјџџџџџ @ўџ@џџџ џџ @ўџџџџџџ @ўџ( џџџџџ @ўџXџџџџџ @ўџџџџџџџџ џџ @ўџpџџџџџ @ўџџџџџќўџџџџ @ўџИьўџџ џџ @ўџамўџџ џџ @ўџшЬўџџ џџ @ўџМўџџ џџ @ўџЌўџџ џџ @ўџHœўџџ џџ f @ўџ0Œўџџ џџ elec@ўџ|ўџџ џџ tim@ўџ`lўџџ џџ r @ўџx\ўџџ џџ adSS@ўџЈLўџџ џџ tion@ўџР<ўџџ џџ fTyp@ўџ№,ўџџ џџ "*"@ўџиўџџ џџ lect@ўџ8 ўџџ џџ , fD@ўџќ§џџ џџ t In@ўџ ь§џџ џџ ssC@ўџPм§џџ џџ nt @ўџhЬ§џџ џџ the@ўџ˜М§џџ џџ mer @ўџ€Ќ§џџ џџ ssSt@ўџрœ§џџ џџ esul@ўџАŒ§џџ џџ @ўџШ|§џџ џџ ts-"@ўџјl§џџ џџ @ўџ\§џџ џџ s: "@ўџ@L§џџ џџ & _ @ўџ(<§џџ џџ tal @ўџˆ,§џџ џџ bCrL@ўџX§џџ џџ ite@ўџp §џџ џџ en @ўџ ќќџџ џџ ltSt@ўџИьќџџ џџ ook @ўџамќџџ џџ Time@ўџшЬќџџ џџ " @ўџМќџџ џџ = R@ўџџџџџЌќџџ џџ ctio@ўџџџџџœќџџ џџ e - џџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџXI}@ $*\Rffff*0T44e6c41c*\R0*#15*\R0*#e*\R1*#19$*\Rffff*0U44e6c41c*\R1*#135*\R1*#14f*\R0*#14*\R0*#fпўЪ-€ € €  € 6(€ .`€ D€ и€ р€ ј€ *А€ € J€ JX€ :Ј€ Nш€ >8€ Px€ PШ€ .€ H€P€ џџџџ"X€ џџџџ€`€ џџџџ€ ,h ˜ € џџџџ€ А8№lа€ џџџџ€ Р ир8жl№€ џџџџ€ Ш рш8Ќј€ џџџџЈ€ џџџџџџџџшрр ad_FormatNumbersрр/ This routine demonstrates formatting numbers.р' Developed for AutoCAD 2000 and above.р> Demand load: -vbarun;ad_FormatNumbers.dvb!ad_FormatNumbers;рр version 1.00рррC This routine is provided for demonstration purposes only and mustџџџџџџрC not be used for critical applications without your verificationџџџџџџр3 that this routine will perform as you intended.рG This routine may be freely utilized for your own personal use so longр8 as the entire contents of this header remain intact.рJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as to its reliability for any particular task. Any use of thisр' routine is solely at your own risk.рЭџџp–]ђ@р%We'll generate a random number to useA@4 Ќ 'рUse of RealToStringјІ  ' 6 E ЖUsing RealToString:     $Ќ ! %"   $Ќ ! %"   $Ќ ! %"   $Ќ ! %"   $Ќ ! %"A@р Use of FormatA@4 Ќ 'І   $ - Ж Using Format:    Ж #.#########$Ќ  Ж #.#######$Ќ  Ж#.#####$Ќ  Ж#.###$Ќ  Ж#.#$ЌA@р Use of RoundA@4 Ќ 'І   $ - Ж Using Round:    Ќ $&  Ќ$&  Ќ$&  Ќ$&  Ќ$&A@oџџр# CopyrightЉ2000-2006 ActiveDwg.comџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџМГAttribute VB_Name = "Module1" ' ad_FormatNumbers\This routine demonst€rates f\Q.g nf.’DevelopedB AutoCAD 2000 and above)mload: -vbarun; ‰.dvb! ;ŸvЋion 1.00CopyrightЉu-6 ActiveDwg.com n€spro8vid„\v/purpos{onlBydmust$ not be uscritical applt€ s withЄ your €[if „"that t‰Зwill perЕ as inten€Q#ЁŠ`mayCfrŒee€Qйliz„HТownAson€&+ so lo ngФthe entire c‚ots of%header r emain!act!‰Q"as-i$s"‚Kno€clЦa@C, wРH@2@ or im@Ield,Ф!@m€+ћџџ#ˆЖџџrU€€€ xYЉџџџџ14бaљџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX`џџџџ­ ШŠјфJmЯ“ћ žГЗ<фjxЬ,>+ћџџ#ˆЖџџџџџџџџ<џџгމt_HГ сЇ‡чi4йuŽ!=в…Ф  Ц&ЁWBВІLНГžmrЧџџџџџџџџџџџџxЁWBВІLНГžmrЧгŽ‰t_HГ сЇ‡чi4џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@||џџџџџџџџџџџџџџџџџџџџџџ0I}@ $*\Rffff*0U44e6c41cпџџџџ4ўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD20"HighlightGetB