╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (<  <  <   <      xА                                  Д Д        X%`Д                                                                                                          ▀■╩ А А А  А <(А &hА 4РА :╚А А А (А *0А `А JhА J╕А :А NHА >ША P╪А P(А .xА иА░А     "Б╕А└А╚Б ╨Б рБ ЁБА     А         рр ad_AcadPath рр5 This routine demonstrates the retrieval of the path р of the AutoCAD executable.р. It was developed for AutRoot Entry        Pжз╙A[╟VBA_Project    └"╖т╬┤┴Pжз╙A[╟VBA_Project_Version(            VBA        └"╖т╬┤┴Аое┼A[╟¤    ■   ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                       ■   ■    ■    !"#$%&'()*+,-./0123456789:■   <=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghi■   klmnopqrstuvwxy{■   ■                   acID="{8AD4F570-2090-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D9DBA65EAA5EAA5EAA5EAA" DPB="A4A6DBEE6DB86EB86EB8" GC="6F6D10271039DA3ADA3A25" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=88, 88, 669, 588, Z Z Module1Module1PROJECTwm            z>PROJECT    ЮThisDrawing        jModule1     ;В _VBA_PROJECT             dir            i__SRP_2            ■   __SRP_3            ■   ee▓А0*Р pHВdф ACADProject8@╒ = t  F]u<( 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А 8FA957A7-2699-11D@6-B1194761254F9P.└OP\VBE\сДG.EXD /Ас.E ПрЕ.`МM ┤E┴Щ┬Ф┬k╕┬ЦThisDrawingGВАThiА^АDraw└аng 2 вАHB1б`EB,QB m╕"B+BГВodule1G╒ДВo@еuBе1@ ┬КM2OжOo╕!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{8FA957A7-2699-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          F]u<                                                            k╕ThisDrawing0747590d2c  ThisDrawing  m╕E  Module10847590d2c  Module1  o╕ж      8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         слрdlHДaЕсF╟>щ    ╙Ъ_Saп%@еH╘гЕ▒К6        HА Р&AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1b ad_AcadPathё`adAcad╧AcadApplicationф  adAcadPathн╝Path2MsgBoxЧR AcadDocumentZ  T                                                         $    ─╝k╕o╕  ╢  Ё╝╘░    ─аk╕o╕  ╢                        x  ME          ▀                                                                      oCAD 2000 and above.р4 Demand load: -vbarun;ad_AcadPath.dvb!ad_AcadPath;°рр version 1.00рр# Copyrightй2002-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.р═  HЦ]Є@]Є`э . ! ' A@"o  °    Ё    ╪▓Attribute VB_Name = "Module1" ' ad_Ac@adPathHThis routine demonstratesА the reкАeval of pt $AutoCAD executable.БlIt wasSveloped for ,2000 and abDov0Demload: -v@barun;│.Pdvb!;─version 1.00Е Copy@rightйА52-7 ActiveDwg.comКАЖprovidДWЗИБ/purposАНonlya_must$Зnot be usБcriticЭPappltА s withА╢ yРour А[if aД"thatА┤╩wАill perЯ m иА intenАQГ┤К`mayaБ!free└(└ulМizD$┬ownAsonА&+ soр long─~entire c2otsГ%header└ЕmaiтnБ!act!@ ЖQА"as-is"ВK─no└Гcla@Ш@CX, w└H@2 @Жibm@Ied,─!@mCА