ࡱ> XCompObjpBK*mrU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~> /ND*QGiX   A y A !"Root Entry1DZVBA_Project%`iӗ1DVBAiӗDUserForm1Miӗ1Dc   4. !"#$&'()*,-3/012456789:;<=>?@ACDEFGHIJKLMNOPQRSTV+WYZ[\]_`abcdefghijklnopqrstuvxyz{}s~PROJECTwm PROJECTfod  !"#$%&()*+,-./0123456789:;<=>@BDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrtuvwy{|}ID="{E8F2F545-249B-473D-9706-6004F8B9B065}" Document=ThisDrawing/&H00000000 Class=cls_LayerKey Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Class=ProgressBar Module=CommonDialogMod Module=LayerKeysMod HelpFile="" Name="LayerKey06" HelpContextID="0" Description="Layer Key Compare and Copy between Layer Key Styles" VersionCompatible32="393222000" CMG="FCFE4240C238C638C638C638C6" DPB="F8FA46B947B947B9" GC="F4F64A48BA45BB45BBBA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=22, 22, 486, 388, cls_LayerKey=132, 174, 708, 590, UserForm1=0, 0, 608, 416, Z, 132, 174, 740, 590, ProgressBar=154, 203, 730, 619, CommonDialogMod=44, 58, 620, 474, LayerKeysMod=88, 116, 664, 532, gMod=44, 58, 620, 474, LayerKeysMod=ThisDrawingThisDrawingcls_LayerKeycls_LayerKeyUserForm1UserForm1ProgressBarProgressBarCommonDialogModCommonDialogModLayerKeysModLayerKeysModnDialogModLayrU~~~~~~~~~~~~~~c a    3Layer Key Compare and Copy between Layer Key Styles y) blnSafetycheck  I( a8 H X h QxstrName 1cbox strFilePath startStrg delimiterCancel CloseMode pOpenfilename lpszLongPath lpszShortPath cchBuffer $I# dwExStyle lpClassName lpWindowNamedwStylexynWidthnHeight hWndParenthMenu hInstancelpParamhwndnCmdShowlpRectX1Y1i21  n``Miӗ1Di28- n``Miӗ1Di37 n``Miӗ1DCompObj aVBFrame8ThisDrawing&__SRP_a__SRP_b UserForm1'"R__SRP_2,(__SRP_3+*cls_LayerKeywy__SRP_4mfo`CompObjpf)oCompObjpf~)X2Y2hdcqrcedgegrfFlagsnIndexhBrushdwMillisecondsstrCapMaxCountlngIndexlngCntlngPause y/ QsNameRO a+LKName KeyStylem_objAECKeyStylem_objAECKeyStyle J AQص0* pHd LayerKey063< Compare andpy between dDStyles@fpayer KyComTpr ndp- btwenL# ESt+"l#siZ=   NYD <stdPole> s*d+O+ `\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\12.tlb#OLE AutomationD Script@ing>citig Oj I420B28IE718-11C@F-893DIA0C9054228}#1IDOWS\s%crrun.dll#Microsoft  RuntimFe@MSForms>BSFJr5@ssoBJD452EE1-E08F-101A-8-02608C4D0BB4KJ%FM20.DLL%B W Object Library/;>1ahAh00}#0C# 5h0 m61A4579AF-B974446-A14E-F9E82E8186126PageDi@r\VBE\N.8exd 6.E .@`M aIWshgB>$@ IWshRum@Lba`:yHx OAF935DC20-G1D0-ADB9&C04FD508A0BH&[wshom.ocx#Windows$H Host5MoXdel@AecXUIBasnAcX@UIB}s |`E7B8E100-BF69-431B-9153-1FF0DEF8F613}#4.7oProgram Fi`\ADT 2006\47qAEC   Appli6cr%L.@cd~t`3!Ka@"sArch ),ZA@cD' `&%?-":-Ai 1Y 9it A 10 .)/Y/,///++# 0)a y`yyQa -$%Q&''y(1))*i+y,,,,,)-a-ya A" ayiQ1   1  LayerKey06 ThisDrawing UserForm1 cls_LayerKeyCommonDialogMod ProgressBar LayerKeysModF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  Q;HA?IFG -OJڝFpJ8RFȉ2ҋB ` ComboBox1!-6S` ȏ[qJ eUserFormjF9QO$ F3DynamicGetLayerKeyDefault  ?F`Frame1 ComboBox4 ComboBox6"-?@Label1Frame3Frame2Label6Label7Frame4{lFWJOcmdCopySelected"ҋB `ListBox1 ComboBox5BҋB ` CheckBox1Label5cmdCopySelected_ClickComboBox1_ChangeGetLayersFolderActivate_IfOpenFillLayerKeystyles3ҋB `GetLayerStandardComboBox4_ClickComboBox5_ClickComboBox6_ChangeUserForm_Activate StripPathStripDelimitedItemUserForm_InitializeUserForm_QueryCloseCompareLayerKeysGetLayerKeyFolder | Error fĤIx8<  ( l) in procedure showformnew of VBA Document ThisDrawingVBE6.DLL Q  LayerKeys QS  $coBB$coy Browse Binning "s Layer Key Tools  *.dwg DWG Files ,,LL, $,0<HGetOpenFileName comdlg32 GetOpenFileNameA GetSaveFileName GetSaveFileNameAwiCS  GetShortPathName kernel32 GetShortPathNameA @ ((Pi @I 6"! \ c:\ AecLayerStd.dwg dwg &RLB Layer Key Tools Q`  Q (GetKeyStyleFromName Q, H Q  h Qh  Q  "s LayerKeys Tools  00(   +=h8+3qU NЇ*=h8+3qR`d5MAI!&m!=h8+3qClassPgv3+3o VBInternal GetKeyStyles # #` 00,$( CreateWindowEx user32 CreateWindowExA $%p ShowWindow ShowWindow $% DestroyWindow DestroyWindow $&SetRect SetRect $9'DrawEdge DrawEdge $' FindWindow FindWindowA $(GetDC GetDC $Q)0GetSysColorBrush GetSysColorBrush $*PFillRect FillRect $*pSleep Sleep Initialize KeyStylesgĤIx8< +Caption FillColor BackColorClass_TerminateShowProgressWindowDestroyProgressWindowProgressMeterPos xh BProblem Retrieving Active Profile s Layer Key Toolzx:EuJw\V,Er'"kClass_InitializeLayerStdFolderNameDocumentiCSCleanupLayerKeysInStyleOpenDoc GetLayerKeys 44h 48<@DHLPTXiCSiCS00iCS1y/iCSqN篧J Ͷr-iCS iCS x) in procedure Class_Initialize of Class Module cls_LayerKey ZHKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RiCS T\Dialogs\ADT_DEFAULTFNAME\InitialDirectoryILMћd_ 0rH%nA Mr ׋CBBKDAKP5A5 \Curver!5OՊ  \Profiles\ v) in procedure Class_Terminate of Class Module cls_LayerKey f) in procedure Cleanup of Class Module cls_LayerKeyiCS3 8iCS55IQLb-IiCSkiCS3 Qw  Open Read Only? Error Opening: "Please try again!xiCSy:%iCS_e Hjk"7f:1: Q ƒ6ΛJ0䖌 f) in procedure OpenDoc of Class Module cls_LayerKey j) in procedure KeyStyles of Class Module cls_LayerKeyyiCSgĤIx8<=+T7YAT$aX, p) in procedure GetKeyStyles of Class Module cls_LayerKey HLayer Standard 1 Selection Complete.   <Please Select Layer Standard 2 HAutoClosing this message (3 seconds)ƏYl| &Error Getting Style 2Please Reselect Layer Key $RLB LayerKey ToolssiCS x) in procedure LayerKeysInStyle of Class Module cls_LayerKey! ~) in procedure GetKeyStyleFromName of Class Module cls_LayerKeypj).`#ҋB ` Save Drawing: ?&4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{1A4579AF-B9E1-4446-A14E-F9E82E818612}#2.0#0#C:\PageDir\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{F935DC20-1CF0-11D0am   *\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:\WINNT\System32\stdole2.tlb#OLE Automation*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{1A4579AF-B9E1-4446-A14E-F9E82E818612}#2.0#0#C:\PageDir\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}#1.0#0#C:\WINDOWS\System32\wshom.ocx#Windows Script Host Object Model*\G{E7B8E100-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXUIBase47.tlb#AEC Base 4.7 Application Library.*\G{E7B8E300-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXBase47.tlb#AEC Base 4.7 Object Library*\G{E7B8E200-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXUIArchBase47.tlb#AEC Architectural 4.7 Application Library*\G{E7B8E400-BF69-431B-9153-1FF0DEF8F613}#4.7#0#C:\Program Files\ADT 2006\AecXArchBase47.tlb#AEC Architectural 4.7 Object Library  fLayer Key Compare and Copy between Layer Key StylesNYDsThisDrawing0744aa__SRP_1Ei43 / n``f1Dfo.0X62d6ThisDrawingZM UserForm10844aa62d6)UserForm1Hx0cls_LayerKey0944aa62d67cls_LayerKeyox0eCommonDialogMod0:44aa62d6CommonDialogModHqProgressBar0;44aa62d6ProgressBarX`(LayerKeysMod0<44aa62d6LayerKeysModt`x0xHe Aitxuralw.@@b>eu }4?0?01s ThisD(rawG T`1ivD2a52A<H 1M ","Z"+RBgUserU1GEUpzѕ]1k2o`14(zAycls_uGbcl_#b!29r$ Pm o p 0monDialogLG@ SmonDUa ogMd09d2 qq_!Q%r8essBarS%P$ Qs>r oS%bX2sb;s1 3͟ P tyA[h_C%rU ( nhl rU~|  pAx h@;{st$xME(1"~6 P0EPH@%PH2%ph_C%x%%| @h| %(@@Sx h@@q@@@xP(( P(NYD*\R3*#6$*\Rffff*0;44aa62d6$*\Rffff*0<44aa62d6*\R3*#5    (08@H Xx] ] (] ] P] x] ] ] ] (Attribute VB_Name = "LayerKeysMod" Option Explicit Pub, LKFile1 As Sng2Sty40dicLlcri^ng.DicfaryD)2`)Missing!*sOpene>d.q@q objProbar/gressBar `@mOZ#=9Ip@KԖpG 岍D#RC-mL \)4IqHby{++J]ACzLhcmLeft AutoCAD" VBAWin16~Win32MacVBA6# LayerKey06.stdole` ScriptingMSFormsCIWshRuntimeLibrary AecXUIBase|AecXBasetAecXUIArchBase] AecXArchBase ThisDrawing5 _EvaluateblnSafetycheckXH showformnewwshowformnew_Errore UserForm1)ShowMsgBoxRErroNumber- Description cmdCopySelected_Click!+i`kbo_abAppiaAecBaseApplication o_abDocSource~AecBaseDocument8 o_abDocTargeto_LKStyleSourceAecLayerKeyStylev o_LKeysSourceg AecLayerKeysa o_LKeySource AecLayerKeyɫo_LKStyleTarget* o_LKeysTargetu o_LKeyTarget|o_LKeyOREnableds o_LKeyOver@AecLayerOverrideSetting o_LKeyOversXAecLayerOverrideSettings/cmdCopySelected_Click_ErrorCInit\[ Application*Activate_IfOpenx ComboBox1'ActiveDocument\LayerKeyStylesm ComboBox4*Keysq ComboBox6, ComboBox5+ CheckBox1ValueKOverridesEnabled. (objProbar6 ProgressBar$CaptionxListBox1 ListCount6MaxȲ BackColorރ FillColor>ShowProgressWindow ProgressMeterPosSelectedYList*AddrColor2FLayerUCase5 Linetype LineweightG PlotStyleName  PlottableDestroyProgressWindow@F vbInformationnChrK~ComboBox1_ChangeasFiltersf oFilesDic` Dictionary intFilesCntvarProjectPath)| strInitPathPdposbuff~ sLongname sShortname sFileName sFileTitle&nDotstrPathllngCntgblnCode3 vbNullCharY(OFN) nStructSizeJ hWndOwnerhwnd/sFilter@ nFilterIndexcGetLayersFolderZSplit) vbTextCompare QIsArraysFile8aSpace nMaxFile sDefFileExtP nMaxTitle  sInitialDir sDialogTitle&flagso(OFS_FILE_OPEN_FLAGS(GetOpenFileName]?Trim@StripDelimitedItemAddItem Count0v ListIndexQ vbNullStringFillLayerKeystyles clean_ExitRoADTDocldAecArchBaseDocumentLAecArchBaseApplication1ioADTPrefeAecArchBaseDatabasePreferencesrmsgQ Preferences LayerFilestrNameZacdoc AcadDocumentZ DocumentsFullNameОActivate|cboxzComboBox\varITMjcolKeysW CollectionW myLKStyleR blnActivepretval;vbYesNovbNo% cls_LayerKeyc@OpenDoc KeyStylesgGetLayerStandard2 LayerStandard@RGetLayerKeyDefault:TComboBox4_ClickE (dicLKeys1s[LayerKeysInStyle,WshShell0PopupbvbCrLfSetFocusComboBox5_Click (dicLKeys2t[CompareLayerKeysHeight|RepaintComboBox6_ChangeTUserForm_ActivateZs strLKFoldercGetLayerKeyFolder StripPath strFilePath\xointcnt.- startStrg? delimiter~UserForm_Initialize5c(dicFilesOpenedpUserForm_QueryCloseCancel CloseMode؟varFiles7adocReadOnly4<vbYesa? varMainKeys$U varCheckKeys>{ (dicMissing8ClearExists]o_AecDocLayerStdFolderName Zm_objAECBaseApp*m_objAECBaseDBAecBaseDatabasem_objAECBaseDocm_objAECDocuments6 AecDocuments,m_objAECLayKeym_objAECLayKeys=m_objAECKeyStylem_objAECKeyStylesAecLayerKeyStyles*m_dicAECLayKeys)m_dicAECKeyStylesClass_InitializenClass_Initialize_Errors strAcProf^strAcRel7~strAcVER strAcCurVerlsfRootlsfLimb'VProfiles#Version ActiveProfile)uRegReadwDocumentjDocument_Error1Class_TerminatePClass_Terminate_Error8Cleanup Cleanup_ErrorLayerKeysInStyle_Error o_KeyStyleo_LKeyaGetKeyStyleFromNamef vbCritical+}sNamedRO^ OpenDoc_Error" ErrCatcherRaiseSourceG InitializeNInitialize_Erroro RemoveAllHandleKeyStyles_Error]= GetKeyStyles KeyStylesListtGetKeyStyles_Error,LKNameGetKeyStyleFromName_Error LayerKeys3_KeyStyleՋLayerKeys_Error8 GetLayerKeysi LayerKeyListyGetLayerKeys_Error@ CommonDialogModyJ(OFN_ALLOWMULTISELECT(OFN_CREATEPROMPT^9(OFN_ENABLEHOOK(OFN_ENABLETEMPLATEO(OFN_ENABLETEMPLATEHANDLE. (OFN_EXPLORERL(OFN_EXTENSIONDIFFERENT(OFN_FILEMUSTEXISTٽ(OFN_HIDEREADONLY (OFN_LONGNAMES=U(OFN_NOCHANGEDIR͙(OFN_NODEREFERENCELINKSv(OFN_NOLONGNAMES(OFN_NONETWORKBUTTON(OFN_NOREADONLYRETURN(OFN_NOTESTFILECREATEDs(OFN_NOVALIDATE(OFN_OVERWRITEPROMPT(OFN_PATHMUSTEXIST (OFN_READONLY!(OFN_SHAREAWARE(OFN_SHAREFALLTHROUGH( (OFN_SHAREWARNd(OFN_SHARENOWARN4 (OFN_SHOWHELP(OFS_MAXPATHNAMESe(OFS_FILE_SAVE_FLAGSı (!OPENFILENAME35 hInstance  sCustomFilternMaxCustFilter` nFileOffsetInFileExtension9 nCustDatafnHookn sTemplateName pOpenfilenameccomdlg32F(GetSaveFileNameW(GetShortPathName lpszLongPath lpszShortPathX cchBuffer>kernel32_ WS_THICKFRAMEO WS_CAPTION  SW_NORMALi CREATESTRUCTlpCreateParams@hMenun hWndParent7cy\cx\ylstyleplpszName& lpszClass{ExStyleiCreateWindowEx dwExStyle_ lpClassName lpWindowNamedwStylenWidth̵nHeightlpParam5uuser32* ShowWindowJknCmdShow DestroyWindow9SetRectUlpRectRECTiX1_Y1O_X2_Y2P_DrawEdge%hdceqrcedgegrfFlags%h FindWindowKGetDC`GetSysColorBrushnIndex'FillRecthBrush SleepdwMillisecondsťBDR_SUNKENOUTER)BDR_RAISEDINNERw EDGE_ETCHED BF_BOTTOMcBF_LEFTBF_RIGHTTBF_TOPBF_RECTCTop5Right BottomH{lngHdcǀRC^FillRClngFill lngBackColorblngMax*lngHwnd strCaptionstrCap{MaxCountlngIndex CS\lngPauseC$lngPos6 IsMissing LayerKeysModZ(LKFile1o^(LKStyle1(LKFile2p^(LKStyle2UserFormNFrame1Label1,Frame2Label5,Frame3cmdCopySelected< Label6,Label7,Frame4ClickChange QueryCloseTClass TerminateyL _B_var_Chr\; _B_str_Space _B_str_LeftV _B_str_Trim _B_str_MidXItemz _B_var_UCasea)!7  "lJV"&8bb dowAvGetDCvGetSysColorBrushatevinanFillRectyerH<anrdSleep-- t*ěmbGb S*=h8+3qn]gMH\?x߶ xT|(sXDmnCreateWindowExA8NShowWindowXb$DestroyWindow|DSetRectherDrawEdgeFindWindowAGetDCGetSysColorBrushateinanFillRectyerZ<anrdSleep-- tU NЇ*=h8+3qR`d5MAI!&mxR`d5MAI!&mU NЇRHR00RRME( PSS S@b@>"<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}0B` B%b` hdxh<hfhh hjhlhnhf ''''hp8 ibuthrP$$use hth((nhv,, app+x@p iz siti|i~ i@!if`B@ in@ iiihifBinni< eys i 4+$p$ i iErro+ DpD iA@+hp`h )A%i"B@ii !i+pH ih) A%idefaigBox+Pp i|0!di~ +p i+p i$+pP ipJ)0A%i  (p( !!iB BBhBBBB8B x @Lh h h8 h "H @ @% @%b`@bh@( A h `  Ni A h Wi A@ h $ ^i A h ( ei  ` 8i @ ` ,o 8  %  ` 0 ~ ` 4i i`@  %B\p CB^CB BBBB@BBB b`4 @"P 8 @bX@b \@b d@ H @  h P @@p  P H @ 8  `HH    x<@;NYD$*\Rffff*0;44aa62d6(*\Rffff*0;44aa62d6\0(*\Rffff*0;44aa62d6\1l 0 "8`p   H4 H  H0 0@ &pH H H H H H 0 >8 &x(  0    0 &H p       & 0HPX`hp x $"   6 60 6h 6 6"    6( 6` 6 6"   6  6X 6 6"   *" H P `px "  6 > @ :H 6 J   0 P h   "   : : :@ : : "    ( 8 X p      x*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ This New Window procedures3_T]DH G]Dp ]eserH^`^x^^^^^^^ ^8^P^hp"1@''@*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ Rectangle functions (the meter) z sitP*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@7This next declare is used only to slow the loop down in The procedure "ProgressMeterPos"*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@]D g ofWant a Raised look?]D How about both?s ]D  dwg@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@gYou have to have these]D f th]D@ure]Dh]D own To get this!]D    @~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@oThe Rectangle type^^ ^ ^8 p]@8]@`]@P ]@]@] ]] The caption for the new windowrmin 'm0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@/ | Max is the maximum number in your For Next |/ | Loop, you must provide this value prior to |/ | Calling ProgressMeterPos! |0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ 'm0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@/ | This sets the color of the progress fill |/ | value can be 0 to 24 |0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ 'm0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@/ | This sets the color of the progress |/ | background value can be 0 to 24 |0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@@ 'm$Just to be sure, destroy the window!  A@ko ] 0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@8Looks can be decieving, must of this call does not apply:to us! We are not going to use the window for anything but3display! If you have trouble with #32770 try STATIC0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@  \#3__SRP_d?T_VBA_PROJECT%-dir'__SRP_0*9&2770  ^d< $x '  `A@ $' A@   $A@    A@oxGoodbye window!@ A@o@4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@3 | This is the procedure to position the progress |3 | Rectangle (FillRC), the arguments are the for |3 |The current count, and a optional sleep interval|4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ ]  '    A@   $A@ $ A@khk`oXPAttribute VB_Name = "ProgressBar" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse dCreatablPredeclaIdC@ExposeTemplateDerivCus tomiz EOp tion 0licit '@~$@ This New Window procedu PGK Const WS_THICK FRAMEs&H 40CA PT(IONC0  "SW_NORMAL1 2Type CREATESTRU CT lp_eParams As LonghI%an@nMenuL Wnd@entcyxLsty@alpsz@S*ClasB0 ExSKEnd BFD× Func{DlEx Lib "user32" Alias "A" _ (ByVal dwL, [( 0,A Cdw2MU nWidth_Heighf6h:eh?-EB lpJAny)å:/Show .9+hw 8BnC @0 Then DOWJ$ DIfH+ s2Showwgre ss4Dim CSuCREATESTRUCT'' 'Loo@ks candecievingH, mofill does not app ly8us! @We are gFouse for anyt"hbutdisplay! @Oyou hav ro@{^th #32770 try STATIC 1:Bg= CremTEx(WS_THICKFR@AME, "", Capti`on, _@ CAPTION, @500, 12 5@60&, },g„p}, SW_NORMLAL$dc@GpetDC(etRect RC2425 FillB,B SysBBrushFDra wEdgeB#dc BDR_SUNKENOUTER, BF_REA¥'GoodbySo?9N' |lR@tprocedwOposi6gO "h |  &angle ((C),arguments"Y !V`y curr count,A@Yd a oCal sleep interval?**Me Pos9Cntca, O@Pamɟos%/N@ á /AAMax * 239! qN@|D< 6(SdR'R6,!` , 24 AW`HLTabS a!IsMis.s)H ~SB-aC!J! > %(aaouwA=Csetscqm of[ *f`* ~ sca@n be 0G246? &0B/(;u9@2=a0&P$&b:gr vR_ ksxNGetOpenFileNameAN<GetSaveFileNameAZd(GetShortPathNameALxRRLLMEP(@:> < <( x C PCCC C C C @C"@C&hC*C,@C0C40C6Cʘ8(C%:h3 heys h<otheh ----h>0----h@H----h`----hx@h h$$h((Ph,,h00t toh44hB 88!dhD8::"cohP<<doc hFh@@!hhHDD:!hJHHd D!@%+ p )Ld A%+P(p`( )LCopyA%+RPpP iTiV iXPC C (@CxCCC C $hC(C.C2CʘX 8C@xxh@X ((hP0@P(P20NYD$*\Rffff*0:44aa62d6(*\Rffff*0:44aa62d6\0FN F DP B F >( <h : < >( Fh        0@ P`p         0 @ P 8` 4  . .  P X h x           ( 8 H X h x   H H H,  x?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''1+> Copyright 1996-2003 VBnet, Randy Birch, All Rights Reserved. D< Some pages may also contain other copyrights by the author.$%?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''7 Distribution: You can freely use this code in your own6 applications, but you may not reproduce4 or publish this code on any web site,6 online service, or distribute as source,.7 on any media without express permission.?''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']$(]$ P.!]$  .]$@xin p]$(tial]$Pod]$rKey]$xH]$W--]$ --]$----]$--]$--]$--]$4 see comments]$@ D]$@/3/2]$h]$hr ]$ Bin]$@x]$]$----]$----]$----]$0----1OFS_FILE_OPEN_FLAGS and OFS_FILE_SAVE_FLAGS below-are mine to save long statements; they're nota standard Win32 type.dure   ]$       ]$   & X--^D------^D------^D------^D F^DGetKey^D0 D^DH 8/3/2^D`^Dxhor ^D L Bin^D P^D^D------^D------^D------^D ------^D8------^DP---^DhP^D !p`]  - Stes in--end block--'hյAttribute VB_Name = "CommonDialogMod" Option Explicit '< Copyright 1996-2003net, Randy Birch, All R(s Reserved.@Sopages may also contain o0ther bs by  author>@Dis: You can free@ly use8i"sBde Iyo@ur own] ) apas, inot reproduceor pu`blish5any web site,nline ice, d2e asL s*n media wiRut express permi ssBW' P6c@nst OFN_ALLOWMULTISELECT As Long&H CREATEPR(OMP 0 ENABLEHOOK  TEMPL 4 HANDLEJ 8R XPLORERL 00 TENSIONDIFFEREN =4 FILEMU@STEXIS1 HID` ADO(NLY4$LONGNAMES*#5s NOC #GEDI,P NOCELINKk 9NO#NETWORKBUTxTONr O"$RPETUR8`& 'see`mmentsRTES>T3XVA8LID ROV`ERWRIdPATH3E E +SHA`WJ 2FTHROUGHh2` i0SgNO,12 OWHELP1o S_MAX&`6`OFS_;_OPEN_FLhAGSdSAVEbelow`are mto save l!stateI;ey'@ `ndard Win32 ty\pe೬=2WEG_ *kOr4X?2< n/  N_ U$ ]0O B YO T= qqnStructSizejhWndOwnЉInhancu e#spFiltxingCustomHnMaxxnSIndexc q TitlInitqPDir3 wsflags?tceO`ffset$I@ntegerEpxten!sDef1 (0DatajfnHook sTempl<¸AEnd ''Q(3DecBlCFuncG`etOpeLib "comd@lg32" /ATli@"A(p1filen{ ) xSK!uge__QetS tPathgkernelByVal lpszq1S,EGV_ ScchBuff>1H'--ep blo0ck--EHOOK  TEMPL 4 HANDLEJ 8R XPLORERL 00 TENSIONDIFFEREN =4 FILEMU@STEXIS1 HID` ADO(NLY4$LONGNAMES*#5s NOC #GEDI,P NOCELINKk 9NO#NETWORKBUTxTrU ` 30A1 i11y/11qA 2 44 i53555 4.)60)7;0 <<=:!>+I>q> C1B@B:iC DE."."@\I#yq#   WWWPK[x4x[x<x$x$ lQx[tX4 t'xX4 0lx=[t<)xt'xX< plx=[t8)xt'xX4 lx= [t@)xtK~'' ', p xx  lp#l*#h *#`d tt , ld*#\*FL 2 lh`d\)xt6L, P$( 8 lhd`\xtL, @- 4dJTX\`d h` @\ X \lT 1l/T)`\X0T\`d h` @\ $>T1p)`\cd P<<ll*#T*#LP 4<:,`1h2TL6<<ll*#T*#Llh*#*#lp*#*1t2 TLTFX 0 k5XM9Tl ,0llhhMD @>TFX ( lh=0lh5Xc l0 TxK/~'''4  hh  l#T*# *#  , l*#1*FX 2 T)h6X4/ @(xplt8 ThX4\l CtKhK<c)/=H'L%\%ltlX4 l 0lH=p)lH5\FtM\@"X 0 kFlML @tM\@"X (  lp<pz/$@ ll  l@lYv@ ll  < HH $ 4 88 , ''>4F>dFDLppMT @t$' (lp=%Lp6D$K X+dXL X&>dFD 0 k5D29dXL X&XL )>F$>dFD ( 6D$cLh%ft$' $(lw tV'x c=(xK/ ~'''$  pp  l#d*# *# ll , l*#**FD 2 d)pl6D$/ 4xht8 dplD$  l Ct-'pX< lp=#[lP)plPLh%dXL X&ldlt0/dy LxhLh%GK/~'''  ` pp  l`#d*#\ *#TX ll , lX*#P2*F@ 2 d\TXP)pl6@ /2 0xht8 d\XTPpl@ 0   0   \\    w4' ,,esodzx:EuJw*=h8+3q\V,Er'"kx\V,Er'"kzx:EuJwME@ <8(,SS S91911 1(1018 9@( H0$F 0N 4@0*>"PP"LLLPPL*LLLLL *LPLPPLLLPLLP<<<<<<<<<<<<<<H<@NJFN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}!D% /C %.,1+%@`x %@t %@p  D%@l  %@h Bin$%@d (%@ ` P ,%@\ ,% ` k< ,!ph k.i `t`pd `l`h@ H@ H,!h  B%) %%  `k@V `k` $ji  ,!FPho(//i ,%) ,% p(4% lHErro8%,8`hk ,##i i i  URRE podes<%,p` P 0NLB)i  _USE,:`Hk4@%) T_DE@%,p `o( D //@%)H 0@% th@%, `kH 2i 04%) ----4%, ` @h8 C)`p D4%@%) r @%, `L ))Z)4%@%)( @% H@%xP%"4@"88@"<X@" @x@"H D@"p H@" L@" P@" T@"X8 @p p H @p pP @h @ L @ < @ , @  @ @ @ X(@  H`p P h ` x -HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R*\Dialogs\ADT_DEFAULTFNAME\InitialDirectory@%d `t% p @ ` @ \ @X @0T P`0% @L @x< @, @ @ @ @ hx.,@l @h @d @` @ \ @X c:@8T a@PP s\@L pp@< at@, \a@ u\@ ts@ m @ 200H \a@l pr:\pm f.,t 20@`h co@d um@H` et@x\ us@X at@T ut@P 20@L er@< am@, pi@  \t@8 og@P tr@ ck@ :\ X(p 8h8 06`8z m H \adp6\d`t Xm fp.,t 20@l NU@\ DL@0L es@@H \e@F ws@@ DL@X< @8 @4 @$ @ @ @ @ @ @ @ @ X0p@ (; h ;x@%0.,@t @p @l @h @d @` @\ @X @HH @`8 @x( @ @ @ @ P0`HP( x@% `x@% `.,@p @l @hO @(d @xT @D @4 @$ @ @ ,%`%@@ @h @ @ @ @ @ 00H`(G Ghx,%h`t.L,@h @`X @T @xD @4 @$ @ @ @ @ @0O P4%H`%x0@ #@ @ @ @ @ @  P H!`! 8 (( x4% ( `t  .,@h p @l @hO @ d @` @!\ @!X @0!T @P @x!@ @!0 @! @! @! @ @  @P P hP0# NYD*\R6*#1d*\R7*#8d*\R6*#1f*\R6*#20*\R7*#ac*\R7*#ad*\R7*#ae*\R7*#af*\R3*#6*\R7*#ae*\R0*#1c$*\Rffff*0944aa62d6*\R5*#2a*\R7*#ac*\R6*#1f*\R6*#1*\R6*#3$*\Rffff*0744aa62d6*\R1*#135*\R6*#0*\R1*#137*\R7*#2f*\R6*#4*\R0*#13*\R0*#19*\R0*#14*\R6*#1*\R1*#138*\R1*#141*\R0*#f*\R5*#1*\R1*#14b$*\Rffff*0<44aa62d6*\R3*#5*\R0*#1b*\R6*#3*\R7*#31*\R3*#5*\R7*#32*\R7*#8*\R0*#1b*\R7*#32:*\G{C295FFF9-3572-4ED2-9E42-0DAADB8D93EE}#1.0#0#..\..\Program Files\Common Files\Autodesk Shared\axdb16enu.tlb#AutoCAD/ObjectDBX Common 16.0 Type Library*#6a*\R0*#e*\R0*#1*\R7*#34*\R7*#34\ ^ .` " $ V ^8   " ^ X "x $ ^ "( ^P    $''' (0 8 n~@ B:6  X "J0(8 @2<H0< B  ^ 8 "X $ L ^ X`  h x  f " ^ h " $ < ^ x      n~  B  ^(  " $ 0 ^(         f~ 0 B  8 ^@ " " $ Z Xx ^ 0 8  @ P` h P  "( 0@ f<H !  (9   ( 8H PX ` n~h B  ^ H "h $ b   ^@  =   (8@H P$p"v   f~0 B 8 ^@  " $  ^(        08 @ hH B ^   "@ $h  ^    (0 8 h~@ B ^  "8 $`  ^  ' ( 8H 4XR  + >9 08 @ P `p x   j~ ^ &x " $  ^ hB  p'x     r~h B  p ^x  " $ ZH ` `! h! ^! !! ! "" " h "" B  " ^" " "# $@# ^h# ^# ($0$8$ @$ P$ `$p$ 4$$$$$ $ >%@% X%`% h% ,x%% %%%% %% % j%h& x&W---------------------------------------------------------------------------------------T( Module : cls_LayerKey : Class Module DateTime : 8/3/2005 21:11B Author : Richard L BinningO Purpose : To allow for automated copying and upgrading of LayerKey StandardsW---------------------------------------------------------------------------------------`]@]@]@]@]@ ]@H ]@p ]@ ]@ ]@ @W--------------------------------------------------------------------------------------- Sub : Class_Initialize DateTime : 8/3/2005 21:08 Author : Richard L BinningW Purpose : Initialize the class, by getting aecapplication, aecbasedoc and collection of aecdocumentsW---------------------------------------------------------------------------------------@ .. !d B@b !j. !X. !.|Error .!0 ( .!2<) in procedure Class_Initialize of Class Module cls_LayerKeyA@,oH]]]](]-HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R@]*\Dialogs\ADT_DEFAULTFNAME\InitialDirectoryX "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.2\ACAD-4004:409\Profiles\Architectural Desktop - Imperial\Dialogs\ADT_DEFAULTFNAME\InitialDirectory" 5!!d! % 'W--5!!'q0  \Curver7 \Profiles\'  \ \  ' 7'--q8m0pW--------------------------------------------------------------------------------------- Property : Documenticha DateTime : 8/3/2005 21:09 Author : Richard L Binningrm uE Purpose : Return an AECBaseDocument object for direct manipulationW--------------------------------------------------------------------------------------- .{xpError .!0 ( .!24) in procedure Document of Class Module cls_LayerKeyA@,mW--------------------------------------------------------------------------------------- Sub : Class_Terminate DateTime : 8/3/2005 21:09 Author : Richard L Binning5 Purpose : Call the Clean up for the class and exitW---------------------------------------------------------------------------------------xA@h|`XError .!0 ( .!2;) in procedure Class_Terminate of Class Module cls_LayerKeyA@,o W--------------------------------------------------------------------------------------- Function : Cleanup DateTime : 8/3/2005 21:09 Author : Richard L Binning* Purpose : empty out the reserved memoryW---------------------------------------------------------------------------------------h...Hz@8Error .!0 ( .!23) in procedure Cleanup of Class Module cls_LayerKeyA@,iW--------------------------------------------------------------------------------------- Property : LayerKeysInStyle DateTime : 8/3/2005 21:10 Author : Richard L BinningS Purpose : Return a dictionary containing all the keys contained in the submittedR layerkeystyle. The scripting dictionary allows for easy verification.W---------------------------------------------------------------------------------------  .FdWith New WshShell I.Popup "Accessing Layer Standards in 3 seconds.", 3, "RLB LayerKey Tools"End With]]0 $.simple check for valid style,. .Error Getting Style LPlease Reselect Layer Key RLB LayerKey ToolsA@, .B@k8  !p  !7 ! C@kq  .Fk{Error .!0 ( .!2<) in procedure LayerKeysInStyle of Class Module cls_LayerKeyA@,m PW--------------------------------------------------------------------------------------- Function : OpenDoc DateTime : 8/3/2005 21:10 Author : Richard L Binning[ Purpose : If the chosen drawing is not already open, open from the aecbaseapps documents collection.W---------------------------------------------------------------------------------------]H @ Gzj   !%.  p%   pB@k .'8z  Just pass it back out .!0 .!0 .! .!2 .B@kP H z@ 8 Error .!0 ( .!23) in procedure OpenDoc of Class Module cls_LayerKeyA@,i W--------------------------------------------------------------------------------------- Function : Initialize DateTime : 8/3/2005 21:10 Author : Richard L Binning Purpose :W---------------------------------------------------------------------------------------h !l.,. B@    !7 ! !C@kq zError .!0 ( .!26) in procedure Initialize of Class Module cls_LayerKeyA@,iHpW--------------------------------------------------------------------------------------- Function : KeyStyles DateTime : 8/3/2005 21:10 Author : Richard L Binning Purpose :W--------------------------------------------------------------------------------------- .:zError .!0 ( .!25) in procedure KeyStyles of Class Module cls_LayerKeyA@,iPW--------------------------------------------------------------------------------------- Function : GetKeyStyles DateTime : 8/3/2005 21:10 Author : Richard L Binning Purpose :W---------------------------------------------------------------------------------------]P !l.,. B@  - Simple way to avoid duplicates in collectionh  ! B@H  !78save names for search, add handle for retrieve from item ! !C@kq  ! .d.kxpzh`Error .!0 ( .!28) in procedure GetKeyStyles of Class Module cls_LayerKeyA@,iW--------------------------------------------------------------------------------------- Function : GetKeyStyleFromName DateTime : 7/27/2005 12:46 Author : Richard L Binning Purpose :W---------------------------------------------------------------------------------------p !l.   !  .y@k8  zError .!0 ( .!2?) in procedure GetKeyStyleFromName of Class Module cls_LayerKeyA@,iW--------------------------------------------------------------------------------------- Function : LayerKeys DateTime : 8/3/2005 21:11 Author : Richard L BinningS Purpose : Pass in a KeyStyle object and get the set of Layerkeys as a collectionY of names (strings) in return. This is the function that is available to theY calling routine from outside the class itself. It calls the private function below.W--------------------------------------------------------------------------------------- $.zError .!0 ( .!25) in procedure LayerKeys of Class Module cls_LayerKeyA@,ipW--------------------------------------------------------------------------------------- Function : GetLayerKeys DateTime : 8/3/2005 21:11 Author : Richard L BinningX Purpose : Pass in a layerkeystyle object and receive the collection of its key names.W---------------------------------------------------------------------------------------]0 !p.,. B@  - Simple way to avoid duplicates in collection@  ! B@   !78save names for search, add object for retrieve from item ! C@kq % Return list of Keys in this KeyStyle ! .d0.k zError .!0 ( .!28) in procedure GetLayerKeys of Class Module cls_LayerKeyA@,iGAttribute VB_Name = "cls_LayerKey" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacFalse dCreatablPredeclaIdCExposeTemplate DerivCu@stomiz E'-S ' Modu{ : ClasseD_Ti؀ 8/3/2005 21:11Au0thor#Richard L BinningPurBTo allow f au<d copy@ and @upgradAof  Sts@?ER Op tion tlicit P@m( m_objAECAApp As AecXUI.a9SDB Wab@ ocSDocumen) )E()Z (E` ?E4 @j% StyN'M V  Idic5CScri;n g.DicA4aryj SSub e_Initialize()?TO- a:!t08tt0 the, by gettu ecapp], haec!Xd`Uaxcolle,Aae`z`BW`6#1) OyrrGo5_Ea#}Set}= New}} mƓp"M./ Th@isDraw-.Ow l.A 0vnek M = . s@ f)+/0Exit!,!: Ms@gBox " " & .Number" (15Des=[& ") in procedure2 (%pLE0h@6aPubp Property G!MStdFolHder()1SS trDim strAcf1RelVERCurV 0T9Const lsfRoot"HKEY_CURRENT_USER\Softw\@odeskCAD\RГ!FLimbA\DPMogs\ADT_DEFAULT@FNAME\$BDdir>or' 16.2\A0-4004 :409\Aile0rchit ural Pktop - Imp With6 = VBA.Left$(.ferencesof 9.sP, 4_q=  93' CWshShellcT RegRead(&' 0\verP1?6\6T6a&'A#W 2. AD7A8vo8 F7``aA: axy09xReturn ħ] -dB8 manipu( B]e u ~f(b pbY ObcObOb!-LbF a)STermi~n Ï-wF ''q?:n ڀCClean&&e }`o -3 ' On Error GoTo Class_Terminate_4 R8ean,up p0"Exit Sub"J:< MsgBox "{" &.Number " (Description) in pro@cedure of Module cls_LayerKey" EndOPublic Func-Cln()o,7:T' DTime : 8/3/2005 21:09AuthЀ: Richard L BinningPurp os@empty out the reserved memory 6R@͓8ˑSet m_objAECBaseDoc = NXoth39 B]App"}é(ΧB %@PropersGLsInStyle(ByVal@ strNa GA s Str () Acfng.Di[a?: ? f\: -5\12' ?\(\Retur n a dF c ontaia allB_keys`bsubmipttedAMelǡaa+. Tg ng) ows freasy verifica. &?0 UZ-mIf!km%mÀ s Isn!>n "!!o- km_CElse''With New WshShellgA '.Popup "Acce ss UE Stand`sA3 se9ds.", 3, "RLBJ ToolsB'G Dimx o_daaAAecLaGa"H = q Fromo(p!simpaheckFvalid vw &ResuyNextk/,SR|pu;w tB!wvbCrLfv_75"P0r`f eleuXzL@'Just p` bakspU0<> 0lSRai bw,SourceHDsMM LOOrL?KI KInpze(IO3-- ' Function : Initialize`Date Time d8/3/2005 21:10:Author : Richard L Binning@Purposz< :IY On ErrPGoTo_  $ Set m_objAECKeyStyles = BaseDoc.Layer#dicNew Script{.Diary m_.Rem@oveAllFYEachKb sw Wit.If Not .Exists(|.Name) Then .AddB ,HandlEnd If-CNexbir0tF xCMsgBoxD "" &.@Number" (Desm& ") in procedureȐ of Class Module cls_8" A6с&Pu0blic() As Coll>eBŕ@: ' z_|;?9KAzFyGet1G_J ?Jrr?J.J Jd7Jriv`':)J1?!J,JJ;J DimbL!sAsGIoP??gD= ?j?$<' Simp`Nway to avoid dup@MP(saRc8LP"66ResuP!^#Y exef'O 0B>5P_%e/O/`66r66v6Us#RefFM#"+q76 q1::: PapaW ph get tphe sp`Bkeys a E{@on ' of names (strings) in return. This the function that(available to(e call routiBnrom s id2Qclas^tself. (It 1sJ p`rivatt [below.-S , On Error GoTo LayerKeys_  Set = (Get(Style)(0 Exit F 4: MsgBox "I" &N.Number" ( Descrip& "procedu,reH+CaModurcls_E@" End &P e+ :ByRef m_objAECE> As AecECCCol|le”?r@0 :+DTime 8/3/2005 21:11AAuth~: Richard L BinnPurpos @Pn a lk} C9 a@Rreceiv? `its~ @ ŀcVDim@List1New i2_=O`>=@?sa-A.afm_dicE !SVng.DbiCaryc.RemoveAl lF@5EachP In,s ' Simp^wayavoid duplic@Cn cTaCaxResuGNxext +.(Add,.N@1Wit&AIf Not .sts(+2 )`e X'saScf)search, a$X rie fitem ! 0B+!Ifg?#+&' R lX iBO`~tA׀c#*3Count > 0?l"aSI] Y Els %(P1h„ab0F `` (]tK3:N  `0 `/05 ` ? `5ILr`5Ic<krpk`5IL(%` `1\5 0k`5I!r@` `#0T/05 0-l\*F r@``1\6  rdIC\l\C<06 #0*#*#*#T204 #0*#*#*#T20 J *#0*#T<204 #0*#*#*#T$20" $J(l\*#0*#T,20 T0 84 q. xx^q<x lRx(" J"  #0 1T/0prlTJz2C00TrM@>F t (/05 =C00T'>F 4! 4 /046 _t krprt ,lpp6" J"  #0 #J20r" J"  #0 14! 4 li>F t! t 20)4t6 _t>4! 4 li t! t )4t5 4! 4 404! 4 >01<4A04! 4 t lt=ppl0/0)4tp c=t  x xi0@I p \ L P t D %H ` x !< %T T04tp `@ !h-p&$' 0(lp=)tppt |*lp=+lp`l x,>`1x c=+l c=)t/ h4xhlt`pl Ct/hl5$6 ,(l (Qh[dpl` ?\p >\FL< 7<tM,@ 736L< p 8 pz` p` 7/ p4d`pt(\lhL<  l CxJlxkJp^ k^V8 '':(8::.N^#iL6 8L(]3 $+Jlx ,%c $|+Jlx| ,%c|JlxkJPW8 '':(8:@/lx*#x0*F #/x6 8 $tpt 4%Qpdct ldc"(hld $1llihL8hd 182`588x`$3 X4h((8>xFH 6 h~Lo 0 L4 |t\Ld`xLh,xp80 0  0   d)tx! x ltJ/tx^)tx! x ltJ/tx\-ntx! x ltkn/tx $h1dtx! x lth (%Qd8/txch 9`nH ':8H(:(:;*#t<*#\;*#X=*#` (>2t\X6 H(c`x x ?xd0h`p8 t\XxdH()tx! x ltJ/tx)tx! x ltJ/tx-ntx! x ltkn/tx $h1dtx! x lth (%Qd@/txch 9`nH ':8H(:(:;*#t<*#\;*#X=*#` (>2t\X6 H(c`|@j8%,  8Ax x ?x0h`p8 t\XxdH(  t_t'04! 4 l00/04:  :::::p `:P@:0 ::`1x6 `@  q L $ d l lxT 0>0F `` (]tK3:N  `0 `/05 ` ? `5ILr`5Ic<krpk`5IL(%` `1\5 0k`5I!r@` `#0T/05 0-l\*F r@``1\6  rdIC\l\C<06 #0*#*#*#T204 #0*#*#*#T20 J *#0*#T<204 #0*#*#*#T$20" $J(l\*#0*#T,20 T0 84 q. xx^q<x lRx(" J"  #0 1T/0prlTJz2C00TrM@>F t (/05 =C00T'>F 4! 4 /046 _t krprt ,lpp6" J"  #0 #J20r" J"  #0 14! 4 li>F t! t 20)4t6 _t>4! 4 li t! t )4t5 4! 4 404! 4 >01<4A04! 4 t lt=ppl0/0)4tp c=t  x xi0@I \ L P t D H ` x < T T04tp `@ !,t >t1xlxJ.'@t >tF`p! p p6`@+'@:PN``p! p p6`@.'@t >tF`p! p p6`@+'@:PN``p! p p6`@&N'` '':P`@:0! @:"N #6 `@ ,(x,tp`@ 0  l- qt ltRatMd@ - 1x" JiTlt - ' 5T/(l(xT\, [@jl%$ , ,$( T"X <Tl l5ILjl5Ic@/8<5$6 ,(< (Q8[4d<0  D3d >FTj@l }6T qd k'%f %d < o\d '': DN  E;*#l*#F*FT^#iD26T D ]3X'%c %d < m'%f %d <  d0 h jd@9 8 40dlD0 <8T  BH"8X <HlD$ D LCD l5ILZl5Ic@! v@<,&Z@lH(< 0-(k&5H  vB ,&Z@lH( 0-(k&5H0Z@lH(q XM@l  (-(5H kXpXc c< Zd@^H"BX <H\ \5ILZ\5IcAZ@\H(q ZM@l D$ D HC-(D5H ZdXt4< l\(DHp0- $plp %>l1xcp/ 00xptl`4@h D 8   88W @p ` @P 0@ @0 ` @  @  5y;;<stxuKyNF0aW>?IFG -OJڝFpJ8RFȉ x ----`FpJ8RFȉuKyNF0aWME8<@DHL(,0SPSSS<< @ F"PLL "L:*LP LPLPLPLPLLLLLL<<<<<<<<0{E8BB6988-42E2-46FC-B4A5-78DA0CB4C4D2}{2DCB0DC8-ECAF-4A4F-9CCB-C6DA9DE2C1CF}h/ 4` QQ`6`8 :x% >21:4% Bicha% D% H% L(W-- % PH----% Rh----% Tx %`V ---- X----$% \----(% `pkY`x tXicha0%`6rse `pcomm`(` rm u``\copy`X `T one`@P`L----`H----`D----`xB-`<X`8 ,``+ i x t(B@b4% lH Sou8%`h!h`6f:!,f `" k  i keysi  :! pd <% 0` Lk`""i Copy)#s...@%@&h )dD% -`%`.^ 6@0L ,<` p i % !4% !8%``6!,@` @i B@ xUpda4%  8%``6 B0`$k) )p(D% P`H: )pD% ZX `pk N`x t 0%`6r`p`` ` \`X`T`P` L`H`D` B`<`8 \ `k `^x,b` `  Id  i `f`h, `Tk  ij  il i `t nX `\k  r@ `,k it  iv`xl `6j { d <%@0D T `P*k@l @\ `6Z`8X,``xl+  6i tX%`% %X ` @ 0 0X  PP%(P%P8 hX@pph\@4 le@X0 \s@ pr@ s\@ on@ ra@ t @ c:@0 il@H 6\@` \p@x es@ su@p r;@` ts@P ng@@ s\@0 n @  es@8 \e@P c:@ il@ l '`:\Al%pile@ b(s@ m .\tr@  ck8.ms;@ lmH /p;c7\da@p ra@ t @ ogx ad%Vv@t n@p P @ h 8  ( (Xpr@X4 @0 @0 @H @` @x @ @ @ @ @ @ @  @8p @P` @hP @@ @0 @ @ @ @ @ (`Al%p@ @ X-@ -@ .H6@ @ @ x@ %(U@t @t@p X@p(V@pl @\ @Xp(`hr,@t @p @` @P @@ @0 @ @ @0 @H @` @ @ 0@h0Hh` ``xX0p`H%h@l hP0hhh `PxhP @p @`  h`x@d @T !! 0 "8!("`xX!f2,4@h!J @H 8 @` ( @x  L@  @ s@ @ @ @! @ ! @ @ !P!`H%!8! @ !|!`H%!!@x t!`H%@"!@p @l Dd@P"\ h"("@L x"P"P"@#x#8$#P$$#@##X#hf `f(#z h#@##(#`t$x#d@#l @h |@$d 6($#@`O $$@\ @h$L @$< @, @$ @ $%%&&%p'%x%%nhfDLr@&x @P&t tm@n  &h%` NH%@&%@d `8&`L% & @h&\ @&X @&H @&8 @&( @' @(' @ @@' @X' @ @ @ 8*(/ fRLTV(`x )t @n h(`(()0d `(`) /H\ @X @H @8 )( @ )( / @ * @ / @ (( + ++++H,+8+*P+D(R@H @D @`+B sx+8+ si@p,@ +`+,<+`% ,+ @0,, @( @&  ,`%`,, @ @  ,`+@,  ,p,@ ,,, ( .--p.. .-p--pd4L2,~@.T @-B --@@ 8.-@.< @8 @H.4 `. .@0O x/H.@. @/ @. @H/ @ el@0/ @/ @ @`/ @ @ /H.-`` X(|NYD*\R4*#63$*\Rffff*0844aa62d6$*\Rffff*0:44aa62d6*\R6*#1f*\R7*#ae*\R3*#6*\R8*#e*\R9*#8f*\R1*#16c*\R0*#1c$*\Rffff*0944aa62d6*\R5*#2a*\R3*#5*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#f*\R0*#e(*\Rffff*0:44aa62d6\0$*\Rffff*0744aa62d6*\R1*#135*\R0*#9*\R0*#13(*\Rffff*0:44aa62d6\0*\R3*#5*\R4*#46$*\Rffff*0<44aa62d6*\R0*#1*\R0*#14*\R8*#d*\R1*#137*\R8*#1*\R1*#6b*\R9*#60*\R7*#5a*\R0*#2*\R0*#1b*\R0*#1b*\R7*#32*\R7*#8*\R4*#46*\R1*#151*\R5*#1*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R4*#28*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4548<@DHLPTX\`dhlp= ^ $` " $ D ^  "  ^ " " $@ \h : ^ hpx    (0X`x (( @PX h2x   0H X x           (08 H Xhzp   hp "x         ( 0 8 @ ` " $  ' 0 0     00  ` "h  0 0    30  P  `    $   $!   $-       ( 0 8  6H h 04p    " "( 4@ 0x 4 .  ( @ X (xF     . 0 $H((p , , , ,( Xx 2=  8     .60 Dr`   >     4  $XA   B ( ( 8 @HB PX/`?x    "   <4<8<<<N0{8rU x`)%p0 !1AYq",%$p(&Dp@Q'hp1AQa4< (pq4,(p(i)p(A*p8*p q4( ,(p(h!0(Ah!9((h%Y((h)Y($`8$A`-$`1,`5y(a$$n<$#Comparison View (Layer Keys missing from Target)R KQDBTahoma,$$'`ListBox1 shh ,ld*#\*FL 2 pl`d\)xh60   0   0 @   0   0   0 @   0      l ##n`rU P, p4, (p40 Pp 1Y!nrU~| p @rU h$`< (Ah0,h!=$`@(`%/0Ah )=0` - ##(`1#,`5=,A `D=0 `H9=Q8 `9q=Q=8  `L=Q= nrU |$`$A`(`0,`#0`1=(A`0(`0$`$`$A `$ `, `I/00  ` i000$I ` ,`$&&$`( ` 0n %rU D$Y `@|4n!03rU @ qAa   8) Q X / o K$K~'' ',t xx lt#p*#l*#`d hh ,ld*#\*FL 2 pl`d\)xh6L, $ 8 pld`\xhL,  4 M\)xt6L, P$( 8DG sZ#@N0+NCXITu!= &$=Bx,x$=Bx,N0+NCXITMER    3 !"#$%&'()*+,-./012<756U89:;=>?@ABCDEFG|RV  x        tWhp x  "  8  B  08@H XhpxB  6  $ HPX "`)h)  - 1   n   "))  -  018P X  `nh 0 8 @ X hx "    (08@HP X x " $ ' 0H   ( 0H x "  0 0 083H h x $ $! $-     ( 8 @ H P  6`  04    " "!@! 4X! 0! 4!! .!  " @" X" p" ("F " #  # . # 00# $`#((# ,# ,# ,$ ,@$ p$$$ 2$=$ $ 8$ % 0% 8% .6H% Drx%  % >% % % && & &(& 0& 48& $p&A&& & & 8& ' "''' '.0'+@'.X'+h''^N''' B  ' .(0(8(@(H(X(`(h((((( B( (( .( ,()X) `)  x) )") ) ) ") ))) " ****  *0* 8*/X*p*3x* * * *V\* +  +0+ 8+H+ P+X+ `+ p++ "+++++ + ++ + , ,, ,,(,0@, X,h,p, x,, , , ,A, ,, B-- -- -(- 8-W---------------------------------------------------------------------------------------T Module : UserForm1 : Formx DateTime : 8/3/2005 21:465 21:4 Author : Richard L Binning Bin> Purpose : Provide Graphic Interface for layerkey operationsd roW-----------------------------------------------------------------------------------------xW----------------------------------------------------------------------------------------- Sub : cmdCopySelected_Click DateTime : 8/3/2005 21:47 Author : Richard L BinningU Purpose : This is the main command button on the Form used to complete the copying3 of layerkeys from one style to anotherW---------------------------------------------------------------------------------------]@]X]p]]]]]]0]P]p]]]connect to the aecbase app`.: !d :B@b"connect to the Source doc and keys'V !h!dA@f :!j.> !n!d >%l    $SLSS6""L<(<,<0<4<8<<<N0{8E75D913-3D21-11D2-85C4-080009A0C626} 0 % $`kX%j"4| @ %(.,@ x @t @p @8l @h @Pd @h` @\ @L @< @, @ @ @ @ XXD| NYD$*\Rffff*0744aa62d6$*\Rffff*0844aa62d6*\R0*#13*\R0*#19*\R0*#148 ^ .` " $ F ^( " ^  " $8 >` ^     ( 0 h~8 W---------------------------------------------------------------------------------------T' Module : ThisDrawing : VBA Document  DateTime : 8/3/2005 21:41 Author : Richard L Binning@ Purpose : Launching Class - Call showformnew to load routine.W---------------------------------------------------------------------------------------] W--------------------------------------------------------------------------------------- Sub : showformnew DateTime : 8/3/2005 21:46 Author : Richard L Binning7 Purpose : This is the calling routine used by vbarunW---------------------------------------------------------------------------------------& (B@*|&Error .!0 ( .!26) in procedure showformnew of VBA Document ThisDrawingA@,oXPnAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2'-S ' Moduy  : VBA DocumentD^Tiր 8/3/2005@ 21:41A`uthor#Richard L` BinnP ur4Launch Class - Call showformnew to load routine.?AR Public blnSafetycheck As Boolean Sub)()%5@ : b6A*bA| is the Nc`dD\ uby vbaru@'S: BOn Err`HGoT:oi_0 UserFD1.SEk0 Exi^t(A(K : MsgBox "C" &.Number" (eDescription) in procedure ofLJgj`EndVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Binning's Layer Key Harvester" ClientHeight = 8700 ClientLeft = 45 ClientTop = 435 ClientWidth = 7080 StartUpPosition = 1 'CenterOwner TypeInfoVer = 72 End < Microsoft Forms 2.0 FormEmbedded Object9q D,.Copy Selected Keys into Target Layer Key Style uTahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8FF0_$Enable OverRides5TahomaKQDBTahoma0$(HH  -}.LayerKeyStyl$  -H}0;$#Frame1$#Frame2 $%#Frame3n,(dcmdCopySelected%4$+#Frame4 `h 8`e OptionseR KQDBTahoma0$( ,XCheckBox1erR$ 08,xt @p  h @X @H X`|@ +ms( XXD|  ^ .` " $ F ^( "  ^  " $8 >` ^     ( 0 h~8 W---------------------------------------------------------------------------------------T' Module : ThisDrawing : VBA Document( DateTime : 8/3/2005 21:41F Author : Richard L Binning3 @ Purpose : Launching Class - Call showformnew to load routine.W---------------------------------------------------------------------------------------] W--------------------------------------------------------------------------------------- Sub : showformnew DateTime : 8/3/2005 21:46 Author : Richard L Binning7 Purpose : This is the calling routine used by vbarunW---------------------------------------------------------------------------------------& (B@*|&Error .!0 ( .!26) in procedure showformnew of VBA Document ThisDrawingA@,oXP0nAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2'-S ' Moduy  : VBA DocumentD^Tiր 8/3/2005@ 21:41A`uthor#Richard L` BinnP ur4Launch Class - Call showformnew to load routine.q.D D!p.H"connect to the Target doc and keys !r!dA@f :!j.B !t!d B%l.P !v!x P(zk P!p.R,.|Copying ! Layer Keys... |( ! |( |( |( |B@A@ |B@ 6 ! 6 % 8 '8 6 %$H.L 6 % R%.T T L!9 L!292 L!$9 L!9 L!9 L!9 L!9q.L.Tk 6 |B@ 6 |B@.|Updated !t!d with  8 new Layer Keys! Binning$s LayerKey ToolsA@,|`Error .!0 ( .!26) in procedure cmdCopySelected_Click of Form UserForm1A@,oused in call setup](]@]`]x]]0.used after call]]]]] ]8]P]h]]This keeps the code fromBecoming recursive when itSet the Index to a new item(This will fir the click eventAgain)  h!dBrowse )create a string of filters for the dialogBinning$s Layer Key Tools *.dwg  DWG Files *.dwg  ' size of the OFN structure 9window owning the dialog !90 Form1.hWnd)filters (patterns) for the dropdown combo 9index to the initial filter9)default filename, plus additional padding*for the user's final selection(s). Must bedouble-null terminated '  \ $' $ 6   6 KT$' KT 6$9S0 \ 6$'n 6dc:\'kk '55$   9dAecLayerStd.dwg$   9kXthe size of the buffer59default extension applied tofile if it has no extentiondwg  9.space for the file title if a single selection*made, double-null terminated, and its size $   9 !9'starting folder, double-null terminateddevnote update here   9the dialog titleRLB Layer Key Tools9"default open flags and multiselect 9.0Or OFN_ALLOWMULTISELECTq call the API $)remove trailing pair of terminating nullsand trim returned file string ! ! $ $ '&show the members of the returned sFile&string in the listbox. If multiselect,%the first member is the path, and the%remaining members are the files underthat path selected.'6  b  $ 6 B@  $ hB@'2List1.AddItem StripDelimitedItem(buff, vbNullChar) 6 '6 !' ! ! $ $   ! ! $ $  h! hB@' h! h(d(  h(dk d h!d'k k d .After choosing the layer key standards drawingfill the available layer keys h!d !nA@k` X .oH ] !j."Set o_ADTBASEDB = oADTDoc.Database]0]P]h !.  !'. .i ]  d! !$ $ B@ 'fyH k@ i(  ]]]]] $f'. .Open Read Only? 2Binning$s LayerKeys Tools$,'0 0 4H C@8qX dP H C@8q0 k( k $f Error Opening: Please try again! Binning$s LayerKeys ToolsA@,| k H5:.(qh ( & (! &$(., ,! & "B@ &ko0] !j.]]] !.  !>'<. .i]` !j.]]] !. / MsgBox "finish getlayerkeydefault function" MsgBox oADTDoc.pGetLayerKeyDefault = oADTPref.. .i n!d h!d ] h!d$fH n!d7F.Dq(k L $Layer Standard 1 Selection Complete. LPlease Select Layer Standard 2 L$AutoClosing this message (3 seconds)Binning$s LayerKeys ToolsC@JqH !rB@Nk0k(o 0 t!d r!d ]p r!d$fH t!d7F.RqkL $Layer Standard 1 Selection Complete. LPlease Select Layer Standard 2 L$AutoClosing this message (3 seconds)Binning$s LayerKeys ToolsC@JqA@T|@ (V B@X !B@Nkkxopused in call setup]]] ] ]8 ]P 0.used after call]h ] ] ] ] ] ] ] ]( ]@ This keeps the code fromBecoming recursive when itSet the Index to a new item(This will fir the click eventAgain)  r!dBrowse )create a string of filters for the dialogBinning$s LayerKeys Tools *.dwg  DWG Files *.dwg  ' size of the OFN structure 9window owning the dialog !90 Form1.hWnd)filters (patterns) for the dropdown combo 9index to the initial filter9)default filename, plus additional padding*for the user's final selection(s). Must bedouble-null terminated '  \ $' $ 6   6 KT$' KT 6$9S \ 6$'n 6dc:\'kk '55$   9dxAecLayerStd.dwg$   9k@the size of the buffer59default extension applied tofile if it has no extentiondwg  9.space for the file title if a single selection*made, double-null terminated, and its size $   9 !9'starting folder, double-null terminateddevnote update here   9the dialog titleRLB Layer Key Tools9"default open flags and multiselect 9.0Or OFN_ALLOWMULTISELECTq call the API $)remove trailing pair of terminating nullsand trim returned file string ! ! $ $ '&show the members of the returned sFile&string in the listbox. If multiselect,%the first member is the path, and the%remaining members are the files underthat path selected.'6  b  $ 6 B@  $ rB@'2List1.AddItem StripDelimitedItem(buff, vbNullChar) 6 '6 !' ! ! $ $   ! ! $ $  r! rB@' r! r(d  r(dkd r!d'kkd.After choosing the layer key standards drawingfill the available layer keys r!d !tA@kH@.1MsgBox "RLB Layer Compare Exiting", vbInformationoX ] `'^ ^ ` hB@Browse hB@ ` rB@Browse rB@dx!Problem Retrieving Active Profile Binning'$s Layer Key ToolA@,ko (this returns just the file name, no path]0 ]H d'b d\'f fb f'h h d\'fp h G d h $ ' bji@$` !take a string separated by nulls,(split off 1 item, and shorten the string&so the next item is ready for removal.]  j l'  j $ ' j  j$ 'jk@i8 0.p[@ ((VoX ] ] ] p!p'x]( 6 x x z d! 4'0 z! 6$x z!| zB@BdH Save Drawing: L z!? 2RLB LayerKey Tools$,'0 0 ~ zB@Bd zB@Bkkk z 6ox@ ] ] ] ] 0. D!p' (!B@ 6   R 6$7  6$7 6$ 8C@ 8 '8kqkqx 6 !p' 6   6$ 6 (!B@ 6o ]@H5'`qiAttribute VB_Name = "UserForm1" " Bas0{E8BB6988-42E2-46FC-B4A5-78DA0CB4C4D2}{2DCB0DC8-ECAF-4A4F-9CCB-C6DA9DE2C1CF} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD'-S ' Moduz : ԗ؁DYTi 8/3/2005 21:46AuthorRichard L BinninbgPurAEProvide Graphic Interfdflayerkey operati8ons?>R Op mlicit P@f@; Sub cmdCopySelected_C@ xk()$4@:7b7AbThis the main com mand ton  utopleAcGxAof 8s from `e sty@L@anor : Dim i AsLge@ko_abAppaAec`>QG DocSxour@ `u8menH $Ta0rget 1LKS!$ LaKey" LsRek RCOREnd#Booleannver'Or`SettO  s'connz @RYaec"bAappOn Err`GoT{^Q_! >!H= New H.Init pDraw .MÍ9doc u o_a=)= AActiv`_IfOpen (Me.ComboBox1.Tex^t@)S =%.}e W# W#.$s41 e-.1/!m&o6ab  V"5If heckValu{!e0Q:.-0sE4iE\If eys bjzbarp,gressBadTo.CactPr, " &` List Count@" ! ...pr 8Max- 1 wBackCDol := 0F(ill2Show WindowDoEv\55 V MorPosx (1$3q f @Bo f a&E(i) k`k +e1(:x3(J  !p.Add?5WithAQCa?.I C.DescriU$*#6UC[(r& Linetyp!6 to.!weightNo.Plot:DКȎK>[" N0:Sf!~ E81iNe i@troye)8 7ZMsg`ApdldbFlcURFw!*QHknxG!", vbInf貝, "!Chr(180:)sJJ>olsK ہGEx|Gpick: c.Numb& (5H0 A ) proc`edurea P yƀ_@Change!  r'all` setuӑsw0V۲S p!Dڶim oFilesDic As Scripting.tionary DiInteg$erPntCnt 2r Split(, "\", -1, vb~pareO IsArrtay)M iALBoundo U2' dS3 Case i[!3x= +)(0t&_e"?).5e;iNEls+&A#W?QE`GEN1g U U"c:\"OAIf Pa=Iu}"s`V& Space$(1024ozn/h oF"Aec"FStdswu`'q\yo!L.nMaxAxAn /,Pj]p!enspX appLp$toO 'pke if@ has 8no _ .sDefE߄&pQ 'saqtr0a s`0Fd 'ma0de, cc, aitsz;~ Iɑ512$v B_Psta>r̀!l tte#pvno upd he!o > D8H+ '%B*3 DpogE"RL&B '*opa`flagmM i3 _ .= OFS_FILE_OPEN_FLAGS 'Or _ALLOWMULTISELECTMM5 ,'abAPIO 1'b 'remo trail`0ser‘1ђso}@!Q/0m0n>5XP Prim$(Leflt$ S+,)` - 2)_,?AR Public blnSafetycheck As Boolean Sub)()%5@ : b6A*bA| is the Nc`dD\ uby vbaru@'S: BOn Err`HGoT:oi_0 UserFD1.SEk0 Exi^t(A(K : MsgBox "C" &.Number" (eDescription) in procedure ofLJgj`EndEk0 Exi^t(A(K : MsgBox "C" &.NumVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Binning's Layer Key Harvester" ClientHeight = 8655 ClientLeft = 45 ClientozCompObjxp__SRP_5!CommonDialogMod )^J__SRP_6V__SRP_7 $(ProgressBarBt3__SRP_8s__SRP_9#atVBA_Project_Version(jLayerKeysModCA__SRP_c(AJTop = 435 ClientWidth = 7065 StartUpPosition = 1 'CenterOwner TypeInfoVer = 72 End  st Microsoft Forms 2.0 FormEmbedded Object9q lpszLongPath lpszSD,.Copy Selected Keys into Target Layer Key Style uTahomaindowNamedwStyle$  -H}0;$#Frame1$#Frame2 $%#Frame3n,(dcmdCopySelected%4$+#Frame4 rushdwMillisecondsstrCapMaxCounte OptionsR KQDBTahoma0 ( ,XCheckBox1erR$ sNameRO a-LKName y.KeyStylem_objAECKeyStyle Y8 9 I; > I XAH,B,5Tahoma4("Select Layer Standard Drawing File s5TahomaAH,B,5TahomaTahomaAH,B,5TahoHH  !} Target Layer StandardR KQDBTahoma ( 8ComboBox5me.(2TLabel5Kb( 8ComboBox6me. sb( 8ComboBox6me.  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q2.0 FrameEma! ,,Z#5Tahoma 5Tahoma`H  '0}.&Comparison View (Layer Keys missing from Target)R KQDBTahoma,y $'`ListBox1 s,$'`ListBox1 acadBarCommonDialogModCommonDialogModLayerKey UWD6*\R7*#af$*\Rffff*;h4457e8e686 "    3(oFDic.Add StripDelimi!CItem), vbNullCh@ar), i%ComboBox1%"'%blnCodeyTrue'ListA6i +WLoo"pintRCnt-UCount IfjTrim$(Left$(OFN.sA,) - 2))t0 ThenO\(, _UV-_̜f#Ix@Bb2"Els|qGTexWãnfg@IfGstrP%H *E' 'Aft`choos}alay@key st ards dXrawC '`lavailabhle sc@lL Keystya, Me.E4 clean_Exit: Set fPNoth aSub Public Function Get!sFol@() Asbxe,Dim oADTDocAAecArchBase ume'\= ApJp a .Av '"_@BASEDB .Da8tab C%%PrefMAerence+amsg GiInt\eg%E =. l&.b)zC, 2e+= F!535rivate5"( _IfOpByValP`rName8BooC'acd8cad7For Each cIn> 6e* UCe`3(.F@A)!noCEa a  ] '&eNB ^)5 a o(qng , ByR 'cblox8)$varITcol;<l}6myLKS>New2#@rWretval7a6H"&  CpMsg }("q& Read Only?"YesNo, "Binя" & Chr(180")"s s TP(s"60]oOn With cls_ ;5. )/, |Fa~d! b r))t /(3 "Err:]<: |w"P?sry ag!Infor~mY//%f @49 1O1= ..dEIs5R"K7 +:1& @sL 7=((*>VF.1M0?bGkQ wdSwEpBwT uwcwe{kOu 1Ou aOu Ouz aSuE3lsAu=Qo00)DefaultU`` h0 uGjgol +'1Ffsh get%Юd f$" %'uw \ vQ5}%6 ֲ_Ck(=E.T7ext) > 0 Then If Len(ComboBox1.TDim colKeys As New Collecti.oTA,vate_IfOpƇ 4WithYcls_Layern&Set dicL1 = ..sInStyle4#pEnd 8 If KWshShell G.Po pup "C Standard 01 Semplete." & vbCrLf_%'"PleaTse +2"!AutoClosing this message (3 seconds)", 3, "Binn Chr(180)&"sY To0ols"K+PMe.Ŕ6.jFoc[ !BT@$(Left$AV, X) - 2)X'showbmembersŘf" inlistbox.5 (?,aQfirst C is}BpZC @+ain(Ear -a$s unp at Qed.) i )1Do8 Wh)!.) > 3PUoFsDic.Add S;pDelimiItem(A ,h), iS ComboBox6A a ar@blnCodTru'L`:1 wc i +   Lo,opo&tCnAkwCount;o1Po1a1!0= OO6,-Lb P9L"Bu I.x@+R_t? GT @3*ng@Ui@Ai=!7aY#'AfЀ choos>Cl kh`wndards drawM'P@S\avWa݀ FV$l"mm@styles| , Me.5R  clean_Exit: Set V( `h'Msg`: t.pJ0"?In ma 1Sub1Pr iv  UserForm_A5Q(6DbLKFolO As"A#= 0l 20g@"Browse$K7"EProm Re)Uev Be a, "BinqdChr(39"s܎ *FunbW.({I)Ymts8 ju0o,a nM,i xIntegintcNf@>Sqdp'1 x%PIn0y `\"Z6mx!|= 8E0\,> Ig[`%> cU$ Mid$  50{[t{gWQ? t dxrJ1'take ̀ se<9d by. ✂pl off 1em >rpB *"so-nWmqreadyՂal pos Lo=ӓsA= 31aU 3i;')  startStrg = Mid$(, pos + 1, Len\))  End If  FunctionPrivate Sub UserForm_Initia lize(Set dicFilesOpenedNew Scripting.DiPary E1.Height,110.25|hwQueryClose(Cancel As Integer, a Mode ODim varO Variant   iadoc AcadDocume = u .Keysre@tval ijLBound() To U Each >In Applica.B2 41vbNoIf.FullName LHike>(i@ he@u ReadOnly T &.X FalsveAENAF)MsgBox("Save Draw:" & vbCrLf_ABF3& "?", YesNo, "RLB Layer`Wols"{@EK8 9TruL9S:PHNextt iCompar:ee!sr! D_Ma inTCheckaekJd~Miss 9P}`%` L1$gC!GList`E1`MearBi LjIWith!vB2CNot .Exst@eqe + a? p.Addv, k k*kS-LAaP:FH:D":/7FL7Bq@#Ite&5, `cd GeteFolder()!\StrY#o_Aec Base@^cls_ 'N $.StdG,!ilect Layer Standard 2 HAutoClosing this message (3 seconds)ƏYl|pj).` P   h) in procedure Document of Class Module cls_LayerKey &Error Getting Style 2Please Reselect Layer Key x) in procedure LayerKeysInStyle of Class Module cls_LayerKeyvXNPrf饕IB|5Cv6HɅ:(bm^rM;|&˗:MN l) in procedure Initialize of Class Module cls_LayerKey! ~) in procedure GetKeyStyleFromName of Class Module cls_LayerKey j) in procedure LayerKeys of Class Module cls_LayerKey p) in procedure GetLayerKeys of Class Module cls_LayerKey S Y tLldK/ ~'''< 8 tt  l8#d*#L *#04 pp , l4*#,(*FT 2 dL04,)tp6T</ c,lh8 dL40,tpT< -K&tDQtxK/ ~'''( p tt  lp#l*#h *#\` dd , l`*#X)*FH 2 lh\`X)td6H(/ (x8 lh`\XtdH(-K'pX< lp=%[lP)pl[pXp XX D PLhLKRdXL X&''$>dFDLppMT @t$* +lp=Lp6D$K X+dXL X&>dFD 0 k5D29dXL X&XL '>F$>dFD ( 6D$cLhft$* $+lw tV*x c=+xK/ ~'''$  pp  l#d*# *# ll , l*#,*FD 2 d)pl6D$/ 4xht8 dplD$  l Ct-'pX< lp=%[lP)plPLhdXL X&ldlt0/dy LxhLhGK/~'''  ` pp  l`#d*#\ *#TX ll , lX*#P-*F@ 2 d\TXP)pl6@ / 0xht8 d\XTPpl@ -K)tl LQtxK/~'''( p tt  lp#l*#h *#\` dd , l`*#X.*FH 2 lh\`X)td6H(/ (x8 lh`\XtdH( -K$pH llp=/[lH)pl[pTp XT D HDhSKRdXD ,''$>dFDDppMT @t$* +lp=Dp6D$K T+dXD ,>dFD 0 k5D9CdXD ,DppMT @>dFD ( lp=Dp5DcDhct$* $+l~ tV*x c=+xK/~'''$  pp  l#d*# *# ll , l*#0*FD 2 d)pl6D$/ 4xht8 dplD$\\    w !  !7 ! C@kq  .km]8 Gzj 2  !%. 2 % 2  B@kH .'z( Just pass it back out ! ! ! ! B@kiX !v.0.rU xW- -iRRA+-.A.i. ... Q1A/1,i// 0 9aa0 9 q!qQY,'' ,1,+i+212 N5A55 4i667 8,8A99:9:a: q,, RR1RiR4`8I `I<i` @)0 ` `0`QDaYHyLaYPyTaYX)Q \q` ``IhWWW_xK t!P$ lQP[Lt L)FHP P lH/HPPt 0lP= pPJ0HP P >HF4%Lp  L d l0= h)PL054Ph l lP= dP)FHP P lH/HPPt 0lP= lPJ0HP P >HF4%Ll  L d l0= \)PL054P\ l lP= XP D,P! P l,#H*#(*$"X 2H($P0,P! P l,Y "X PY,"X (Y,"X $ "X , Y Y,"X 4.z,P! P l,Pce*FzM @P! P @kFP= kxpxGL'4zM @P! P 8d ( lL=`)PL64ML'4zM @P! P 8HX 0 lL=T/H)PL64 lT,` 8l, <H` dlH h/H4H` 0>HF4 ( 4/(64H` @lH D/H,` \l, `H` HlH L/HF` PkF Tc c=` c=TY kzY,"X 4 zd "X 0 c=rHP P '': N@lH*#(*#$kx#*#*F4 2 H($P64K~''', PP l,#H*#(*#$ LL ,l$*#*F4 2 H($)PL64xL4 `dhlTX\tp< H($PL04 t_d'04! 4 l0!0/04N"#*#0$*#,#*#(%*#$#*# $*##*##*1x20,($ &q L$ dl lxT 0>0F``(]t3:'N`0 (`/05 ` ) `5ILr`5Ickrpk`5IL(%``1\5k`5I!r@``#0T/05-l\'*Fr@``1\6 rdX*C\l\C<+0c6 ,#0*#,#*#(#*#$T20,($4- ,#0*#,#*#(#*#$T20,($ J .#*#0#*#,T<20,4# ,#0*#,#*#(#*#$T$20,($"&$J(l\#*#0#*#,T,20, "T0 84 q.&l/l^0q<l& /lRl/j("&J"& 1#0 21T/0prlTJ?2,#C00TrM@>,Ft (3/05=,#C00T'>,F4! 4 /046 _d krprt ,3lpp6"&J"& 1#0 2#,J20,Hr"&J"& 1#0 21,4! 4 li>,Fh! h 20,)4h6 _d>4! 4 lih! h )4h5e4! 4 404! 4 >01<4A04! 4 h lh=ddl0/0)4hd c=3tx li0(Ŝ \ L P t D H ` x < T @ 0,($ 4hdh-p4$5 0lp=6tppt |7lp=8lp`l x9>`1x c=8l c=6t/ h4xhlt`pl Ct/hl:$; ,l Qh[dpl`?\p >\FL< <tM,@ 36L< p 8pz` p`7/ p4d`pt(\lhL< Dl CxJlxkJp^ k^;'':<N:8=N((^iL6(L8]3 >+Jlx ,?c >+Jlx ,?cJlxkJ<'':8@N@Alx*#B*F( /6( > 4?Qdc ldc"(hd $Clih|(hd C( `5(8`$D XEh(8(>FH 6 h~|o L4 |d`xLh$(h-p4$5 0lp=6tppt |7lp=8lp`l p9>`1x c=8l c=6t/ h4xhlt`pX-p4$5 0lp=6tppt |7lp=8lp c=8l c=6t/ X4xhltpH)tx! x ltJ/txC)tx! x ltJ/txA-ntx! x ltkn/tx >h1dtx! x lth (?QdF/txch G`S':$N(4HI*#tJ*#\I*#XK*#T` (L2t\XT64c`x x MxH0h`p0 t\XTxd4t)tx! x ltJ/txl)tx! x ltJ/txj-ntx! x ltkn/tx >h1dtx! x lth (?QdN/txch G`S':$N(4HI*#tJ*#\I*#XK*#T` (L2t\XT64c`|@jD%,  8Ox x Mx t0h`p0 t\XTxd4 t_d'04! 4 l0!0/04N"#*#0$*#,#*#(%*#$#*# $*##*##*1x20,($ &q L$ dl lxT 0>0F``(]t3:'N`0 (`/05 ` ) `5ILr`5Ickrpk`5IL(%``1\5k`5I!r@``#0T/05-l\'*Fr@``1\6 rdX*C\l\C<+0c6 ,#0*#,#*#(#*#$T20,($4- ,#0*#,#*#(#*#$T20,($ J .#*#0#*#,T<20,4# ,#0*#,#*#(#*#$T$20,($"&$J(l\#*#0#*#,T,20, "T0 84 q.&l/l^0q<l& /lRl/j("&J"& 1#0 21T/0prlTJ?2,#C00TrM@>,Ft (3/05=,#C00T'>,F4! 4 /046 _d krprt ,3lpp6"&J"& 1#0 2#,J20,Hr"&J"& 1#0 21,4! 4 li>,Fh! h 20,)4h6 _(j d>4! 4 lih! h )4h5e4! 4 404! 4 >01<4A04! 4 h lh=ddl0/0)4hd c=3tx li0(Ŝ \ L P t D H ` x < T @ 0,($ 4hd.'Dx>xFdt! t t6dD+'D:T!Nddt! t t6dD.'Dx>xFdt! t t6dD+'D:T!Nddt! t t6dDH$ xtdD-  d1x" T:d'DUpv5Dkvlkvpt$kt T:d'DUpv5D3 kt$'Dkt d@ P 1x/@5D/ <(x@Dl- qt ltRatMd@ P 1x" JiTlt P ' 5T/(l(xT\, Q[@jl%R$S,K4 ,$  T"QX <3Tl l5ILjl5Ic@/8<:$; ,< Q8[4d<0 D3d >FTj@l }6T qd k'%f %d <o\d '': N  TI*#l*#U*FT^iD26T D ]3X'%c %d <m'%f %d < d0h jd@9 8 40dlD0 <8T  VH"FX <3HlDR$S D LD l5ILZl5Ic@! vN<,&Z@lH(< 03-(k&5H  vV ,&Z@lH( 03-(k&5H0Z@lH(q XM@l  (3-(5H kXpXc c< Zd@^H"VX <3H\ \5ILZ\5IcAZ@\H(q ZM@l DR$S D H-(D5H ZdXt4< l\(DHp0- >plp ?>l1xcp/ 00xptl\`4< 8 @   @@W_/0  Ŀ$ƉIvSBh}ȭHuW- S   0   0   0 0  0 p  0   H$|$ 0   0   0 `  0   4     g08@HPx  88/KeyStylem_objAECKeyStyle m o_uBA't9% LCUu7'4(=-Frtom(TE 'sie check for vpalid\OrrResyxy1C<sJSu@ErrMsgBox n"0 :tB" & vbCrLf_ 5"P4P @Vcal?<rr.MQ9raIfFa EachIn8.dU q',m_*I 0.Exists(o_5.).Addt, ] q1 *Next.a'>?7#eqPWVMOpenKUCq0SR, ROB5O"DSs4pdц@* +GoTo %Cat.0zRGit Pq1!oakT.s.q(s A 8P!Filesqed  E1 =`wA Tru0)I:'J p baEoutBp.Number <> 0,XRai;w,.@SourceDes3o`5q&ٕ8% ;F-./?]OOu@.RemoveAhE pF=FZF u4'U&Fp7F,ve.H0sl$qG Next m_objAECKeyStyle End Function PublicH s() As ColleX! SetD =0 Getbripvate] .`Dim`ListNew sBaseDoc.`LayerQbmp_dic3Scripting.Di|ary  .Remo veAllFo@r Each 4In s,' Simple way to avoid duṕs in c āOn Err:Resume*C?H AIf?C@KaCount > 0= Elsg [h@D }'~'-?/ 'i|: F`3J'$ DYTi@U : 7/2@005@ 12:46Auth=6: Richard L Binn' Purpose?0 X%(ByVal LKSQngAec*c2a6 acc% Pro`L$oplK@M a `}t OgteF) հJ_ ":AMsgBox "" &!.Number" (eDes)#on)procedureW of Clas@s Modu cls_e<"?mS1S yhh"!6l13666o6955R!!7le7O%7D}@s07UCpaC)058q B( _8Xa _8_8o_87777rr.7n 7_7_7mP%:s %RefZ=Z!#F75()?PdtByTO leO @ QO`#E . .q+2s~_\sY3#q  f@``B7 +FϰJg @ECho?q ݠ mC?Q߯B3' Return l!ܐs!&!vthisF8OfP,y? ;;?Q WD9;7Isa! (ens E E2}CQ1With24WshShellG.Popup "Access b(!$Z"h"L8s+`,Nn[>{s*=h8+3q0qEBEv;x0qEBEv;,Nn[>{sRRRRR0RRHRR`RRxRMEH  (@SS SHH HHH"H*L@bB0P@bHV @ j@CjCj CjCjCjCj0CjCjCjCj Cj$Cj& Cj(Cj,pCj.Cj0CjCjCjCj `CjCj CjCjCj0C 6<8pa jxCj@Cj Cj$Cj&Cj(Cj,hCj.Cj0 CjCjCjCj XCjCj CjCjCj0CpX`LjCj@C~ `$ `$Y `$ `$ `, `0#$Y `, `=A,  `=a,I `=, `=@|4n0FA-1068-A738-08002B3371B5} |GlobalSpacAIFalse dCreaX / o   / o   o   _  / 0   0   0 P  0   0