ࡱ> {CommonDialogMod ,cR__SRP_6V__SRP_7%)(ProgressBarE9__SRP_8__SRP_9(atLayerKeysMod-CA__SRP_cAJRoot Entry`50@IVBA_Project"p.`50VBAp.{E/UserForm1 `1.`.  & !"#$%(')+,-./0123456789:;<=>?@BCDbFGHIJKLMNOPQRSTUVWXYZ[\]^_`ardefghijklmnopqtuvwxyz|}~PROJECTwm PROJECTftord  !"#$%&()*+,-./0123456789:;<=>@BDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijlmnoqsuvwxz|}~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="6B69D5D3CDD7CDD7CDD7CDD7" DPB="5F5DE1EF21171418141814" GC="5351EDFBE0FCE0FC1F" [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~~~~~~~~~~~~~~~~_ a  3Layer Key Compare and Copy between Layer Key Styles blnSafetycheck q a( 98 H YX h Yi21 n```.`.i28  n```.`.i37 n```.`.i43  n```.`.CompObj paVBFramek8ThisDrawingd__SRP_a__SRP_b#$UserForm1'__SRP_20~1__SRP_3*cls_LayerKey*__SRP_4sfoXxstrName Y9cbox strFilePath startStrg delimiterCancel CloseMode 9 dwExStyle lpClassName lpWindowNamedwStylexynWidthnHeight hWndParenthMenu hInstancelpParamhwndnCmdShowlpRectX1Y1X2Y2hdcqrcedgegrfFlagsnIndexhBrushdwMillisecondsstrCapMaxCountlngIndexlngCntlngPause pOpenfilename lpszLongPath lpszShortPath cchBuffer  y*sNameRO !6LKName ! !KeyStylem_objAECKeyStyle P QD\a 0* pHd LayerKey083< Compare andpy between dDStyles@fpayer KyComTpr ndp- btwenL# ESt+"l#siZ=   I <stdPole> 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/__SRP_d+?T_VBA_PROJECT*,dir'__SRP_0.*__SRP_1yK*mrU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~ z `2M뺒A   t )a  /hi,a-1.Qa %Qy 1!!"i#y$ $$$$)%a%ya %P yY !  LayerKey07 ThisDrawing UserForm1 cls_LayerKeyCommonDialogMod ProgressBar LayerKeysMod LayerKey08F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  qaE1F @u;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD 0FC:\WINDOWS\system32\stdole2.tlbstdole 1y0( B=B(C:\WINDOWS\system32\scrrun.dll Scripting Y .E .`M C:\WINDOWS\system32\FM20.DLLMSForms A0`ZbLS3o* 2C:\DOCUME~1\rbinning\LOCALS~1\Temp\VBE\MSForms.exd A@ 5OՊ Activate_IfOpenC:\WINDOWS\system32\wshom.ocxIWshRuntimeLibrary  QPiCS=C:\Program Files\AutoCAD Architecture 2008\AecXUIArchBase.tlbAecXUIArchBase  `iCS;C:\Program Files\AutoCAD Architecture 2008\AecXArchBase.tlb AecXArchBase 1 piCS9C:\Program Files\AutoCAD Architecture 2008\AecXUIBase.tlb AecXUIBaseMax 1 Y iCS7C:\Program Files\AutoCAD Architecture 2008\AecXBase.tlbAecXBase a   Yj Ak,_f%JIm(>zyL$jq#?'~O׊KKLI#s\ AcadDocument showformnew D[=YgN2z[Z]L[韨<|Y J7l<&BC&͇w]FfIU5y"-?@Label5!-6S` GetLayersFolder A2ҋB ` ComboBox1ȏ[qJ eUserForm'ZLq=H F3Dynamic   ComboBox4?F`Frame1 ComboBox6Label1Frame2Frame3{lFWJOcmdCopySelected ComboBox5Label6Frame4"ҋB `ListBox1Label7BҋB ` CheckBox1cmdCopySelected_ClickComboBox1_ChangeFillLayerKeystyles3ҋB `GetLayerStandardGetLayerKeyDefaultComboBox4_ClickComboBox5_ClickComboBox6_ChangeUserForm_Activate StripPathStripDelimitedItemUserForm_InitializeUserForm_QueryCloseCompareLayerKeysGetLayerKeyFolder | Error fĤIx8<  ( l) in procedure showformnew of VBA Document ThisDrawingVBE6.DLL     S iCSiCS 1iCS|C.OPqGiCSyiCSwiCSuiCSCҋB `+=h8+3qƺjO( 0*=h8+3q[M,E>;g!=h8+3qClassPgv3+3o VBInternal33 y  00,$( CreateWindowEx user32 CreateWindowExA  ShowWindow ShowWindow 0 DestroyWindow DestroyWindow PSetRect SetRect 9pDrawEdge DrawEdge  FindWindow FindWindowA  GetDC GetDC Q!GetSysColorBrush GetSysColorBrush "FillRect FillRect "Sleep kernel32 Sleep DWG Files ##0Caption FillColor BackColorClass_TerminateShowProgressWindowDestroyProgressWindowProgressMeterPos xh 00(    Copying #ҋB `  Layer Keys...siCS Updated  with new Layer Keys! Binning s LayerKey Tools l) in procedure cmdCopySelected_Click of Form UserForm1  V      `  $coBB$co** Browse "s Layer Key Tools  *.dwg dwg ,,LL, $,0<HGetOpenFileName comdlg32 GetOpenFileNameA ,,GetSaveFileName GetSaveFileNameA ,-(GetShortPathName GetShortPathNameA #i.H ((Pi D\system3 , \ c:\ AecLayerStd.dwg &RLB Layer Key Tools     , 0    P  h p   iCSiCS22iCSbPbCMƅ;IiCSkiCS2(GL^r Open Read Only? "s LayerKeys ToolssCiK˥*e~ǔ{MZȠrClass_InitializeLayerStdFolderNameDocumentCleanupLayerKeysInStyleOpenDoc Initialize KeyStylesgĤIx8< GetKeyStylesGetKeyStyleFromName LayerKeys GetLayerKeys 44h 48<@DHLPTX Error Opening: "Please try again!xiCS 8!%iCSMr ׋CBBKDAKP88 HLayer Standard 1 Selection Complete.   <Please Select Layer Standard 2 HAutoClosing this message (3 seconds)!5OՊ ƏYl|pj).` BProblem Retrieving Active Profile s Layer Key Tool  w  Save Drawing: ? $RLB LayerKey Tools  #32770  P iCSQ>-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 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!6e6Jzذ_7^A"`\9FE5T7)O "ASFNΨM NcMP p) in procedure GetKeyStyles of Class ;1Cb iAi00}#0C# 50 69860B1AA-CB5A-4C62-9B53-F6336F952A1B6DOCUME~1@\rbinnu\@LOCALS@Temp\VBE\T.exd $@ IWs ZRuIIm`gLJb@La`:yKx RAF935DC20-J1D0-ADB9)C04FD58A0@Kwshom.ocx#W@indows$K Host8Mod,el@bJAecXUIArchBasr A cXUIA cB`sh `aE7BAE200-BF69-431B-9131FF0DEF8F61@3}#5.5tProgram F i \ArCAD iitLu 8F\bxAEC al Applicz%T @‹GE`4+n@@"5 54 `&1??4u2.@>dMڍ`3/Aq/bs ThisDrawGdi`~ZD fad2G7H1BtA,Z"+RBlUser1[1:GRIUpQb1k2o@e1 (z~cls_ՌDG7cl_G:2M!r m bo p monDialogPPG@ m0u(nDYa ohgMd0dN2 y !Q%RessBarS%P$ sq2r S%f_/Xv2sb1s1 3 3&tyACrU ( 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 K p L\AEC\5.5\General\Tools\ToolContentRoot[;K X<Їm Q :S<S<S<49c3d38fLayerKeysModt`x`x0%>cMy8.෉FCMxCAb*f5[jJ@a/dXj6׋c Gu c%m5K@ tHǁ@RhcmLeftAutoCAD"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^LKStyle2 LayerKey080UserFormNFrame1Label1,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_B_var_Dictionary%)!7  "lJV"&8bb   "lJV"&8bb (<:((h)($`8$A`-$`1,`5(anhrU  a=)i!QA"" = $@l9a  WWD h $ @ `$ @ X$ @ \$ X(d!d <($  L<dhD4lDH4lH^0q<L lDhXld2HDd <d^q;gx[M,E>;gƺjO( 0RHR00RRME( PSS S@b@>"<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}`B` B%b` hdxh<hfhh hjhlhnhf ''''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( !!iB BBhBBBB@B @h h h8 h "H @ %@% @%b`@bh@( A h|+`  Ni  A h|+ Wi  A@ h8|+ $ ^i  A h|+ ( ei   `|k8i @ `Hk,o L8 @ %  `|k0 ~ `Xdk 4i  i`x@  %B\x CB^CB BBBB@BBB bh4 @"P 8 @bX@b \@b d@ H @  h P @@x  P P @ @  h` 0  x<)P))00;L;l; X0H\^x`@H |E@D $qx u0u@ |vpPxdxx@܀ (@@t t@d Ќ,L@HP    x<@;I $*\Rffff*0=49c3d38f(*\Rffff*0=49c3d38f\0(*\Rffff*0=49c3d38f\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 procedures]DP ]Dx ]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 Want a Raised look?]D How about both?]D  @~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@You have to have these]D ]D@]Dh]D To get this]D    @~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@The Rectangle type^^ ^ ^8 p]@@]@h]@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 applyre:to us! We are not going to use the window for anything but3display! If you have trouble with #32770 try STATIC------0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@mi  \#32770  ^d< $x ' L Bin  `A@ P $'l A@ and e   $A@    A@--oxGoodbye window!--@ A@---o@4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@3 | This is the procedure to position the progress |Module3 | Rectangle (FillRC), the arguments are the for |------3 |The current count, and a optional sleep interval|------4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ 8/3/2 ]  'icha  (T  A@ut the   $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! > %(aa!0 ( .a ,n------------------------rU~| panupfrom DateTime : 8/3/2005 21:rU h$`< (Ah0,h!=$`@(`% vRg ssxNGetOpenFileNameAN<GetSaveFileNameAZd(GetShortPathNameALxRRLLMEP(@:> < <0  C PCCC C C  C @C"HC&pC*C,@C0C40C6Cʘ8(C%:hh@h<Xh h>0h@H h`hxh h$$see h((h,,h0021:1h44hB 88hD8::hP<<hFh@@hHDDhJHH@%+ p )LA%+P(p`( )LA%+RPpP iTiViXXC C (@CxCCC C $hC(C.C2CʘX 8C@xp@X (0 hX0HP00 P28I $*\Rffff*0<49c3d38f(*\Rffff*0<49c3d38f\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?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''> 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. ?''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']$0]$ X]$  ]$@>]$(X]$P]$ ]$x]$]$ ]$]$ ]$]$ ]$4 see comments]$@]$H ]$hie]$p21:1]$ A]$@]$]$]$]$]$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--dFolHder()1SS trDim strAcf1RelVERCurV 0T9Const lsfRoot"HKEY_CURRENT_USER\Softw\@odeskCAD\RГ!FLimbA\DPMogs\ADT_DEFAULT@FNAME\$BDdi/0Ah )=0` -##(`1#,`5=,A `D=0 `H1=I8 `9i=I=8  `L=I= nin`ϣ-Σ;FrU ` 8Yy> y >>)>AA18 @A:a/BBB4 D1 E*1=E9IF18!&*FGx HY8HIJK!6 LMNIN44@\9a   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</ ,MAKlh8 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$/ 4xht8 dplD$\\    w ,<p i|3|44msodsCiK˥*e~*=h8+3qǔ{MZȠrxǔ{MZȠrsCiK˥*e~ME@ <8(,SS S91911 1(10189@< 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---------------------------------------------------------------------------------------`]@]@]@]@ ]@( ]@P ]@x ]@ ]@ ]@ @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! % '5!!'q0  \Curver7'?& "\Profiles\"  \ '; & strAcRel & lsfLimb &\AEC\5.5\General\Tools\ToolContentRoot7Layers\'qmpW--------------------------------------------------------------------------------------- Property : Document DateTime : 8/3/2005 21:09 Author : Richard L BinningE 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 Binning w5 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 : Cleanupfrom DateTime : 8/3/2005 21:09Se Author : Richard L Binning(T* Purpose : empty out the reserved memoryW---------------------------------------------------------------------------------------nn(...zError .!0 ( .!23) in procedure Cleanup of Class Module cls_LayerKeyA@,9iW---------------------------------------------------------------------------------------ow Property : LayerKeysInStyle initi DateTime : 8/3/2005 21:10ult fi Author : Richard L Binning*foS Purpose : Return a dictionary containing all the keys contained in the submitted R layerkeystyle. The scripting dictionary allows for easy verification.W---------------------------------------------------------------------------------------  .Fc:\dXWith 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@,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---------------------------------------------------------------------------------------]  Gzj   !%.  p%   pB@k .'8zx p Just pass it back out .!0 .!0 .! .!2 .B@k  z  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---------------------------------------------------------------------------------------( !l.,. B@    !7 ! !C@kq zxError .!0 ( .!26) in procedure Initialize of Class Module cls_LayerKeyA@,ipW--------------------------------------------------------------------------------------- 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@,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 nrU~|  pME ;{st$xME(1"~6 P0EPH@%PH%ph%x%%| @h| %(@@Sx h@@q@@@xP(( P(I *\R3*#6$*\Rffff*0=49c3d38f$*\Rffff*0>49c3d38f*\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 cedure showformnew of VBA Document ThisDrawingA@,oXrU x`)p0!Ai )",$pAY(DpA@Qhpy4< p 4, p!A(i!pA(A"p)8"p VERSION 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,(dcmdCopySelected%4$+#Frame4CompObjpfo`CompObjpfoCompObjpfo!{CompObjypVBA_Project_Version(__SRP_5/&  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qAH,B,5Tahoma$(Source Drawing Files5TahomaAH,B,5Tahoma((Source Layer Key Styles5Tahoma4H * } Source( 8ComboBox4i1(2DLabel1f-( 8ComboBox1i1(*2HLabel7r  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qAH,B,5Tahoma$(Target Drawing Files5TahomaAH,B,5Tahoma((Target Layer Key Styles5Tahoma4H )} Target( 8ComboBox5me.(2DLabel5K,( 8ComboBox6me.()2HLabel6#  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qa! ,,$ 5Tahoma \H '0}.>#Comparison View (Layer Keys missing from Target),$'`ListBox1  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8FF0Enable OverRides5TahomaDH -}.LayerKeyStyle Optionse0( ,XCheckBox1erR$ acyA4( $(pY(h0(Ah!((h%() 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(o_. ).Addt,] 5 *.ao7m;#ev8nXQC#Bn炠Ϙr.Ϙɘ ߘޘi -Openn1:cn, ROB A0vRo_XU Qmm ' m`*jch n draw:is notmreadg(P f Hoaecbapps docDnt2'q(6col;j-*XPUAp$ /, 4[l[.DCatxcheD@= 0lSRai bw,SourceHDsMM LOOrLKKgKI 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„" 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@Cn><=G>st0F `` (]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 xi0l\ L x P 1t XD H ` x < T اT04tp `@  ,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/ 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/ X4xhltpd)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\ L P t D H ` x < T T04tp `@  ,,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@9l 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 ZdXt4< l\(DHp0- Bplp C>l1xcp/ 00xptlX8@\ H <   <<W      !"#$%&'()*+,-./0123456789:;<=>?@ABCDFGHIJNLE~<<<4<<$<*<6< H<     4  $XA   B ( ( 8 @HB PX/`?x    "  RV  x        tWhp x  "  8  B  08@H X h pxB  6  $  H PX "`)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--------------------------------------------------------------------------------------- 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... |( ! |( |( |( |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{787F0E41-17FB-4C28-88B1-349C75D0B891}{26E83C86-420F-4385-9FDA-26CD87EF8B77} 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)_, 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,!irray|) & i LBouDndo UtNhoZs CAir0rSLSS6"<$<<<<<(<,<0<4<8<<<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} 8 % $`@X%pj"4 @ %x, `x @t 0p @l @h @d br@` @\ WS@L nu@< A6, C:@ il Fi@ Sh oxHXXD I $*\Rffff*0u49c3d52b8 ^ .` " $ 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 showformnrU @ ) y 8A\ / o K$K~'' ',t xx lt#p*#l*#`d hh ,ld*#\*FL 2 pl`d\)xh6L, $ 8 pld`\xhL,  4 MLz sZ#@f%JIm(>ӕzyL$jq#?'~O׊Kx?'~O׊Kf%JIm(>ME       !"#$ew 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`End8024-EB6AF271231C} 8 % $`kX%pj"4 @