аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizThisDrawingThisDrawingModule1Module1*\D2Option /licit 046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE AutoРmation^€MSFo@rms>SFErm s/z€ p€FC0F16B64-59CA-11D4-839CF80C6F93F62F3.TWD#MicrosPoRoot EntryџџџџџџџџPтўЎA[Ч€VBA_ProjectџџџџрUя™ЇТРPтўЎA[ЧVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџрUя™ЇТР€@юЎA[Чўџџџ§џџџ ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;ўџџџ=>?@ABCDEFGHIJKMўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{21C12DC7-2E4F-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F3F1571AE21EE21EE21EE21E" DPB="828026ABB4ACB4ACB4" GC="1113B5B6B6B6B649" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=22, 22, 751, 548, Z Z ngModule1Module1PROJECTwmџџџџџџџџџџџџL>PROJECTџџџџ˜ThisDrawingџџџџ<Module1 џџџџџџџџ4_VBA_PROJECTџџџџџџџџџџџџh dirџџџџџџџџџџџџk__SRP_4џџџџџџџџџџџџўџџџ__SRP_5џџџџџџџџџџџџўџџџ@gВ€0* pH‚dф ACADProject8@е = t  C;( 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-02608C4D0BB4Dsystem32\FM20.DLL#Micro soft ‚: €] Ob­ Lib€rary/;D~1€„€tˆ€ˆ€0а0}#0‚€#€h0€r€ 1A69050B-2CC4-11D@5-B117105A11B3C9P.РOP\VBEТ\„G.exd /€с.E р….`ŒM ŠДС™Т”ТМьТ–ThisDrawingG€Thi€^DrawAРng 2E €HB1СЁEBЂ,B Ть"B+Bƒ‚odule1ЊG„‚o@ЅuBЅ1@ лТŠ2OБ@НM(Рь!HТ000204EF-0Ь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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2007 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\system32\FM20.DLL#Microsoft Forms 2.0 Object Libraryф*\G{1A69050B-2CC4-11D5-B117-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџC;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџМьThisDrawing0447590d1bџџThisDrawingџџТьEџџModule10547590d1bџџModule1џџРьБ џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЏ› RЌЃKFДщ=Лчѓщзџџџџ™WиФ”ХCˆЫВtЖ~ш№џџџџџџџџH€џx'AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1b ad_AcadDateЩ adDwgCreatek• adDwgUpdate@D adDwgEdit^@ adDwgUsrTimerљ GetVariable~RoundЌMsgBox—RvbCrLfЏЌadNumšЏadPlacesсadTmp‹Ю AcadDocumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $МьТьџџ#ˆЖџџ№ФдџџџџЫ?МьТьџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџ№Tдˆџџџџ[Ћ МьРьџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„`„џџџџџџџџџџџ`„џџџџџџџџџџ`„џџџџџџџџџџx`„ џџџџџџџџџџ int+$џџџџџџџџџџџџџџџџџџџџрџџџџџџŒiƒ*џџџџџџџџџџ€iƒ,џџџџџџџџџџџџџџ€ 200`„.џџџџџџџџџџ4 џџџџРџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ5€ € €  € B(€ Dp€ @И€ 4ј€ :0€ p€ x€ € *˜€ Ш€ Jа€ J € :p€ NА€ >€ P@€ P€ .р€ € џџџџ€€ џџџџ" €(€0€8€@€ џџџџ"H"p˜И€ џџџџиш€ џџџџј€ џџџџ(ж(€ џџџџB €  (8Xx€ џџџџџџџџˆрр ad_AcadDateрр; This routine demonstrates the retrieval and conversion ofр> drawing date information from the internal AutoCAD formatр: to Julian format and conversion of the elapsed timer.р. It was developed for AutoCAD 2000 and above.р4 Demand load: -vbarun;ad_AcadDate.dvb!ad_AcadDate;рр version 1.00рр# CopyrightЉ2001-2007 ActiveDwg.comрр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.рЭџџр–]ђ@]ђX]ђp]ђˆЖTDCREATE %"­Ћй$ 'ЖTDUPDATE %"­Ћй$ 'ЖTDINDWG %"'Ж TDUSRTIMER %"'  Ќ' Ќ'  Ќ$$' Ќ$$' І    Ж Stats for ! (ЖDrawing Created   (ЖDrawing Last Updated   (ЖDrawing Edit Time  Ж hours (Ж User __SRP_2џџџџџџџџџџџџўџџџN__SRP_3џџџџџџџџџџџџўџџџк__SRP_0џџџџџџџџџџџџўџџџ‚__SRP_1џџџџџџџџџџџџўџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTimer  Ж hoursA@&oџџј– ]ђ  *X'* *'. * . Ќ ,X'* . *Ќ , '$iџџ€џџџџxџџџџДAttribute VB_Name = "Module1" ' ad_Ac@adDateHThis routine demonstr>s t he reЊeval and conversion of  drawing d4 informat"fromDinternCAutoCAD #@to Jul8ianjEelapsed timer.DЃ{.GetVaria` ("TDCREATE") - 24158019ЦdкUPDетšINDWlG"b$тUХ[SРRTIMERІїФ  b*gG K ЅэRound(ёІ , 2ђШЅE! MsgBox 0"Sta R!}" &Ъ1М& vbCшrLf`_СA„`Ъ"d6 9d Bƒ$;§Last У8ˆф:‚(СKЧB&›рР’rРtUUsр~#SF†;ч E`б `fЁiP [ic FunЏрв%+Num…Ч[, kPlacРЊ… bIРбger)Ы_qУmTmpСD*adA = CDbl;€$:A= FinxЊ„(у dad`) * 10| ^FТТ ѕB і+€/+EЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@  џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„`„џџџџџџџџџџ`„џџџџџџџџџџ