ࡱ> Root Entry8@7apcp7b 8The VBA Project p7b 8_VBA_Project p7b 8"S !#$%&46L89E;<=>?@ABJFGXKRVTU7[Root EntryP)\@7apcp7b P)\The VBA Project p7b P)\_VBA_Project p7b P)\  ' O()*+,-M/01235C89EDHFGYINWPQ7ZHost Project Item Names0 b [VBA Project Data"Host Project Items&4VBA Project Signature, H  !"#$%&'()*+,-./123456789:;=>?@ABCDEFGKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstzvxy{|}~{;ThisLibrary*{<5{0=L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{= L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{>";{@?$={?&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}<H:\ck\swx\macro\AddCompRef.swpID="{170ECEEF-C2FA-419E-B915-3DDA7B0CB2F9}" Document=ThisLibrary/&H00000000 Module=AddCompRef1 Name="AddCompRef" HelpContextID="0" VersionCompatible32="393222000" CMG="E1E3D61EDA1EDA1EDA1EDA" DPB="EAE8DD16E717E717E7" GC="F3F1C421CC22CC2233" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C AddCompRef1=25, 25, 984, 667, Z Z Z R6@,\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#12.0#0#D:\Programme\SolidWorks2010\SolidWorks\sldworks.tlb#SldWorks 2010 Type Library*\G{4687F359-55D0-4CD3-B6CFThisLibraryb [Project_Data_CurVer( J Host Project Item List Data8IVBAp7b p7b PROJECTwmJPROJECT _VBA_PROJECT<fThisLibraryThisLibraryThisLibraryAddCompRef1AddCompRef1rU t $P J< rstdole>stdole h%^*\GK*mrU~~~~~~~~~~` .:GC[  A Ydir0Project Item Data$ Control List Data$[[ReqControl List Data*[[__SRP_1FReqControl List Data* Control_Data_CurVer( Control List Data$(AddCompRef1.S__SRP_2w__SRP_3uw__SRP_0 䲀0* pHd AddCompRef4@j = r $P J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`SldWorks>CdWAGrksH H83A33D31-27C5-11CE-BFD4H400513BB57}#1ID:\Programme\Soli32010\sldw?SF  Type Library#@SwConst>wCWnVjtW W4687F359-55D0-4CD3-B6CF-2EB42C11F989+ROGRA~1\SOLIDW swcC)3)B#ant t,l , "SWUtilitieYVXU~i[ie[/ 7DBD2X3D17-481A-999541E767BCD1}#7d7.5g["s\gtsw%[G5b aK 9ThiskG9 Ti6Li bray* 2 @C HB15B,B %<"]B+BC#1C#AdŠmpRmf1;!jibrary0550am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\PROGRA~1\COMMON~1\SOLIDW~1\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*Host Project Item Names0 b 08VBA Project Data"Host Project Items&4VBA Project Signature, H  !"#$%&'()*+,-./123456789:;=>?@ABCDEFGKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstzvxy{|}~{4ThisLibrary*{055{6L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{09 L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{0;";{;$={<&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}<H:\ck\swx\macro\AddCompRef.swpID="{170ECEEF-C2FA-419E-B915-3DDA7B0CB2F9}" Document=ThisLibrary/&H00000000 Module=AddCompRef1 Name="AddCompRef" HelpContextID="0" VersionCompatible32="393222000" CMG="BCBE8B3C9D01A101A101A101A1" DPB="8587B277B241B341B341" GC="4E4C794A8BDA55DB55DBAA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C AddCompRef1=25, 25, 984, 667, Z Z R6@,\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#12.0#0#D:\Programme\SolidWorks2010\SolidWorks\sldworks.tlb#SldWorks 2010 Type Library*\G{4687F359-55D0-4CD3-B6CFThisLibraryb 08Project_Data_CurVer( J Host Project Item List Data8IVBAp7b p7b PROJECTwmJPROJECT _VBA_PROJECT<fThisLibraryThisLibraryThisLibraryAddCompRef1AddCompRef1rU t $P J< rstdole>stdole h%^*\GK*mrU~~~~~~~~~~` {uG1MLRH  A Ydir0Project Item Data$ Control List Data$0808ReqControl List Data*0808__SRP_1FReqControl List Data* Control_Data_CurVer( Control List Data$(AddCompRef1:o__SRP_2w__SRP_3uw__SRP_0 䲀0* pHd AddCompRef4@j = r $P J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`SldWorks>CdWAGrksH H83A33D31-27C5-11CE-BFD4H400513BB57}#1ID:\Programme\Soli32010\sldw?SF  Type Library#@SwConst>wCWnVjtW W4687F359-55D0-4CD3-B6CF-2EB42C11F989+ROGRA~1\SOLIDW swcC)3)B#ant t,l , "SWUtilitieYVXU~i[ie[/ 7DBD2X3D17-481A-999541E767BCD1}#7d7.5g["s\gtsw%[G5b aK 9ThiskG9 Ti6Li bray* 2 @C HB15B,B %<"]B+BC#1C#AdŠmpRmf1;!jibrary0550am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\PROGRA~1\COMMON~1\SOLIDW~1\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*-2EB42C11F989}#12.0#0#D:\PROGRA~1\SOLIDW~1\SOLIDW~1\swconst.tlb#SolidWorks 2010 Constant type library4*\G{7DBD21CE-3D17-481A-9995-9941E767BCD1}#7d7.5#0#D:\Programme\SolidWorks2010\SolidWorks\sldUtils\gtswUtilities.tlb#Solidworks Utilities 2010 Type Library $PK ThisLibrary05509117ffThisLibrary%<5AddCompRef13850913137AddCompRef1; @ ~[O`blBzc=xv;=-sub SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject3K AddCompReff ThisLibraryG _EvaluateModul1 AddCompRef1rswApp(main, Application*(SldWorks$ SwConst SWUtilitiesswModel[ ModelDoc2^swSelectionMgrɷ SelectionMgr0swEntity2Entity swComponentki Component2 ActiveDocڒSelectionManagerGetSelectedObject6/ GetComponentGetSelectByIDStringComponentReference ForceRebuild35_B_var_SelectionManager_B_var_GetComponent  _B_var_Entitym_B_var_Component2 tGetSelectedObjectCount2i4Mark-iSelectionCount_B_var_iSelectionCountMsgBoxRi`_B_var_GrU $`n4!BrU~|  -2EB42C11F989}#12.0#0#D:\PROGRA~1\SOLIDW~1\SOLIDW~1\swconst.tlb#SolidWorks 2010 Constant type library4*\G{7DBD21CE-3D17-481A-9995-9941E767BCD1}#7d7.5#0#D:\Programme\SolidWorks2010\SolidWorks\sldUtils\gtswUtilities.tlb#Solidworks Utilities 2010 Type Library $PK ThisLibrary05509117ffThisLibrary%<5AddCompRef13850913137AddCompRef1; @ ~[O`blBzc=xv;=-sub SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject3K AddCompReff ThisLibraryG _EvaluateModul1 AddCompRef1rswApp(main, Application*(SldWorks$ SwConst SWUtilitiesswModel[ ModelDoc2^swSelectionMgrɷ SelectionMgr0swEntity2Entity swComponentki Component2 ActiveDocڒSelectionManagerGetSelectedObject6/ GetComponentGetSelectByIDStringComponentReference ForceRebuild35_B_var_SelectionManager_B_var_GetComponent  _B_var_Entitym_B_var_Component2 tGetSelectedObjectCount2i4Mark-iSelectionCount_B_var_iSelectionCountMsgBoxRi`_B_var_GrU $`n4!BrU~|  1Y ) ) <x$ 8lx=etSelectedObjectCount2jabcTA| ColumnCount$bcArr5 DisplayedTextoGetComponentDebugd!_B_var_i GetSelectedObjectType3xZiSelectionTypeGetSelectedObjectsComponent3#sComponentReference vbOKCancelx?InputBox _B_var_SldWorks,Wl"$&$K %<#/K %<#xME ($ | |K ;xME@111> 1 P  <x  1Y ) ) <x$ 8lx=etSelectedObjectCount2jabcTA| ColumnCount$bcArr5 DisplayedTextoGetComponentDebugd!_B_var_i GetSelectedObjectType3xZiSelectionTypeGetSelectedObjectsComponent3#sComponentReference vbOKCancelx?InputBox _B_var_SldWorks,Wl"$&  "P(0 Z  2    : D8    ]]]@]P !". !8.( Get the selected componente., fa# Get the number of selected objects get t (!:.,], Set a component reference to this component4 Rebuild the assembly to see t$K %<#/K %<#xME (xME (SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H(%H0(8$PxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2Anzahl der SJn Objekte: " & iSelectionCount`p` ,Attribute = "AddCompRef1" Dim swApp As SldWorks. >ModebDSelection8Mgr ,Entity & onent #uE)ivCou-Integer Sub mai(n() Setx= {lic^aZy{=.2Aovey%' G&the sqed Xl(i.e., face , edgvertex, or` loopG3'@ and g#nof its ~cт \ LQ.1 ana~.MsgBox}sw .-edObjmType3(1, -1& OW[a2(' "Anzahl der Akt$ieDn  kte: " & +!CFNi21 |To -x,6(iH>,  K ;xME@111> 1   <x   "P(0 ZH  2    : D8    ]]]@]P !". !8.( Get the selected componente., fa# Get the number of selected objects get t (!:.,], Set a component reference to this component4 Rebuild the assembly to see the component referenceC> beside the name of the component in the FeatureManager design tree (B@Do X Ri, j) ` ,%N'Rmpon] X ,%n.4bjekts6MsgBox "Count of selected Objects: " & iSelectionCount] p 4(BsswoXH h SMsgBox "Name of selected component (" & i & "): " & swComponent.GetSelectByIDString=iSelectionType = swSelectionMgr.GetSelectedObjectType3(1, -1)swMo8MsgBox "Typ des selektierten Objekts: " & iSelectionTypex(%Wert fr Komponentenreferenz eingebenKomponentenreferenz r$t'p 'ѲAttribute VB_Name = "AddCompRef1" Dim swApp As SldWorks. >ModelC B"Doc2DSelectionxMgrhe component referenceC> beside the name of the component in the FeatureManager design tree (B@Do X Ri, j) ` ,%N'Rmpon] X ,%n.4bjekts6MsgBox "Count of selected Objects: " & iSelectionCount] p 4(BsswoXH h%Wert fr Komponentenreferenz eingebenKomponentenreferenz r$t'pente SMsgBox "Name of selected component (" & i & "): " & swComponent.GetSelectByIDString=iSelectionType = swSelectionMgr.GetSelectedObjectType3(1, -1)swMo8MsgBox "Typ des selektierten Objekts: " & iSelectionTypex(ͲAttribute VB_Name = "AddCompRef1" Dim swApp As SldWorks. >ModelC B"Doc2DSelectionxMgr ,onent )T)"iNC& 9Bـpo(56")8swAbByIDSngHLt aDŽ reference to thiʋ$If~$`testTEST#NextG]Rebuild e assemblyse`@`g' bexsid%\f'in Featur eMCX@Esign!treesw^`Bce3 Tru"E jSub /K %<#xME (SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H(%H0(8$PxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclajekte: e='@W*o]eATE_i pName of component to which the selected entity belongs:   ,TestComponentReference* Component reference added to the coUCou-In teger TylpeL s(vePrencSng Sub @main() Set= licak=.Ave A= InputBox("Wert fr KʂenrefVz eingeben", " vbOKtCanlb<>' G3the number of sded objls)=Jq5B8.anaB_i7aA .@ edOB 3(1, -1,'Msg@C " des(ktiFen A kts: " & K.CG" 2(!JC.  A !For i1 To* GNAhecA gFswX3(i$- - (- .")#/swg:ByIDi!a r !a D[qto thisg) fGx;#NextEz' Re build e assembly seeb' besidnA%i'inBFeatureM##dXigntrdeeswj@Ece3 Tru"End Sub 1D3-A8BD-0000861EBBD6}H(%H0(8$PxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A ,onent )T)"iUCou-In teger TylpeL s(vePrencSng Sub @main() Set= licak=.Ave A= InputBox("Wert fr KʂenrefVz eingeben", Z_'""vbOKCaqle#@B' G@5the number of seed obj@nsC? s7:.anaajbA .@ 1edOB 3( 1, -1,'M$sgE " dDes(ktiHen A kts: " & K.CGÌ" 2(!JC.  !For i@1 To* GNAhecŃA ggswXO3(i$- -bL (- .")#/swg:ByIDj!a !a $\qto thisg) f'y;C#Next%{' Rebuild e assembly seeb' besidn!%i'inBFeatureM#dXign!treeswj@Ece3 Tru"End Sub 61EBBD6}H(%H0(8$PxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-ASLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H(%H0(8$PxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-ASLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H(%H0(8$PxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2mponJ!des selektierten ObjektsT  JWert fr Komponentenreferenz eingeben 3 Bitte den Wert welcher als Komponentenreferenz eingetragen werden soll in das Eingabefeld eingeben HA ThisLibrary AddCompRef1 AddCompRefF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  A0l 'C:\PROGRA~1\COMMON~1\SOLIDW~1\swvba.tlb SolidWorks 9@0FC:\Windows\SysWOW64\stdole2.tlbstdole 1yP1='@W 3D:\Programme\SolidWorks2010\SolidWorks\sldworks.tlbSldWorks 1`YFUL., )D:\PROGRA~1\SOLIDW~1\SOLIDW~1\swconst.tlbSwConst Ap!}=HAgAD:\Programme\SolidWorks2010\SolidWorks\sldUtils\gtswUtilities.tlb SWUtilities 9main   ll"='@W=Kęl JWert fr Komponentenreferenz eingeben &Komponentenreferenz Y='@W*o]eATE_iVBE6.DLL  T - ! 8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2mponJ!des selektierten ObjektsT  JWert fr Komponentenreferenz eingeben 3 Bitte den Wert welcher als Komponentenreferenz eingetragen werden soll in das Eingabefeld eingeben HA ThisLibrary AddCompRef1 AddCompRefF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  A0l 'C:\PROGRA~1\COMMON~1\SOLIDW~1\swvba.tlb SolidWorks 9@0FC:\Windows\SysWOW64\stdole2.tlbstdole 1yP1='@W 3D:\Programme\SolidWorks2010\SolidWorks\sldworks.tlbSldWorks 1`YFUL., )D:\PROGRA~1\SOLIDW~1\SOLIDW~1\swconst.tlbSwConst Ap!}=HAgAD:\Programme\SolidWorks2010\SolidWorks\sldUtils\gtswUtilities.tlb SWUtilities 9main   ll"='@W=Kęl JWert fr Komponentenreferenz eingeben &Komponentenreferenz Y='@W*o]eATE_iVBE6.DLL  T - ! Wer fr Komponentenreferenz eingeben xxx &Komponentenreferenz 8Name of selected component ( ): DS ngg !a'K referkST #NextfRebuild e'in Fea`tureMaVigncg`Bce3P Tru"ErSub BX ( b/K %<#Wer fr Komponentenreferenz eingeben xxx &Komponentenreferenz 8Name of selected component ( ): DS ngg !a'K referkST #NextfRebuild e'in Fea`tureMaVigncg`Bce3P Tru"ErSub BX ( b/K %<#mponent to which the selected entity belongs: VBE6.DLIdTru BExposeTemplate`DerivBustomizD2ent( ):  testTESTtest&L y S $Name of componxx_ lx=xP''':(N:HN88:hNXX 6X8x_ lx= x_ l((DHhmponent to which the selected entity belongs: VBE6.DLIdTru BExposeTemplate`DerivBustomizD2ent( ):  testTESTtest&L y S $Name of componxx_ lx=xP''':(N:HN88:hNXX 6X8x_ lx= x_ l((DHhd&(x"_ lx=  x_ 8 ~db_ 0  <0td,xX8k_ 8 ~d^_ 0  0td0 `xX8d&(x"_ lx=  x_ 8 ~db_ 0  <0td,xX8k_ 8 ~d^_ 0  0td0 `xX8