ࡱ> {VBA_Project_Version(%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.tlRoot EntryE%JVBA_Project0e<%E%VBAe<%e<%UserForm1 e<%0e<%+ I T( !"#$%&'C)*B,-./0123456789:;<=>?@MCDEFGHJWKLjNOPQRSTUVWXYZ[\]^_`abcdefghkzlmnopqrstuvwx}~PROJECTwm PROJECTfod  !"#$%&&()*+,-./0123456789:;<=>C@BEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrtuvwxyz{|}~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="LayerKey08" HelpContextID="0" Description="Layer Key Compare and Copy between Layer Key Styles" VersionCompatible32="393222000" CMG="686AD62CDA2CDA2CDA2CDA" DPB="E6E458DCA8242725272527" GC="6466DA5A26D927D92726" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=22, 22, 871, 388, cls_LayerKey=13, 57, 919, 473, UserForm1=0, 0, 847, 416, , 132, 174, 740, 590, Z ProgressBar=154, 203, 730, 619, CommonDialogMod=44, 58, 620, 474, LayerKeysMod=88, 116, 664, 532, ThisDrawingThisDrawingcls_LayerKeycls_LayerKeyUserForm1UserForm1ProgressBarProgressBarCommonDialogModCommonDialogModLayerKeysModLayerKeysModrU~~~~~~~~~~~~~~~~~~~Y a  3Layer Key Compare and Copy between Layer Key Styles y blnSafetycheck Q Q( Q8 Q)H QX Q1hi21. n``e<%0e<%i28 + n``0e<%0e<%i37( n``0e<%0e<%i43 % n``0e<%0e<%CompObj aVBFrame8ThisDrawing\__SRP_a__SRP_bUserForm1[__SRP_2#~1__SRP_3*cls_LayerKeyy~__SRP_4|__SRP_5"CommonDialogMod iJ__SRP_6V__SRP_7(ProgressBarA9__SRP_8s__SRP_9atLayerKeysMod DA__SRP_cAJ__SRP_d?T_VBA_PROJECTo,dir'__SRP_0!,__SRP_1 QxstrName 1cbox strFilePath startStrg delimiterCancel CloseMode  dwExStyle lpClassName lpWindowNamedwStylexynWidthnHeight hWndParenthMenu hInstancelpParamhwndnCmdShowlpRectX1Y1X2Y2hdcqrcedgegrfFlagsnIndexhBrushdwMillisecondsstrCapMaxCountlngIndexlngCntlngPause pOpenfilename lpszLongPath lpszShortPath cchBuffer  Qq*sNameRO a!6LKName KeyStylem_objAECKeyStyle YP yQ0* pHd LayerKey083< ComparK*mrU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Q K.}~ApX   t )a Y.h',-Qa $ q I!!""### $1$a$$ya $P ayiQ19Y q  LayerKey07 ThisDrawing UserForm1 cls_LayerKeyCommonDialogMod ProgressBar LayerKeysModF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  QaE1F @u;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD a0FC:\WINDOWS\system32\stdole2.tlbstdole  Q0( B=B(C:\WINDOWS\system32\scrrun.dll Scripting 1 .E .`M C:\WINDOWS\system32\FM20.DLLMSForms 0C؂%ŧKuچ 2C:\DOCUME~1\ADM_RL~1\LOCALS~1\Temp\VBE\MSForms.exd @ 5OՊ C:\WINDOWS\system32\wshom.ocx IWshRuntimeLibrary y PiCS4C:\Program Files\AutoCAD MEP 2008\AecXUIArchBase.tlbAecXUIArchBase 1 `iCS 2C:\Program Files\AutoCAD MEP 2008\AecXArchBase.tlb AecXArchBase  I piCS 0C:\Program Files\AutoCAD MEP 2008\AecXUIBase.tlb AecXUIBase  a iCS .C:\Program Files\AutoCAD MEP 2008\AecXBase.tlbAecXBase  q Yj Ak,_qݧGrmzyL$jq#hٹM[My-KLI#s\ AcadDocument showformnew DpKQDNJ)L~FB)@֑6k3EZWv r Thp?.G lO⸋yJlm!ke2ҋB ` ComboBox1!-6S` )ȏ[qJ eUserForm}:7GX2E0k F3Dynamic  1?F`Frame1 ComboBox4 ComboBox6"-?@Label1Frame3Frame2Label6Label7Frame4{lFWJOcmdCopySelected"ҋB `ListBox1 ComboBox5BҋB ` CheckBox1Label5cmdCopySelected_ClickComboBox1_ChangeGetLayersFolderActivate_IfOpenFillLayerKeystyles3ҋB `GetLayerStandardGetLayerKeyDefaultComboBox4_ClickComboBox5_ClickComboBox6_ChangeUserForm_Activate StripPathStripDelimitedItemUserForm_InitializeUserForm_QueryCloseCompareLayerKeysGetLayerKeyFolder | Error fĤIx8<  ( l) in procedure showformnew of VBA Document ThisDrawingVBE6.DLL 00,$(   S iCSiCSiCS|C.OPqGiCSyiCSwiCSuiCSCҋB `+=h8+3qzC Cyn*=h8+3qg%M *^!=h8+3qClassPgv3+3o VBInternal Y MaxCreateWindowEx user32 CreateWindowExA 9Y ShowWindow ShowWindow 90 DestroyWindow DestroyWindow 9PSetRect SetRect 9pDrawEdge DrawEdge 9A FindWindow FindWindowA 9 GetDC GetDC 9 GetSysColorBrush GetSysColorBrush 9!FillRect FillRect 9I"Sleep kernel32 Sleep "!#0Caption FillColor BackColorClass_TerminateShowProgressWindowDestroyProgressWindowProgressMeterPos xh 00(    Copying #ҋB `  Layer Keys...siCS Updated  with new Layer Keys! Binning s LayerKey Tools ,,LL, $,0<HGetOpenFileName l) in procedure cmdCopySelected_Click of Form UserForm1 V    `  $coBB$coI*q* Browse "s Layer Key Tools  *.dwg DWG Files comdlg32 GetOpenFileNameA +,GetSaveFileName GetSaveFileNameA +,(GetShortPathName GetShortPathNameA "-H ((Pi s@ .5 Appliy' \ c:\ AecLayerStd.dwg dwg &RLB Layer Key Tools3   , 0   P h p  iCSiCS92a2iCSbPbCMƅ;IiCSkiCS92(GL^ri3i3xiCS Open Read Only? "s LayerKeys Tools]neO -iCS iCS x) in procedure Class_Initialize of Class Module cls_LayerKey ZHKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R T\Dialogs\ADT_DEFAULTFNAME\InitialDirectoryG`ZUkE,] :i5KdbD[ \Curver L\AEC\5.0\General\Tools\ToolContentRoot Layers\ h) in procedure Document of Class Module cls_LayerKey-;Miu v) in procedure Class_Terminate of Class Module cls_LayerKey f) in procedure Cleanup of Class Module cls_LayerKey &Error Getting Style 2Please Reselect Layer Key x) in procedure LayerKeysInStyle of Class Module cls_LayerKeyImzL f) in procedure OpenDoc of Class Module cls_LayerKeyO,HA”ƀd l) in procedure Initialize of Class Module cls_LayerKey j) in procedure KeyStyles of Class Module cls_LayerKeygĤIx8<J!6 L\AEC\5.5\General\Tools\ToolContentRoot LayerKey08 p) in procedure GetKeyStyles 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_LayerKey0ti=\EFU|?C@y 1P 1pT4DIP3lܖ/PJeWMcWDCFbɎu+YS69Cp s*dO+ h^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system32\22.tlb#OLE Automation#0 Scripting>citig Pj J420B28JE718-11CF-893DJA0C9054228}#1Jcrrun.dll#Micro soft Runtime@MSFo@rms>SF@KrssoJD452EE1-E08F-@101A-8-02608C4D0BB4JFM2`0.DLL%B W Object Library/;1Cb iAi00}#0C# 50 682D8DD43-C525-4BA7-9FED-87167@5ADDA8DOCUME~1\@ADM_RLL OCALSTemp\VBE\Tp.exd $@ IWbs ZRuIImU`gLJb@La`yKx RAF935DC20-J1D0-ADB9)C04FD58A0BKwshom.ocx#Wi ndows$K Host8Model@bJAecXUIArchBTasr A cXUIAU cB`s 4 `aE7BAE200-BF69-431B-9153-1FF0DEF8F613}#5.5tProgram Fi \ArCAD MEP `8\CkBwAEC itPural ApplicywS@'%`400xwk @!2נ21 `1UI50.@Ǡa>Jz`3_!o1-s ThisDrabwG `iyDaa F25H1rA,Z"+RBBjUserX1:GGUp~`1k2oc1Ő/(z!a|cls_Ga5cl_mCb820!rD ! o p Pmon@DialogNGArmoW DpWa ogMpd0d2 qpўPs!uQ%OessBarS%P$ qs1~r S%AdW/X2sb1s1 o3 p=tyBrU ( b#AutoCAD 2008 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\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{82D8DD43-C525-4BA7-9FED-871675ADDA86}#2.0#0#C:\DOCUME~1\ADM_RL~1\LOCALS~1\Temp\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{E7BAE200-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD MEP 2008\AecXUIArchBase.tlb#AEC Architectural 5.5 Application Library*\G{E7BAE400-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD MEP 2008\AecXArchBase.tlb#AEC Architectural 5.5 Object Library*\G{E7BAE100-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD MEP 2008\AecXUIBase.tlb#AEC Base 5.5 Application Library.*\G{E7BAE300-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD MEP 2008\AecXBase.tlb#AEC Base 5.5 Object Library "fLayer Key Compare and Copy between Layer Key StylesӳH sThisDrawing3l48b3e34fThisDrawingZ UserForm13m48b3e34f)UserForm1Ňcls_LayerKey3k48b3e34f7cls_LayerKeyo0zCommonDialogMod0<48b3d1d6CommonDialogModHqProgressBar0=48b3d1d6ProgressBarX`W/LayerKeysMod0>48b3d1d6LayerKeysModt`xx0H`!c/r(CenKHJLn_KRT/7dYi@EQ1\ShcmLeftAutoCAD"VBAWin16~Win32MacVBA6# LayerKey07/stdole` ScriptingMSFormsCIWshRuntimeLibraryAecXUIArchBase] AecXArchBase AecXUIBase|AecXBaset 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 vbNullCharYOFN) nStructSizeJ hWndOwnerhwnd/sFilter@ nFilterIndexcGetLayersFolderZSplit) vbTextCompare QIsArraysFile8aSpace nMaxFile sDefFileExtP nMaxTitle  sInitialDir sDialogTitle&flagsoOFS_FILE_OPEN_FLAGSGetOpenFileName]?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_Initialize5cdicFilesOpenedpUserForm_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@CommonDialogModyJOFN_ALLOWMULTISELECTOFN_CREATEPROMPT^9OFN_ENABLEHOOKOFN_ENABLETEMPLATEOOFN_ENABLETEMPLATEHANDLE. OFN_EXPLORERLOFN_EXTENSIONDIFFERENTOFN_FILEMUSTEXISTٽOFN_HIDEREADONLY OFN_LONGNAMES=UOFN_NOCHANGEDIR͙OFN_NODEREFERENCELINKSvOFN_NOLONGNAMESOFN_NONETWORKBUTTONOFN_NOREADONLYRETURNOFN_NOTESTFILECREATEDsOFN_NOVALIDATEOFN_OVERWRITEPROMPTOFN_PATHMUSTEXIST OFN_READONLY!OFN_SHAREAWAREOFN_SHAREFALLTHROUGH( OFN_SHAREWARNdOFN_SHARENOWARN4 OFN_SHOWHELPOFS_MAXPATHNAMESeOFS_FILE_SAVE_FLAGSı OPENFILENAME35 hInstance  sCustomFilternMaxCustFilter` nFileOffsetInFileExtension9 nCustDatafnHookn sTemplateName pOpenfilenameccomdlg32FGetSaveFileNameWGetShortPathName 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 LayerKeysModZLKFile1o^LKStyle1LKFile2p^LKStyle2UserFormNFrame1Label1,Frame2Label5,Frame3cmdCopySelected< Label6,Label7,Frame4ClickChange QueryCloseTClass TerminateyLItemz _B_var_UCasea _B_var_Chr\; _B_str_Space _B_str_LeftV _B_str_Trim _B_str_MidX LayerKey080CheckBox1_Clickl)7"  !"lJV"&8bb   !"lJV"&8bb bb QueryCloseTClass TerminateyLItemz _B_var_UCasea _B_var_Chr\; _B_str_Sp|KYQ/sXDmnCreateWindowExA8NShowWindowXb$DestroyWindow|DSetRectherDrawEdgeFindWindowAGetDCGetSysColorBrushateinanFillRectyerZ<anrdSleep-- tzC Cyn*=h8+3qg%M *^xnrU~|  p;{st;{st$xME(1"~6 Pt0EPH@%PHto%phAD%x%%| @h| %(@@Sx h@@q@@@xP(( P(ӳH *\R3*#6$*\Rffff*0=48b3d1d6$*\Rffff*0>48b3d1d6*\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 rU x`p0!Ai )",9$pAY(DpA@hpy4<ap 4,1 p!A( pA(!p)8i"p yA4(9#(pY(h0(Ah!((h%((h)($`8$A`-$`1,`5(nrU  =9 !i"a=9#y@lA  WWD hl$ @ `$ @ X$ @ \$ X(d!d <s($  L<dhD4lDH4lH^0q<L lDhXld2HDd <d^q"<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}XB` B%b` hdxcth<1hfl7hh :hj$hlyehnhf ''''hp8 ibuthrP$$use hth((nhv,, app+x@p iz siti|i~ i@if`iniiihifi< i+$p$ ii+ DpD i+hp`h )A%iiii+pH ih)A%ii+Pp i|0i~+p i+p i+pP ip)A%i  (p( !!ir B BBhBBBB8B @h Erroh  .h8 dureh dule"H @ %@% --@%b`@bh@( A h|+`  Ni inin A h|+ Wi ing A@ h0|+ $ ^i ---- A h|+ ( ei X  `|k8i @ `@k,o L8 .@ %  `|k0 ~ `Pdk 4i  oolsi`x@  %B\p CB^CB BBBB@BBB b`4 @"P 8 @bX@b \@b d@ H @  h P @@p  P H @ 8  ` ` 0  pX( P(@\^x`@H @D x S (@ h8 8@t @d  HH    x<@;ӳH $*\Rffff*0=48b3d1d6(*\Rffff*0=48b3d1d6\0(*\Rffff*0=48b3d1d6\1*\R0*#13l 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 proceduresed\]DH O]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"2*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@]D e thWant a Raised look?licati]D oc aHow about both? ]D  umen@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@--You have to have these----]D ----]D@-$]Dh@]DA@, To get this!d]D    @~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@The Rectangle type^^ ^ ^8 p]@8]@`]@P ]@]@] ]] The caption for the new window '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@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@  \#32770  ^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 40CAPT(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! > %(aaN, @500, 12 5@60&, } vR_ ksxNGetOpenFileNameAN<GetSaveFileNameAZd(GetShortPathNameAMLxRRLLMEPrU~| prU h$`< (Ah0,h!=$`@(`%/0Ah )=0` -##((@:> < <( x C PCCC C C C @C"@C&hC*C,@C0C40C6Cʘ8(C%:hhh<h h>0h@Hh`hxh h$$h((h,,h00h44hB 88hD8::hP<<hFh@@hHDDhJHH@%+ p )LA%+P(p`( )LA%+RPpP iTiViXPC C (@CxCCC C $hC(C.C2CʘX 8C@xxh@X ((hP0@P(P20ӳH $*\Rffff*0<48b3d1d6(*\Rffff*0<48b3d1d6\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?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''k> 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 source7 on any media without express permission.?''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']$(]$ P]$ ]$@x]$(]$P]$]$x]$]$ ]$]$]$]$]$4 see comments]$@]$@]$h]$h]$]$@x]$]$]$]$]$01OFS_FILE_OPEN_FLAGS and OFS_FILE_SAVE_FLAGS below-are mine to save long statements; they're nota standard Win32 type.   ]$       ]$   & X^D^D^D^D^D^D0^DH^D`^Dx^D^D^D^D^D^D^D ^D8^DP^Dh^Dp`]  --end block--'յ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--$ ]0O B YO T= qqnStructSizejhWndOwnЉInhancu e#spFiltxingCustomHnMaxxnSIndexc q TitlInitqPDir3 wsD@DARAzz sod]neO a>>I y>yAAY18 @A:.BBB4 D E*1=EQ9IF/ &q*FGx H 8HIJK!6 LMN)N9K44y@\A   WWWPK[x4x[x<x$x$ tQx[tX4 t'xX4 0lx=[t<)xt'xX< xlx=[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<`1h2TL5<!ll*#T*#Llh*1t2TL1TFX 0'k5XM9Tl ,&llhhMD @>TFX ('lh=&lh5Xc l& TxK/~'''4  hh  l#T*# *#  , l*#(*FX 2 T)h6X4/ @(xplt8 ThX4\l CtKhK<c)/=H'L%\%ltlX4 l 0)lH=p)lH5\FtM\@"*X 0'kFlML @tM\@"*X (' lp<pz/$@ ll  l@lYv@ ll  < HH $ 4 88 , ''>4F>dFTh 0'kR5T9dXL X-LXL .>LF<>dFTh ('6T<chLl%dK/ ~'''< 8 tt  l8#d*#L *#04 pp , l4*#,/*FT 2 dL04,)tp6T</ ,lh8 dL40,tpT< -K&tDQtxK/ ~'''( p tt  lp#l*#h *#\` dd , l`*#X0*FH 2 lh\`X)td6H(/ (x8 lh`\XtdH(-K'pX< lp=,[lP)pl[pXp XX D'PLh%LKRdXL X-''$>dFDLppMT @t$1 2lp=%Lp6D$K X+dXL X->dFD 0'k5D29dXL X-XL .>F$>dFD ('6D$cLh%ft$1 $2lw tV1x c=2xK/ ~'''$  pp  l#d*# *# ll , l*#3*FD 2 d)pl6D$/ 4xht8 dplD$  l Ct-'pX< lp=,[lP)plPLh%dXL X-ldlt0/dy LxhLh%GK/~'''  ` pp  l`#d*#\ *#TX ll , lX*#P4*F@ 2 d\TXP)pl6@ /ۍ 0xht8 d\XTPpl@ -K)tl LQtxK/~'''( p tt  lp#l*#h *#\` dd , l`*#X5*FH 2 lh\`X)td6H(/ (x8 lh`\XtdH( -K$pH l%lp=6[lH)pl[pTp XT D'HDh&SKRdXD ,&''$>dFDDppMT @t$1 2lp=&Dp6D$K T+dXD ,&>dFD 0'k5D9CdXD ,&DppMT @>dFD ('lp=&Dp5DcDh&ct$1 $2l~ tV1x c=2xK/~'''$  pp  l#d*# *# ll , l*#7*FD 2 d)pl6D$/p 4xht8 dplD$\\    w@< H0$F<0N<4@ 0*>"<9X px       j~P ^X & " $ 0 ^H B  '     ( r~0 B   ^  "8 $` Z ` `H! ! ^! ("0" 8" H"P" X" h~`"" B  " ^" 8# "X# $# ^# ^$ h$p$x$ $$ $ $$ 4$$R%% % +(% >@%C% %% % ,%% %& &&  &(& 0& j~8&& &W---------------------------------------------------------------------------------------\( 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:08L!2 Author : Richard L Binning!W Purpose : Initialize the class, by getting aecapplication, aecbasedoc and collection  of aecdocumentsW---------------------------------------------------------------------------------------$@ .A@,. !d B@bErro !j. !X. !.re|Error .!0 ( .!2<) in procedure Class_Initialize of Class Module cls_LayerKeyA@,oH]]]](]-HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R@]*\Dialogs\ADT_DEFAULTFNAME\InitialDirectoryX r "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.2\ACAD-4004:409\Profiles\Architectural Desktop - Imperial\Dialogs\ADT_DEFAULTFNAME\InitialDirectory" a s 5!!d! % 'Binn5!!'q0  \Curver7'?& "\Profiles\"  \ '; & strAcRel & lsfLimb &\AEC\5.5\General\Tools\ToolContentRoot7Layers\'qmpW--------------------------------------------------------------------------------------- Property : Documentname,  DateTime : 8/3/2005 21:09the us Author : Richard L BinningdoE Purpose : Return an AECBaseDocument object for direct manipulationW---------------------------------------------------------------------------------------X .@{80Error .!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---------------------------------------------------------------------------------------8A@(| Error .!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---------------------------------------------------------------------------------------(...zError .!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---------------------------------------------------------------------------------------  .FdXWith 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@k  !p  !7 ! C@kq  .Fkph{`XError .!0 ( .!2<) in procedure LayerKeysInStyle of Class Module cls_LayerKeyA@,ym PW---------------------------------------------------------------------------------------3 Function : OpenDocc:\ DateTime : 8/3/2005 21:10wbe Author : Richard L Binnings\[ Purpose : If the chosen drawing is not already open, open from the aecbaseapps documentsomm collection.dW---------------------------------------------------------------------------------------g]  Gzj   !%. p  p%rog   pB@\mik .ql '8zx p Just pass it back outro .!0 .!0 .! .!2 .B@utok  z  Error .!0 ( .!23) in procedure OpenDoc of Class Module cls_LayerKeyA@,0i W---------------------------------------------------------------------------------------t Function : Initializenn DateTime : 8/3/2005 21:10ta\ Author : Richard L Binning8\ Purpose :rt;W---------------------------------------------------------------------------------------i( !l.k,.a 2 B@nu\  \  !7am ! !C@akq e 2zxError .!0 ( .!26) in procedure Initialize of Class Module cls_LayerKeyA@,ipW---------------------------------------------------------------------------------------  Function : KeyStylesar DateTime : 8/3/2005 21:10upp Author : Richard L Binningen Purpose :ttiW---------------------------------------------------------------------------------------0 .:;c:zError .!0 ( .!25) in procedure KeyStyles of Class Module cls_LayerKeyA@,iW--------------------------------------------------------------------------------------- Function : GetKeyStyles DateTime : 8/3/2005 21:10 Author : Richard L Binning Purpose :W---------------------------------------------------------------------------------------]P !l.,. B@  - Simple way to avoid duplicates in collection(  ! B@  !78save names for search, add handle for retrieve from item ! !C@kq  ! .dH.k80z( 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.   !  .yk zError .!0 ( .!2?) in procedure GetKeyStyleFromName of Class Module cls_LayerKeyA@,iPW--------------------------------------------------------------------------------------- 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@,i0W--------------------------------------------------------------------------------------- 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@k`qX % Return list of Keys in this KeyStyle ! .d.kzError .!0 ( .!28) in procedure GetLayerKeys of Class Module cls_LayerKeyA@,iPHhAttribute 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'O6\w6d'P1&a'#' _2. ! `z\5.5\Gene\ToolsR(t- bs\ R:; z; J;ce{D: a{C09{OFReturn 1 . 01·d; manipu , !+ae Ox i0+e `eY efeeQ0eF eZ)US֣Termin`ϣ-Σ;F ''B: 7/)CRClean&t he class and exi`t '-S On Error GoTo C}_Terminate_ )eanuVp 80"E XSub"J:< MsgBox "{" &.Number" ( Description ) in procedure X of @ Moduls_LayerKe`y" EOPublic Fu$nc-Cln()ڹ7:T' DTime : 8/3/2005 21:09@#` Auth@h@k: Richard L BinningPurpos@empty@ out treserved memory ?R@͓8ˑSet m_objAECBaseDoc = Noth+39 B]App"}é(ΧB %SProhper9G@&XsInStyle(ByVal strNa GAs Sdtr () Acfng.Di[a?: ? f: -k5\12'?\)\Return a dF contaBia allB_kxeys`bsubmittedwAMelaa+. Tgng) ows freasy verifica. &??0 UZ-mIf?!km%m s Isn!n "!!o3- km_Else''With New Wsh`ShellgA '.Popup "Access UEX St`sA3 se9ds.", 3, "RLBJ ToolswB'G Dim o_daaqAAecL?aGa"H = Cq Fromo(pdžsimpaheckFval]upuw tB!wvbCrLf͐v_ 5"P0r`f electӰit0lOK5p .vraIfF5EachIn8.s '?* t0.`sts(oR.).Addt,] 5 *.ao7m;#ev8nXQC#BnϘr.Ϙɘ ߘޘi -Openn1:cn, ROB A0vRo_XU Qmm ' m`* jch n draw:is notmread3(P f Hoaecbapps HdocDnt2'q(6col;j-*XPUAp$ /, 4[l[.DCatcheD@= 0clSRai bw,SourceHDsMM LOOrLKKK3I KInpze(IO3-; ' Function : Initialize0Date Time 28/3/2005 21:10:Author : Richard L Binning Purpos=< :<>Y AOn ErrGPGoToc_   Set m_objAECKeyStyles = BaseDoc.Layer#dicNew Script{.Diary m_.Rem@oveAllFYEachKb sw Wit.If Not .Exists(M>.Name) Then .AddB ,HandlEnd If-CNexbir0tF xCMsgBoxD "" &.@Number" (Desm& ") in procedureȐ of Class Module cls_8" A6с&Pu0blic() As ColleBŘ: HY' z@R@.z 9KAzFyGet1`_J ?Jrr?J.J Jd7Jriv`':)J0?!2G: ,J;J DimbL!sAsGIoP??gD= ?jџer eoePpS ' Simp`Nway to avoi`d dup@MP(s=aRc8L1166ResuP!^W e` ef'O<prapZp'@save nrs fQsearch, a rhob@retriefrom item   2.ou fouth?ou4Px+/.Count > 0?B>5Ph/% /O/`66+Ϗߴٴ0$Us#RefFM#"+q7e 6 q1::Y: PapaT׳le object and get the s8of Layer@keys a collion0 ' Vnames (strings) in return. This functat(availdabto| [callR routine from side/ clas^tself. It 1sprivat3t [belo4w. -S, On Erro@r GoToK%_  S = Ge t( Styl,e)(0 Exit Fu 4:4MsgBox "I" &A'.Number" (Descripl& "uprocedur*e2 CaModurcls_E" E &Pe:ByRef Dm_AECE> As AecECC}CqRrFV :+DTime 8/3/2005 21:11AAuth~: Richard L BinnPurpos @Pn a lE}Ireceiv?`its )cVDim@List1New i2_ [oO`>=@?sa-A.afm_dicE!SVng.Diaryc.RemoveAllF@5EacFhP In,s ' SimBp^way avoid duplic@CnaCaxResuGNext er`+.Add,<.N@1Wit&AIf Not .sts(+2 )`ec 'saScf)search,< a rie item ?! 0B+!Ifg#+&' R lXALatA׀c#*3Count > ~0l"aSI] Y Exlse#aP1h„"0F `` (]tK3:*N  `0 +`/05 ` ,? `5ILr`5Ic<krpk`5IL(%` `1\5 0k`5I!r@` `#0T/05 0-l\**F r@``1\6  rdI-C\l\C<.06 /#0*#&*#&*#T2040 /#0*#&*#&*#T20 J 1&*#0&*#T<204& /#0*#&*#&*#T$20")$J(l\&*#0&*#T,20 2T0 84 q.)x3x^4q<x) 3lRx3(")J") 5#0 61T/0prlTJz2&C00TrM@>F t (7/05 =&C00T'>F 4! 4 /046 _t krprt ,7lpp6")J") 5#0 6#J20r")J") 5#0 614! 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=7t  x xi0@ \ L P t D H ` x :< %T %T04tp `@ y'h-p8$9 0lp=:tppt |;lp=<lp`l x=>`1x c=<l c=:t/ h4xhlt`pl Ct/hl>$? ,l Qh[dpl`?\p >\FL< <tM,@ 36L< p @pz` p`7/m p4d`pt(\lhL<  l CxJlxkJp^ k^V8 '':(8:@:AN^iL6 8L(]3 B+Jlx ,Cc B|+Jlx| ,Cc|JlxkJPW8 '':(8:@@Dlx*#xE*F /x6 8 Btpt 4CQpdct ldc"(hld $FllihL8hd F8 `588x`$G XHh((8>xFH 6 h~L\ 0 L4 |t\Ld`xLh,xp8h-p8$9 0lp=:tppt |;lp=<lp`l p=>`1x c=<l c=:t/ h4xhlt`pX-p8$9 0lp=:tppt |;lp=<lp c=<l c=:t/ MX4xhltpd)tx! x ltJ/tx^)tx! x ltJ/tx\-ntx! x ltkn/tx Bh1dtx! x lth (CQdI/txch J`nH ':8H(:@(KL*#tM*#\L*#XN*#` (O2t\X6 H(c`x x Pxd0h`p8 t\XxdH()tx! x ltJ/tx)tx! x ltJ/tx-ntx! x ltkn/tx Bh1dtx! x lth (CQdQ/txch J`nH ':8H(:@(KL*#tM*#\L*#XN*#` (O2t\X6 H(c`|@j8%,  8Rx x Px0h`p8 t\XxdH(  #t_t'04! 4 l0$0/04:  :@:&:':&:p(`:P&@:0' :&:&`1x6 `@ )q L$ ll lxT 0>0F `` (]tK3:*N  `0 +`/05 ` ,? `5ILr`5Ic<krpk`5IL(%` `1\5 0k`5I!r@` `#0T/05 0-l\**F r@``1\6  rdI-C\l\C<.06 /#0*#&*#&*#T2040 /#0*#&*#&*#T20 J 1&*#0&*#T<204& /#0*#&*#&*#T$20")$J(l\&*#0&*#T,20 2T0 84 q.)x3x^4q<x) 3lRx3(")J") 5#0 61T/0prlTJz2&C00TrM@>F t (7/05 =&C00T'>F 4! 4 /046 _t krprt ,7lpp6")J") 5#0 6#J20r")J") 5#0 614! 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=7t  x xi0\@ tem32\da\ mL lP 1t D XH 3` rx a< iT \T04tp `@ y',t >t1xlxJ.'@t >tF`p! p p6`@+'@:P$N``p! p p6`@.'@t >tF`p! p p6`@+'@:P$N``p! p p6`@&N'` '':P`@:0S @:TN 6 `@ ,(x,tp`@ -  d1x" T:d*DUpv5Dkvlkvpt$kt T:d*DUpv5D3 kt$'Dkt d@ U 1x/@5D/ <(x@Dl- qt ltRatMd@ U 1x" JiTlt U ' 5T/(l(xT\, #V[@jl%W$X, ,$  T"VX <7Tl l5ILjl5Ic@/8<>$? ,< Q8[4d<0 D3d >FTj@l }6T qd k'%f %d Do\d '': YN  ZL*#l*#[*FT^iD26T D ]3X'%c %d Dm'%f %d D d0h jd@9 8 40dlD0 <8T  #\H"IX <7HlDW$X D LD l5ILZl5Ic@! vQ<,&Z@lH(< 07-(k&5H  v\ ,&Z@lH( 07-(k&5H0Z@lH(q XM@l  (7-(5H kXpXc c< Zd@^H"\X <7H\ \5ILZ\5IcAZ@\H(q ZM@l DW$X D H-(D5H ZdXMt4< l\(DHp0- Bplp C>l1xcp/ 00xptl`4@h D 8   88W      !"#$%&'()*+,-./0123456789:;<=>?@ABKLMNOPQRSXUVYZ[\<<<<<<<<<<<<<<0{54E210C3-68A3-40B1-BCAC-57AE24E3B2AE}{68540972-3F70-472E-860A-956CA44FB9FE}X7 4`t@QQ `6zha`8xTO ;tx% ?p21:4% Clicha% EXh% Id% M@`(W-- % Q\H----% SXh----% UPTx %`VR ---- Y0L----$% ]H----(% `d@[`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 ` @  i keysi  :! pd <% 0`L@`""i Copy)#s...@%@&h )dPD% -`%`.^ 6@0L ,<``p i % t!4% l!8%`h`6f!,@`f@i B@ txUpda4% l 8%`h`6f B0`@+ )p( .D% P`@< )pusD% ZX `@ P`xfter t 0%`6r8`p`` eeps` \Be`Xn it`Tto a`P(T` Lck e`H`DBrow` B a s`< the`8Binn s La \ `@ `^x',b` `@@  Id  ogi `fvrns)`htmbo, `T@  ij  nal il  fini do`t nX `\@  r@ `@ it  iv`xl `6j { d <%@0D T `@@l  @\ th`6Z`8Xde,``l  8i 9 tXfile%`% % 8  4 eAi P%(% X ` @ 0 0X   P8 hPh0 x@, @( @$ @  @ @ `` p 8@ @ P @ . (.8 h/ x(  7(nl  Vn$א@h @x d P @ h 8  ( 4 0 @ @ PH @ @ x 8 @  @  @  @p 8` @P h@ @0  @  @  @ ( @ X @  @p ` \`(@X (V @- PT h-R x.6 `L @H @D  U@  VDl @\ Xr,P@t (@p @` `t 0P @ @0  @  @ ( @ p Xh` x h P`xM 8X@Xp p`  pl  X0HH`  xp @` (p @ ` ( ( h 4L2,~(T @B 0@ 0@@< @8 @4 ( Xh0O  p @ @ @ @  `x# hh ( @@ @   @ #! @!@ @ @ @ ! !( @ @ ! 0@ !!#("0x t"`("p""@p @l @\ ""L "2 #p##p####H -z ##`t@$X@$@l @h L@d X$h$`O $-\ GE@L C@< cT@, -( @ %(&-fDLr8&`x &t @n h &`8&p&&0d `h&`( & -0\ @X @H @8 '( @ X'( - @ ' @ - @ h*(- fRLTV(`x 0)t @n h(`( )0)0d `)`0) -H\ @@X @H @8 )( @ N*( B3&- @ 8* @ - X*@ X(@t ++ (R+@H ,D ,@B ++@ +p+<+`+P, `,`, ]-( A@& m+ H,``,, ,( @@  C, ,  ,- , ppx./ 3fnrtv|/HD @@ .< @: .X( .$ @ . -,./p .@/( @ @ @ @0/2> @/ x/2 /0 p/`//7D 3 @ @ @ @ @0 @ 3t  ( 0@14L2,~P1(T ;@B 3h1N".x1@ \1 1@< @8 $@4 1O10O 3 3 2@ @ @ @  3 2( @ @ 3 RLP4`4( H P `h p 4 $A   (B08@ (Px   B  /?    (0 8H"  PX`hpx RV        ( 0 @HPXtWh   "  8 8H hx B    B  (0 6@ x $   " ))  - (10H P  Xn` ( 0@HP " X)`)x  - 1   n      " (08@HP X h   " $8 `p'x 0(,    08 h "p  0 0  (38 X h $ $! $-  (08@ 6Pp04x   " " 0 4H 0  4  . ! 0! H! `! (!F ! !  ! ." 0 " $P"((x" ," ," ,# ,0# `### 2#=# # 8# $  $ ($ .68$ Drh$  $ >$ $ $ $$ %%%  % 4(% $`%A%% % % 8% % "%&&&. &+0&.H&+X&p&^Nx&&& B  & .& '(' 0'"8'H'P'$X'x'(/'' B ' (' .' ,(H( P(  h( p("( ( ( "( ((( " (()) ) ) ()/H)`)3h) ) ) )V\) * * * (*8* @*H* P* `*p* " x***** * ** * * ,* +,+00+ H+X+`+ h+p+ x+ + +A+ ++ B++ ,,,, H-W---------------------------------------------------------------------------------------\ 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.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... |( ! |( |(P |( |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 dialog 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 dialog 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'`qiBinning$s LayerKeys Tools *.dwg  DWG Files *.dwg  DWT Files *.dwt  '-  DWG Files *.dwg  DWT Files *.dwt  '-Attribute VB_Name = "UserForm1" " Bas0{54E210C3-68A3-40B1-BCAC-57AE24E3B2AE}{68540972-3F70-472E-860A-956CA44FB9FE} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD'-S ' Moduz : ԗ؁DYTi 8/3/2005 21:46AuthorRichard L BinninbgPurAEProvide Graphic Interfdflayerkey operati8ons?>R Op mlicit CP@g@< Sub cmdCopySele@cted_C@ k()%5@:c7AcThis the main command tonN  utbopleAcGyAof e9@s from e0 styL@anor :  Dim i AsMge@ko_abAppaAec`>QG DocSo!H= New H.Init pDraw .M9doc uo_a=)=  Activ`_IfOpen (Me.ComboBox1.Text@)S =%.e W# W.$s41 e-.1/!m&o6ab  V5If heckValuQ!e0Q:.0sE4iE\If eys bjzbar,gressBadTo.Catr, " & 0List CoHunt@" ! q...r Max- 1 wBackCo"l := 0Fill2Show WindowDoEv\55V MorPos (1$3q f @B}o f a&E(Li) k`k +e1(:x3~(J  !.8Add?5WithAQCa.I C.DescriU$*#6UC[(r& Linety^p!6 to.!weightNo.Plot:ɎK>[" N0:Sf!~ E81iNe i@troye)8 Dž7ZMsg`ApdldbFlcURFw!*QHknxG!", vbInf0鲝, "$!Chr(180)sJJ>olsK ہGEx|pãick: c.Numb& (5H0A ) procedurea P? yƀ_C hange! r'all setuӑs0VܲS`Ѷ Dim oFilesDic As Scri@pting.tionary iInteg$erPntCnt 2n Split(, "\", -1, k!z{pareO IsArray)M iA@LBoundo U2' dS3 Case i[!3x= +)(0t&e"?).5eiNEls+&A#X(?{E`GNAe U U"c:\"OAIf zPq=Is"/q`V& Space$(10x24)yn/h oF"Aec"FStdswu`'q\yo1L.nMax!}A?n /,Pj]p!enbspX appLtoO 'pke ifP has no _ .sDefE߄q 'saqtゥ0a sPz@Fd 'made,F cc, aitsz; II#512$v B_Pstar!ʀg!l ttepvDno0upd |he!o > Dߐ82%o B*3. ?DpogAE"RLB 3 Key TPsE oppflagm i3  .= OFS_FILE_OPEN_FLAGS 'Or 4%_ALLOWMULTISELECTMM ,'qrAPIO 1'b 'remo0trailpaer‘1ђs}Q/@m0n>57XP Prim$(Left$ S+,) - 2)_,is the path, and 'remaining members arefiles undernthat selected.J@ i = 1Do Wh_ Len(buff) 8> 3(oFDic.Add StripDelimiItemR, vbNullChar), i%ComboBox1%"'%blnCodeyTrue'ListA6i +!=LoopinbtRCnt-UCount IfjTrim$(Left$(OFN.sA,) - 2))t0 T8henO\(, _UV-̜f#Ix@Bb2"Els|GTexgWãng@IfGstrPo%H JEF' 'After choos}alay@key st ards draVwC '`lavailable sc@lL Keystya, Me.E4 clean_Exit: 0Set fPNo$th aSub Public Functi@on GetsFol@() Asbxe,Dim o@ADTDocAAecArchBase ume\= App Ra .Av '"_@BASEDB .Datab C%%PrefMAerence+amsg GiInteg%E =. l&.b)zC, 2e+= F!535rivate5"( _IfOp ByValPrName8Boo#C'acd8cad7For Each cIn 6Oe* UC`3(.F@A)!noCEa a  ] '&}eNB ^) a o(t), ByRa 'cbox8)$varITcol<l}6myLKS>New2#@rWretval7a6H"&  CpHMsg}("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!InformY//%f @49 1O1= ..dEρIs5R"בK7 +1& @sYL 7=((*>VF.1M0?bGkQ wdSwEpBwT uwcwe{kOu 1Ou aOu Ouz aSuE3lsAuQo00)DefaultU`` h0 uGyl +' 1Ffsh g,etЮd fq$" %'uwv/Q5}6 ֲ_Cyk(=E.qo /en(ComboBox1.Text) > 0 T@hen Dim colKeys As New Collectio TIf A,vate_IfOpjWithYcls_La8yern Se@t dicL1 = ..sInStyle4FEnd q If KWshS0hell I.P@opup "C Standard` 1 Semplete." & vbCrLf _%'"Please +2"!AutoClosing this message (3 seconds)", 3, "Binn Chr(1802)&"sY T`ools"K+PM$e.Ŕ6.jFoxcusIXSub Pr:iA L5_Click()CL5 6 \AH2Z?GXA3AU ?\?\D ?\d?\?\Bk?\[pareFK/_Height!6459#Re paintLi !BT@$(LefLt$AV, X) - 2)X'showbmembersŘf" inlistPbox. (?,aQfirst C isBpC @+ain(Ear -$s uFnp at Qed. i )1Do Wh)!.) > 3 PUoFsDic@.Add S;p@DelimiIPtem(A ,h), iS ComboBox6A a arblnCDodTru'L01 E{B i +   Loopoe&tCnAkwCount;o1Po1a1!0= OO6,-Lb P9L"B I.x@+R_t? =GT @*ng@Ui@Ad+7aY'AfЀ choos>eCl kh`wndards drlaw'P@S\avWa FV$l"mmstyles8, Me. 5R  clean_Exit: Set V( `h'Msg`: tpJ0"?Inma Subá1Priv  UserForXm_AQ(6DbLKFolO8 As"A#= 0l 20g@B"Browse$K7"EProm ReUevr Be a,` "BinqdC hr(39"s܎ *FunbW.(I)Ymts ju0oӱ,a n,i xInt egintcNf@Sqdp'C1 x%PIn0y `\"Z6mx!= 8E0\,Ig[`%> cU$ Mid$  50{[tgGWQ? dxrJ1'take ̀se<9d by ✂pтl off 1em rpB *"sonWmqreadyal pos9 Lo=sA= 31aU 3i;!id$(startStrg, 1, pos)  = M +Len)vEnd I f Fu@nctionPrivate Sub UserForm_Initialize(ESet dicFilesOpenedNew Scripting.DiPary  E1.Height,110.25|hwQueryClose(Cancel As Integer,  Mode ODim varO Varianht  iadoc AcadDocume = u.Keysretval ijLBound() To U ߁Each >In Applica.B3@z CvbLNoIf.FullName Like>(i9@ he@u ReadOnly T &.X FalseAENAF)MsgBox("Save Draw:" & @vbCrLf_ABF3& "?", YesNo, "RLB `Layer`Wols"{@EK8 9TruL9S:PHCNextt idComparee!sr! D_0MainTCheckaekJdá~Miss 9P}`%` L1$g!GList`E1`MearBi LjIWith;!vB2CNot .Exst@eqe + a? p.Addv, k k*kS-LAaP:FH:D":/7FL7B@#Ite&y5, `cd GeteFolder()!\StrY#o_Aec Baseâ@^cls_ 'N $.StdG,!i1$g!GList`E1`MearBi LjIWith;!vB2CNot .Exst@eqe + a? p.Addv, k k*kS-LAaP:FH:D":/7FL7B@#Ite&y5, `cd GeteFolder()!\StrY#o_Aec Baseâ@^cls_ 'N $.StdG,!i)!\Sng#o_Aec Base@^cls_ 'N $.StdG,w B'U(pat=ns) rop@0OA .pe_ ' c-1iH"#@P0= 2? 'defPaultQe 1 Iv3kF}L,sގ1kLMz|PQ3b: kHnowAJx J )U 18 KCAir0r@[ !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,!iy 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,!i 9 a 8  \ / o K$K~'' ',t xx lt#p*#l*#`d hh ,ld*#\*FL 2 pl`d\)xh6L, $ 8 pld`\xhL,  4 M Dr sZ#Dr sZ#@qݧGrmzyL$jq#hٹM[My-xhٹM[My-qݧGrmME SLSS6"<$<<<<<(<,<0<4<8<<<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} 0 % $`@X%j"4 @ %x,`x @t 0p @l m3@h C@d ro@` \A@\ to@L n @< mp, tR@ l ro@ \C s\XXD ӳH $*\Rffff*3l48b3e34f8 ^ .` " $ F ^( " ^  " $8 >` ^     ( 0 h~8 W---------------------------------------------------------------------------------------\' 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{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@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`Endn 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 Object9qD,.Copy Selected Keys into Target Layer Key Style uTahoma$  -H}0; $#Frame1$#Frame2 $%#Frame3n,(df#o$&!XCompObjpfo')`CompObjpfo*,CompObj pfo-/CompObjp     "$'cmdCopySelected%4$+#Frame4  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qAH,B,5Tahoma$(Source Drawing Files5TahomaAH,B,5Tahoma((Source Layer Key Styles5Tahoma4H * } Source ( 8ComboBox4i1(2DLabel1 f-( 8ComboBox1i1(*2HLabel7 r  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qAH,B,5Tahoma$(Target Drawing Files5TahomaAH,B,5Tahoma((Target Layer Key Styles5Tahoma4H )} Target ( 8ComboBox5me.(2DLabel5 K,( 8ComboBox6me.()2HLabel6 #  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qa! ,,$ 5Tahoma \H '0}.>#Comparison View (Layer Keys missing from Target),1 $'`ListBox1  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8FF0. Enable OverRides5TahomaDH -}.LayerKeyStyle Optionse01 ( ,XCheckBox1erR$ ac R 1T QU(s