аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsystem32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{44239CDD-2B09-4F7C-8223-2059C602E3C0}#2.0#0#C:\Users\walter\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџC;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџМьThisDrawing044abdcb7cџџThisDrawingџџТьњџџModule1034abdcb7cџџModule1џџРьџџџџАџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџThisDrawingThisDrawingModule1Module1*\џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ‡ 1лVЩ#VBA_ProjectџџџџрUя™ЇТР‡ 1лVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџрUя™ЇТРа@@кVЩ§џџџ "ўџџџўџџџ !ўџџџ#$ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ  !"#$%&ўџџџ()*+,-./01ўџџџ3456789:;<=>?@ABCDEFGHIJKMўџџџNOPQRSTUVWXYZ[\]^ўџџџ`aўџџџcdefghijklmnopўџџџrўџџџtuvwўџџџyz{|}~€acID="{21C12DC7-2E4F-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0507A132A3CFA7CFA7CFA7CFA7" DPB="9E9C3AD94AEBE2ECE2ECE2" GC="37359340B5404F414F41B0" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=22, 22, 751, 548, Z Module1Module1PROJECTwmџџџџџџџџџџџџL>PROJECTџџџџЄThisDrawing џџџџxЮModule1 џџџџ3_VBA_PROJECTџџџџџџџџџџџџ2Ч dirџџџџџџџџџџџџ'–__SRP_4 џџџџs__SRP_5џџџџџџџџџџџџqBrU€€€€~} џџџџџџџџџџџџ  adNumadPlaces йai-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOl“K*mџџџџrU€€€€~~~~~~~~~c ЩяbЉVstdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE AutoРmation^€MSFo@rms>SFErmHs3€DD452EE1-E08F-101A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft ‚: €] Ob­ Libr@ary/;D1?€„€tˆ€ˆ€00ш}#0‚€#€kh0Ѓ…РA44239CDD-2B09-4F7C-8223-2059C602E 3C@ЦXUsers\walter\AppData\Local\Temp\VBE\с„T.exd <Р!€с.E р….`ŒM ДEСІТЁТМьТЃThisDrawingG‚€Thi€k€DrawР ng 2 Ђ€HB1Ў`њB,QB Ть"B+Bƒodule1Gе„o@ВuBВ1@ Т—M2OАOРь!HТџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬ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 2009 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\џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{‘Gi˜ќМO­@i”ФЊ~џџџџ+]^И‰ЛhM‘%m™ђ™xџџџџџџџџH€џР' 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€џUtility1J€џPromptmџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $ўЪ5€ € €  rU€€€ џџџџџџџџ$`§џџџџџџџџџџџ,Љ`§џџџџџџџџџџџay +&n€ NА€ >€ P@rU€€€€~| ‰Ј СбЙ ЉI‰Љ i Щ љ Y (Ќ*Lџ$ (LџўС<џЋй$ћœ,џќOttџ5Lџ*Lџ$ (LџўС<џЋй$ћœ,џќOtlџ5LџLџ$ (LџBtdџ5LџLџ$ (LџBt\џ5Lџ odџєыГtdџ o\џєыГt\џє+*џdџ tdџє+*џ\џ t\џл$џ$ р'\§'|§'œ§ѕl$џ*# џ *#џ *FLџotџ§ћ<џћя,џ: џ ћяќў:ьў ћямўolџ§ћЬўћяМў:Ќў ћяœў:Œў ћя|ўodџ§klўћя\ў:Lў ћя<ў:,ў ћяў: ўћяќ§o\џ§kь§ћям§:Ь§ ћяМ§ 2$џ џџ6 Lџ,џќўмўМўœў|ў\ў<ўўќ§м§М§œ§|§\§ Ќ$ X$џ џџLџ,џќўмўМўœў|ў\ў<ўўќ§м§М§œ§|§\§|L ƒ ќ;ˆ ƒ ћпхprџƒ krџыЏє ыыћЯГхыˆ krџыƒ є ыыћЯЖЋttџ L$ f provided for demonstration purposes only and must#ьrU€€€ џџџџџџџџ@nrification9T)5р3 that this routine will perform as yrU€€€ ˜щ9џџџџС4a™‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\`bility for any particular task. Any use of t№ФдиџџџџR ЊМьРьџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP> џџџџš"џџџџLџџџџџџџџџџџџ<џџ<џџ<џџџџџџ€`  `џџџџџџџџ__SRP_2 џџџџbŠ__SRP_3џџџџџџџџџџџџ_ž__SRP_0џџџџџџџџ Щ__SRP_1џџџџџџџџџџџџ‹‚ƒ„…†‡ˆ‰Š‹ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|џHџџџџџџџџџџ„`„џџџџtџџџџџР`„џџџџlџџџџџFi`„џџџџdџџџџџx`„ џџџџ\џџџџџ int+$џџџџ`џџџџџџџџ€rџ+рџџџџ-Œiƒ*џџџџ џџџџ€iƒ,џџџџџџџџџџџџ€ 200`„.rџџџџџ4 џџџџР џџџџџџџџƒџџџџџџxџџџџџџџџџџџџџџ%џџџџјџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџ@џџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXXџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџ@џџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXИмџџџ џџ џџX @ўџ џџџ џџ 00(ќўџџ џџ 00@ўџьўџџ џџ @`Xмўџџ џџ ``@ўџЬўџџ џџ ppˆМўџџ џџ €€@ўџЌўџџ џџ p0Иœўџџ џџ 0`@ўџŒўџџ џџ 0Pш|ўџџ џџ pџџ@ўџlўџџ џџ p`\ўџџ џџ P`@ўџLўџџ џџ ``H<ўџџ џџ €`@ўџ,ўџџ џџ @`xўџџ џџ  p@ўџ ўџџ џџ €€Јќ§џџ џџ p`@ўџь§џџ џџ ``им§џџ џџ ``@ўџЬ§џџ џџ –УМ§џџ џџ “У@ўџЌ§џџ џџ ј8œ§џџ џџ @ўџŒ§џџ џџ h|§џџ џџ @ўџl§џџ џџ X\§џџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ8`$џџџџtџџџџџH џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@C;$*\Rffff*034abdcb7c$*\Rffff*044abdcb7c*\R1*#17d*\R0*#e*\R0*#14пўЪ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 ofyFiр> 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-2009 ActiveDwg.comџџџџџџррC This routine is provided for demonstration purposes only and must#ьu#рC not be used for critical applications without your verification9T)5р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.5р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 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ЁDфr€єМьТьџџ#ˆЖџџџџџџџџ<џџg‘hE!N–ЫX0”—D№•ЛЋzОyL€$ыjђq#ђ ссМѕZDМОВGрэїџџџџџџџџџџџџxђ ссМѕZDМОВGрэїg‘hE!N–ЫX0”—D№џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ0ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@ŒŒџџџџџџџџџџџџџџџџџџџџџџ8C;$*\Rffff*044abdcb7cпџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit