ࡱ> Root EntryWHU$apc7WHUThe VBA Project 7WHU_VBA_Project 7WHU R$U !#(%&'S)*+,:;=>?@ABCDOTVWRoot Entry: $apc7: The VBA Project 7: _VBA_Project 7:   L$ P-%&'M/012345689EFGHIJK NQXHost Project Item Names0 7 VBA Project Data"Host Project Items&4VBA Project Signature, H  !"#$%&'()*+,-./012345689:;<=>?@ABCEFGJZKLMNOPQRSTU{EiThisLibrary*{Gi5{HiL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ Ii L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{Ji";{`Ki$={Ki&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}D\\ursv010\swx_apps$\Vorlagen\MakID="{8A0D3F58-F074-4897-B075-747F28280EF7}" Document=ThisLibrary/&H00000000 Module=Macro21 Name="Macro2" HelpContextID="0" VersionCompatible32="393222000" CMG="3133F9FFFDFFFDFFFDFFFD" DPB="84864C1DCC71CD71CD71" GC="D7D51FCE2172757375738A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Macro21=250, 250, 1051, 1018, Z ros\Komponentenreferenz\F setzen,(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H(%H0(4CD3-B6CF-2EB42C11F989}#12.b:\Program Files\SolidWorks .swpRdWorks\swconst.tlb#SolidWorks 2010 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swcommands.tlb#SolidWorks 2ThisLibrary7 Project_Data_CurVer( I Host Project Item List Data8VBA77PROJECTwm>PROJECT _VBA_PROJECT.ThisLibraryDThisLibraryThisLibraryMacro21Macro216@rU tj3P9 J < stdole>stdole( h%^*\G{000K*mrU~~~~~~~~~~b aM;C&b)  A 1 dir7-Project Item Data$V Control List Data$  ReqControl List Data*  __SRP_1FReqControl List Data*Y Control_Data_CurVer(X Control List Data$W(Macro217__SRP_2 __SRP_3s__SRP_0tSelectedObjectCount ,GetSelectedObjectType28GetSelectedObjectsComponent2Y='@We='@W M* Component reference added to the component to which the selected entity belongs:   F K0#0#C:\Prog)0* pHdMacro2$@T=j j3P9 J < stdole>stdole( h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`SldWorks>CdWGrksH H83A33D31-27C5-11CE-BFD4H400513BB 57}#1IProgram FiDleLoli5 @Corp\S\psldwBUH 2010 Type LibrarFyCSwConst>BwCZnuYtZ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893-wcA ,6B-&ant t5/l/ A,/mmhand^D0mman_@10AC1DE9F-3FBC125-868D-7D4E9139CCE01/"22 'SWUtilitiHost Project Item Names0 7 FUVBA Project Data"Host Project Items&4VBA Project Signature, H  !"#$%&'()*+,-./012345689:;<=>?@ABCEFGJZKLMNOPQRSTU{`\iThisLibrary*{\i5{`]iL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{]i L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{`^i";{^i$={`_i&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}D\\ursv010\swx_apps$\Vorlagen\MakID="{8A0D3F58-F074-4897-B075-747F28280EF7}" Document=ThisLibrary/&H00000000 Module=Macro21 Name="Macro2" HelpContextID="0" VersionCompatible32="393222000" CMG="0B09C35F5563556355635563" DPB="999B516252625262" GC="2725EF63F37F808080807F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Macro21=250, 250, 1051, 1018, Z Z ros\Komponentenreferenz\F setzen,(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H(%H0(4CD3-B6CF-2EB42C11F989}#12.b:\Program Files\SolidWorks .swpRdWorks\swconst.tlb#SolidWorks 2010 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swcommands.tlb#SolidWorks 2ThisLibrary7 FUProject_Data_CurVer( I Host Project Item List Data8VBA77PROJECTwm>PROJECT _VBA_PROJECT"ThisLibraryDThisLibraryThisLibraryMacro21Macro216@rU tj3P9 J < stdole>stdole( h%^*\G{000K*mrU~~~~~~~~~~b stdole( h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`SldWorks>CdWGrksH H83A33D31-27C5-11CE-BFD4H400513BB 57}#1IProgram FiDleLoli5 @Corp\S\psldwBUH 2010 Type LibrarFyCSwConst>BwCZnuYtZ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893-wcA ,6B-&ant t5/l/ A,/mmhand^D0mman_@10AC1DE9F-3FBC125-868D-7D4E9139CCE01/"22 'SWUtilitie2UiieAA37DBD23D17-481A -999541E767BCD1}#7d7.5#s\gtswF&6 L"F!aThisQGaT@viLibr`7ryT2@"H15,","~j""+b`1*Gb`M`c o21 d2v{!! * /F~#xME am (*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Program Files\Common Files\SolidWorks Shared\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#12.0#0#C:\Program Files\SolidWorks Corp\SolidW010 Commands type library>*\G{7DBD21CE-3D17-481A-9995-9941E767BCD1}#7d7.5#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb#Solidworks Utilities 2010 Type Library j3P9FThisLibrary1>503362bfThisLibrary~5Macro211F50336b27Macro21{ @ Kt:kLCI`T`C12+ SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject11z Macro2N ThisLibraryG _EvaluateModul1 Macro21 swAppPart~ boolstatusg longstatusW longwarnings(main, Application*(SldWorks$ ActiveDocڒ myModelView8 ActiveVieww FrameStateswWindowState_ejswWindowMaximizedB Extension SelectByID2CompConfigProperties4ClearSelection2 EditRebuild33 SwConst SwCommands SWUtilitiesswModel[ ModelDoc2^swSelectionMgrɷ SelectionMgr0swEntity2Entity swComponentki Component2SelectionManagerorks\sldworks.tlb#SldWorks 2010 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb#SolidWorks 2010 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swcommands.tlb#SolidWorks 2010 Commands type library>*\G{7DBD21CE-3D17-481A-9995-9941E767BCD1}#7d7.5#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb#Solidworks Utilities 2010 Type Library j3P9FThisLibrary1>503362bfThisLibrary~5Macro211f503371c4Macro21{ v@ Kt:kLCI`T`C?@ . SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject11z Macro2N ThisLibraryG _EvaluateModul1 Macro21 swAppPart~ boolstatusg longstatusW longwarnings(main, Application*(SldWorks$ ActiveDocڒ myModelView8 ActiveVieww FrameStateswWindowState_ejswWindowMaximizedB Extension SelectByID2CompConfigProperties4ClearSelection2 EditRebuild33 SwConst SwCommands SWUtilitiesswModel[ ModelDoc2^swSelectionMge2UiieAA37DBD23D17-481A -999541E767BCD1}#7d7.5#s\gtswF&6 L"F!aThisQGaT@viLibr`7ryT2@"H15,","~j""+b`1*Gb`M`c o21 d2{!! * /F~#xME am (*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Program Files\Common Files\SolidWorks Shared\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlb#SldWorks 2010 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb#SolidWorks 2010 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swcommands.tlb#SolidWorks 2010 Commands type library>*\G{7DBD21CE-3D17-481A-9995-9941E767BCD1}#7d7.5#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb#Solidworks Utilities 2010 Type Library j3P9FThisLibrary1>503362bfThisLibrary~5Macro211f503371c4Macro21{ @ Kt:kLCI`T`C?@ . SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject11z Macro2N ThisLibraryG _EvaluateModul1 Macro21 swAppPart~ boolstatusg longstatusW longwarnings(main, Application*(SldWorks$ ActiveDocڒ myModelView8 ActiveVieww FrameStateswWindowState_ejswWindowMaximizedB Extension SelectByID2CompConfigProperties4ClearSelection2 EditRebuild33 SwConst SwCommands SWUtilitiesswModel[ ModelDoc2^swSelectionMgrɷ SelectionMgr0swEntity2Entity swComponentki Component2SelectionManagerGetSelectedObject6/ GetComponentGetSelectByIDStringComponentReference ForceRebuild35SelectedObjectmi`swSelMgr#%GetSelectedObjectCount $GetSelectedObjectType2wZ swSelEDGESa swSelFACESswSelREFSURFACESswSelBODYFEATURES_ ComponentsGetSelectedObjectsComponent2#_B_var_i _B_var_swSelMgr_B_var_Components-txBDF* $@11111 >  LLLLLLLLLLLLPLPLPLPLPLL<(**g*J*N*R*V %  %@HLPT%`x %t p %p % @x( &`pH88IH8@MpX@Q x@U@d @h ( Hpphrɷ SelectionMgr0swEntity2Entity swComponentki Component2SelectionManagerGetSelectedObject6/ GetComponentGetSelectByIDStringComponentReference ForceRebuild35SelectedObjectmi`swSelMgr#%GetSelectedObjectCount $GetSelectedObjectType2wZ swSelEDGESa swSelFACESswSelREFSURFACESswSelBODYFEATURES_ ComponentsGetSelectedObjectsComponent2#_B_var_i _B_var_swSelMgr_B_var_Components-txBDF* $ h]] ]H]p] (!*.** !,.H**< Get the selected entity (i.e., face, edge, vertex, or loop)b - ma" and get the name of its component H!X.L**pF{xME|@11111 > LLLLLLLLLLLLPLPLPLPLPLL<(**g*J*N*R*V % %(HLPT%@x %@t p %@p % @( &`xpk55IH8@MpX@Q x@U@d @h ( Hpph`@  8j3P9*\R3*#13f*\R3*#1c7*\R3*#159*\R3*#162*\R3*#1ca$*\Rffff*1f503371c4*\R3*#30*\R3*#33*\R3*#11*\R3*#0*\R1*#0*\R3*#30*\R3*#33*\R3*#2*\R3*#11*\R3*#0*\R1*#0*\R3*#30*\R3*#30*\R3*#33*\R3*#33*\R3*#2*\R3*#2*\R3*#11*\R4*#3*\R3*#11*\R3*#0*\R3*#0*\R1*#0*\R1*#3*\R3*#2D     (  "(  0 @  BP (  >h . (  4 " p  2@ 0 f(x  : D@  "8  0 ]] ]H]p] (!*.** !,.H**< Get the selected entity (i.e., face, edge, vertex, or loop)b - ma" and get the name of its component H!X.L**- Print the name of the component to which the the selected entity belongs.F T(`f , Set a component reference to this componentSegmen[QComponent reference added to the component to which the selected entity belongs: T!`(s4 Rebuild the assembly to see the component reference tree o(> beside the name of the component in the FeatureManager designxi Debug.Print "Name of component to which the selected entity belongs: " & swComponent.GetSelectByIDString(( ]X swModel.ForceRebuild3 True . (0  4 " p  2@ 0 f(x  : D@  "8  0 X]] ]H]p] (!*.** !,.H**< Get the selected entity (i.e., face, edge, vertex, or loop)b - ma" and get the name of its component H!X.L**- Print the name of the component to which the the selected entity belongs.F T(`f , Set a component reference to this componentSegmen[QComponent reference added to the component to which the selected entity belongs: T!`(s4 Rebuild the assembly to see the component reference tree o(> beside the name of the component in the FeatureManager designxi Debug.Print "Name of component to which the selected entity belongs: " & swComponent.GetSelectByIDString(( ]X swModel.ForceRebuild3 True