ࡱ> Root Entry =apcT0 = =The VBA Project T0 = =_VBA_Project T0 = =# !"$%&Root Entryd.>@(apcT0 =d.>The VBA Project T0 =d.>_VBA_Project T0 =d.>/ ( '.)*+,-0 1A3456789:;<=>?@BCHost Project Item Names0 n6 =d.>VBA Project Data"Host Project Items&4VBA Project Signature,   !"#$%&'()*+,-./012346789:;<=>@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxz{|}{ 3ThisLibrary*{35{4L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{05 L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{6";{09$={<&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}6C:\Data\macros\ListRefs.swpRID="{50250326-E25F-45B2-A48F-D86540A0A35F}" Document=ThisLibrary/&H00000000 Module=Module1 HelpFile="" Name="ListRefs" HelpContextID="0" VersionCompatible32="393222000" CMG="0002B0B6B4B6B4B6B4B6B4" DPB="4B49FBB247B347B347" GC="9694260F3A11841284127B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Module1=66, 87, 715, 446, Z ThisLibraryn6 =d.>Project_Data_CurVer( H Host Project Item List Data8VBA4 =4 =PROJECTwm>PROJECT _VBA_PROJECT?4ThisLibraryThisLibraryThisLibraryModule1Module116@JrU~~~y  !swApp !swModelbLocksPadStr !(swCompYrksH} sK*m,@0430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#e.0#0#C:\Program Files\SolidWorks\sldworks.tlb#SldWorks 2006 Type Library*\G{4687F__SRP_2~__SRP_3y__SRP_0\__SRP_1dir5]Project Item Data$ Control List Data$d.>d.>ReqControl List Data*d.>d.>ReqControl List Data* Control_Data_CurVer( Control List Data$(Module12rU~~~~~~~~~g  )Kǻ    )A Qi9I91!!Project1 VBAProject2ListRefs ThisLibraryModule1 ListRefs1Class1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  )0l %C:\Program Files\SolidWorks\swvba.tlb SolidWorks @0FC:\WINDOWS\system32\stdole2.tlbstdole  P1='@W (C:\Program Files\SolidWorks\sldworks.tlbSldWorks y`YFUL., 'C:\Program Files\SolidWorks\swconst.tlbSwConst yp ProcessModel"='@W=KęlProcessComponent*o]eATE_imain  llq='@W :Lock all external references? File =    5='@W ,GetActiveConfigurationqVBE6.DLL  S   Locking:  NLock or Unlock all external references: ,Lock/UnLock References istRefs10645388b5Y0* pHdListRefs,@ Z= n t8E %J< rst dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlHost Project Item Names0 n6 = =VBA Project Data"Host Project Items&4VBA Project Signature,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEGJKLMNOPQRSTUVXYZ[\]^_`abcdef{?ThisLibrary*{p15{4L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{p5 L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{`7";{P9$={<&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}6C:\Data\macros\ListRefs.swpRID="{50250326-E25F-45B2-A48F-D86540A0A35F}" Document=ThisLibrary/&H00000000 Module=ListRefs1 Name="ListRefs" HelpContextID="0" VersionCompatible32="393222000" CMG="DFDD6FE6B13A183E183E183E183E" DPB="4A48FA936494649464" GC="B5B7050C1B761C761C89" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C ListRefs1=22, 29, 878, 520, Z ThisLibraryn6 = =Project_Data_CurVer( I Host Project Item List Data8HVBA4 =4 =PROJECTwmDPROJECT _VBA_PROJECT- ThisLibraryWThisLibraryThisLibraryListRefs1ListRefs1J\0* pHdListRefs,@ Z= n X8E %J< rst dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation `nSldWorks> "SCdWGrksH} sH83A33D31-27C5-11CE-BFD4H400513B@B57}#eHProgram Files\Sol6@,xME`` l.sw  ReqControl List Data*i Control_Data_CurVer(h Control List Data$g(ListRefs1Fdir`Project Item Data$ Control List Data$ = =ReqControl List Data* = =i5\sldw9M@ 2006 Type Lib0rary:SwConst>wCQnPtQ SQ4687F359-55D0-4CD3-B6CF-2EB42C@11F989Qw>c(.)"ant tA+lI+GB 'This5G,@zi@/Libray 2 (HB1%XB,B O9"B+B 1G AR@f$1! 2 O 9P l!C *\G{801A00am  *\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{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Program Files\SolidWorks\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#e.0#0#C:\Program Files\SolidWorks\sldworks.tlb#SldWorks 2006 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#e.0#0#C:\Program Files\SolidWorks\swconst.tlb#SolidWorks 2006 Constant type library X8EGThisLibrary0545388b57ThisLibraryO9%ListRefs10645388b57ListRefs1l 9@ GPG`l#RPLw& SolidWorks;VBAWin16~Win32MacVBA6#Project1 stdole` VBAProject2KListRefsF ThisLibraryG _EvaluateModule1b ListRefs1swAppmain, Application*SldWorks$SwConst`"$  $t{3Gl"  0] !". oXPsAttribute VB_Name = "ListRefs1" Dim swApp As Object Sub main()$ etD= Plication.SldWorks End f GO9#xME (SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}8(%HxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2bb#OLE Automation `nSldWorks> "SCdWGrksH} sH83A33D31-27C5-11CE-BFD4H400513B@B57}#eHProgram Files\Soli5\sldw9M@ 2006 Type Lib0rary:SwConst>wCQnPtQ SQ4687F359-55D0-4CD3-B6CF-2EB42C@11F989Qw>c(.)"ant tA+lI+GB 'This5G,@zi@/Libray 2 (HB15XB,B OT9"B+BRModule1GRMQduŸ1@ [2OO!H#RPLwam  *\G{000204EF-0359-55D0-4CD3-B6CF-2EB42C11F989}#e.0#0#C:\Program Files\SolidWorks\swconst.tlb#SolidWorks 2006 Constant type library t8EGThisLibrary0545388b57ThisLibraryO95Module10945388b99Module1X xXGPG`@wjp7#L/QCE.Unlock SolidWorks; VBAWin16~Win32MacVBA6#Project1  stdole` VBAProject2K ListRefsF ThisLibraryG _Evaluate Module1b ListRefs1swApp(main, Application*(SldWorks$ SwConstClass1+(swDocumentTypes_eNA swDocNONE  swDocPARTM swDocASSEMBLYn swDocDRAWINGV swDocSDM(swComponentResolveStatus_e swResolveOkJ swResolveAbortedByUserCv swResolveNotPerformed[ swResolveError; (ProcessModelyswModel[ ModelDoc2^bLockqsPadStrT GetPathNameLockAllExternalReferencesUnlockAllExternalReferences(ProcessComponentswComp Component2 vChildCompArr[~ vChildComp# swChildCompm swChildModel GetChildren6Name2 GetModelDocswAssyI AssemblyDocswConf configuration swRootComp7nStatus  nResponsesbRet\ ActiveDocڒGetActiveConfigurationUGetRootComponentDMsgBoxRvbYesNovbYesa?GetType)JResolveAllLightWeightComponentsSo vbQuestionvbDefaultButton1vbDefaultButton2`"$  $ A@@@rU D`=a=#0D`!=a=#0$`nrU~|   1000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Program Files\SolidWorks\swvba.tlb#SolidWorks Extensibility Type Library*\G{0002  ! I Y I X/xH l*#tlx*#p 2txpF H x R H |  X$ xtp0   X$ 8lX=xXXx lX=tXXt lX=lXXl lX=hX7'':(N:HN88^pb68kbp`p`&t l l*# 2t plql* C`tx /l lt= pp lqdpW8l58Xl lX=hX C`hx /8 ltxph(X8a/GO9#D0 (DGxRRRRMEX @H(H4111!! > LPLPLPLPPL<\<``ppkp ) p%)ApYPE_ %iD YPE_iF N@` @)`hW%)Q':%iD iF Lo`T `V X% Z8 % `H,,2 x% At % cp% gl% kh%`ld`nb`D` `p^ j*Cj,Cj.Cj0 Cj2Cj6pCj8Cj:Cj<Cp@ 0Hh%P h`XXx|,>.NX0X @H 8 @(  @  @ X@ X( @ @ @ @(x @@t @p  0@@t8E*\R3*#10b*\R3*#192*\R3*#195$*\Rffff*0945388b99(*\Rffff*0945388b99\0(*\Rffff*0945388b99\1*\R3*#111*\R3*#141*\R1*#3*\R1*#0*\R3*#0*\R3*#0*\R3*#11*\R3*#11*\R3*#5c*\R3*#5c*\R3*#2d*\R0*#1*\R0*#14*\R0*#2*\R3*#7f*\R3*#7f^ . T0  $$(($8` hpx "<"&/     "<" ( P ` p         0 "8 @ P ` p       f@  (08 &@  `p x           . '---------------------------------------1M How to recursively lock/unlock all external references in a part or assemblyxp '* Used to be TYPE_NONEle', Used to be TYPE_PART'. Used to be TYPE_ASSEMBLY'0 Used to be TYPE_DRAWING'2 Solid data manager.W '6'8':'<h 0[ F Locking:  @!H D @B@Jd @B@Lko ]D$]D$]D$]D $ P!\'T V T V.X[ F X!^  X D F A@N X!`.Z  Z D FA@> Vo@]D$]D$]D$]D$]D$]D $]D8$]DP$]Dh$ !". !r.@ @!t.f f!v.j n |'Dd'Dk[File = @!H @!~ ,KT  @ D A@> .KT @.b b%'l b!t.f f!v.j  j D A@NS|no'---------------------------------------:Click Yes to lock or No to unlock all external references: zLock/UnLock References$x'n0 PIAttribute VB_Name = "Module1" '-#R How to recursively l@ock/un all externalHferences in a part or assembly Option Ex@plicitPub Enum swDocumentTypes`_e NhONE0'@ Usedbe TYPE_!0PART1ASSEMBtLY20D@RAWING34KSDM4Solid data manager. EndComponResolveStatuOk0AbortedB*yOr1NotPerform@W= 2Errt= 3'SubP Pros@el _ (8swApp As SldWorks., Be2F bLB@ooleanP`adStrn g).Debug.Print s & " ing:&.GetPathG̓CIf TxhenC6C AllEReƒ Els Uљ IfZXY:ZAb%1f -f(A5n-im vChild! Arrh`Varian@DDsw fLg0a d6iAOC =@FA !F`FdEach(!8 In"#ASeRH='Y".aWv Gt# s,E6,\`)e+ c)!A"%(#fb#N j#bmain(e~Joi=F DCqDCAssy nC`LConfciguraRoot;/i {D"q n#dLhongndgseAIntelS\R01S(Qf= PvfY+.Actpf-a,cAQ1EzS= MsgBox("C0 k Y•PDNoϖɖ:", vb No, "h/Una Wh"d1Pl b m= Tru$kkFa6mq8I`j9J"Fizl OvSSelect Ca%swq1E6EL7uC=V!_ Q3q.ՖllLightWeQ7s(de+C$P pE((@Us))E b!QZ%#QExit [P{'?1xME (SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H(%H0(8t8ExAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2b