ࡱ> Root Entrytk,apc ?atkThe VBA Project  ?atk_VBA_Project ?atk$?!"#%&'(/012678A@ Root Entry`hj@,apc ?a`hjThe VBA Project  ?a`hj_VBA_Project ?a`hj  + )*,-.3459:;<=>Host Project Item Names0 ?a`hjVBA Project Data"Host Project Items&4VBA Project Signature, I  !"#$%&'(*+,-./123456789:;<=>?@ABCDEFGHLMNOPQRSTUVWXYZ[\]^_`nbdefghijklmoqrstuvwxyz{|}~{`4GThisLibrary*{6G5{7GL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{p9G L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ :G";{:G$={;G&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}:tC:\Dokumente und Einstellungen\LID="{AEE776C6-341F-41D3-AC71-CED8DF2BE655}" Document=ThisLibrary/&H00000000 Module=Moduleattribute Name="Projectattribute" HelpContextID="0" VersionCompatible32="393222000" CMG="1E1C3F33434F5553555355535553" DPB="2C2E0D41154E164E164E" GC="3A381B5728582858D7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Moduleattribute=22, 22, 1082, 606, Z utzF\Desktop\attribute.swp LD6@,ͨjJ`;QrNa͖<M,-and Asbooleanbyte"Const=DimHendifRFalse_ifjIntegeThisLibrary?a`hjProject_Data_CurVer( K Host Project Item List Data8JVBA ?a ?aPROJECTwmVPROJECT _VBA_PROJECT0 ThisLibraryThisLibraryThisLibraryModuleattributeModuleattributerU t~ E %J< 9st dole>stdole h%K*mrU~~~~~~~i _Er2  A !`dir)Project Item Data$ Control List Data$`hj`hjReqControl List Data*`hj`hj__SRP_1FReqControl List Data* Control_Data_CurVer( Control List Data$(Moduleattribute pv __SRP_2c__SRP_3ag__SRP_0  ThisLibraryModuleattributeProjectattributeF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA 1 Y0l !C:\Programme\SolidWorks\swvba.tlb SolidWorks )Q@0FC:\WINDOWS\system32\stdole2.tlbstdole APmain  (SldWorks.ApplicationActiveDoc Dein Text... &GetCustomInfoCount2 &GetCustomInfoNames2 PositionAddCustomInfo3CustomInfo2VBE6.DLL  x S  GetFirstDocumentGetNextzmThis~0* pHdProjectattributeL@  Z= ~ E %J< 9st dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation0v m ThisLibrar0yGJisLibray 2#H1E ,@b"+Mod(uleGMduatHMueL&2 O)O)T!'C)am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Programme\SolidWorks\swvba.tlb#SolidWorks ExtensibilityHost Project Item Names0 ?atkVBA Project Data"Host Project Items&4VBA Project Signature, I  !"#$%&'(*+,-./123456789:;<=>?@ABCDEFGHLMNOPQRSTUVWXYZ[\]^_`nbdefghijklmoqrstuvwxyz{|}~{@9GThisLibrary*{9G5{:GL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{P;G L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{G$={?G&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}:tC:\Dokumente und Einstellungen\LID="{AEE776C6-341F-41D3-AC71-CED8DF2BE655}" Document=ThisLibrary/&H00000000 Module=Moduleattribute Name="Projectattribute" HelpContextID="0" VersionCompatible32="393222000" CMG="DDDFFCA33C4240424042404240" DPB="8082A1A2A2A2A2A2" GC="232102E1A4E2A4E25B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Moduleattribute=22, 22, 1082, 606, Z 6, Z utzF\Desktop\attribute.swp LD6@,ͨjJ`;QrNa͖<M,-And Asbooleanbyte"Const=DimHendifRFalse_ifjIntegeThisLibrary?atkProject_Data_CurVer( K Host Project Item List Data8JVBA ?a ?aPROJECTwmVPROJECT _VBA_PROJECT0 ThisLibraryThisLibraryThisLibraryModuleattributeModuleattributerU t~ E %J< 9st dole>stdole h%K*mrU~~~~~~~i _Er2  A !`dir)Project Item Data$ Control List Data$tktkReqControl List Data*tktk__SRP_1FReqControl List Data* Control_Data_CurVer( Control List Data$(Moduleattribute p __SRP_2c__SRP_3ag__SRP_0etNextzmThis~0* pHdProjectattributeL@  Z= ~ E %J< 9st dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation0v m ThisLibrar0yGJisLibray 2#H1E ,@b"+Mod(uleGMduatHMueL&2 O)GO)T!'C)am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Programme\SolidWorks\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation E mThisLibrary064512947aThisLibrarybModuleattribute034512a30bModuleattributeT G@ rNottextthenUBoundwEndWhile SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject2K Projectattribute6 ThisLibraryG _EvaluateModul1 ModuleattributeU(main,SldWorks$ModelDoc  CreateObject ActiveDocڒGetFirstDocument!AddCustomInfo3{swCustomInfoText k CustomInfo2ŖMsgBoxRGetNextSErfolg Workspace3existM _B_var_ifP Teilenummer}Teil CustomInfolPosi cuspcountW cuspnames#part~GetCustomInfoNames2okb EigenschaftT Altnormteile3vretval; AddCustomInfoLNormteilNeuzhlersaveflagGetCustomInfoCount2 InfoanzahlMki`namesο _B_var_InX Infonamen#PosInfoZda\xx_ _B_var_xxtk _B_var_UBoundd _B_var_whileIf _B_var_part` _B_var_Constg_B_var_swCustomInfoTextHrU $`n<drU~|  A!9!i1 x@  @4x5@xW@ 4t5@CP ltcp:0%t@Upl5@kl:0%t@XpjpV!kjX5IkV j@X@: ]35@pV kV.:0%:%(%P@t@Vpn5@ :0%:%t@ `1p5@&'''@pM0@ 6@tW@ 4t5@x8 XxPtp@k $x !AmTxME(6 < < `|H` Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation E mThisLibrary064512947aThisLibrarybModuleattribute034512a30bModuleattributeT @ rNottextthenUBoundwEndwhile SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject2K Projectattribute6 ThisLibraryG _EvaluateModul1 ModuleattributeU(main,SldWorks$ModelDoc  CreateObject ActiveDocڒGetFirstDocument!AddCustomInfo3{swCustomInfoText k CustomInfo2ŖMsgBoxRGetNextSErfolg Workspace3existM _B_var_ifP Teilenummer}Teil CustomInfolPosi cuspcountW cuspnames#part~GetCustomInfoNames2okb EigenschaftT Altnormteile3vretval; AddCustomInfoLNormteilNeuzhlersaveflagGetCustomInfoCount2 InfoanzahlMki`namesο _B_var_InX Infonamen#PosInfoZda\xx_ _B_var_xxtk _B_var_UBoundd _B_var_whileIf _B_var_part` _B_var_Constg_B_var_swCustomInfoTextHrU $`n<drU~|  A!9!i1 x@  @4x5@xW@ 4t5@CP ltcp:0%t@Upl5@kl:0%t@XpjpV!kjX5IkV j@X@: ]35@pV kV.:0%:%(%P@t@Vpn5@ :0%:%t@ `1p5@&'''@pM0@ 6@tW@ 4t5@x8 XxPtp@k $x ! t `dp`2n x%`ZXl`x `\pjkr`jP`bX @`hV @*BE $*\Rffff*034512a30b*\R0*#14"  $0X h2 `H $'8 h49 8&xp]]@]X]h dWSldWorks.Application$". !$. lD  dA@.4(Hier die Rckmeldung, ob es geklappt hatPosition %,'d2ko]px]'\ Dein Text...'jj %H'btion \$bPositionG'hjPo'h \ '\ Z hGPosition * j %('2j, "T]@k] %X'Z2 Anzahl der Eigenschaften]](H`8 \ b hppt ha@^Attribute VB_Name = "Modulea" Sub main () Dim SldWorks As Ob0ject6elDoc6text%.Sng3ErfolgBoo~nInfoa nzahlIntegeri4nnVariandai xx MConst swCustom*T`= 30et= CJre(".Application"S=.Activ2e CDein 6...€If Not Ishing TheP=.Get_Count2("") ' AUder EigenschaftFf (G~)AACXAsCkA iNb= FalseWhile i < UB+d B),d @mTxME(6 < < `H` t `dp`2n x%`ZXl`x `\pjkr`jP`bX @`hV @*BE $*\Rffff*034512a30b*\R0*#14"(0 $0X h2 ` !h $'849 8&xX]]@]X]h dWSldWorks.ApplH$(i)Posi^.CTru$i + 1 endCEnd If@ĭ@(AddG[3Z, "!,Β, xxHQ MsgBox 2'Hi@zdie Rckmeldung, ob es geklappt ha eSub Drmb#<NqZ!EǸf[ l5,{H`'x5,{H`'NqZ!EǸf[ME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%H0h % %8p@@448E $*\Rffff*064512947a4xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2J(SLSS6"3-A8BD-00008ication$". !$. lD  dA@.4(Hier die Rckmeldung, ob es geklappt hatPosition %,'d2ko]px]'\ Dein Text...'jj %H'btion \$bPositionG'hjPo'h \ b h Z hGPosition * j %('2j, "T]@k] %X'Z2 Anzahl der Eigenschaften]](H`8WAttribute VB_Name = "Modulea" Sub main () Dim SldWorks As Ob0ject6elDoc6text%.Sng3ErfolgBoo~nInfoa nzahlIntegeri4nnVariandai xx MConst swCustom*T`= 30et= CJre(".Application"S=.Activ2e CDein 6...€If Not Ishing TheP=.Get_Count2("") ' AUder EigenschaftFf (G~)AACXAsCkA iNb= FalseWhile i < UB+d AB) - 1-d @I%(i)Posi_/CTru endEnd IfG;AddV3@U, ",, xxHAL MsgBox :'Hiudie Rckmeldung, ob es geklappt8 habSub Drmb#<NqZ!EǸf[ l5,{H`'x5,{H`'NqZ!EǸf[ME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%H0h % %8p@@448E $*\Rffff*064512947a4xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2Jb  ThisLibraryModuleattributeProjectattributeF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA 1 Y0l !C:\Programme\SolidWorks\swvba.tlb SolidWorks )Q@0FC:\WINDOWS\system32\stdole2.tlbstdole APmain  (SldWorks.ApplicationActiveDoc Dein Text... &GetCustomInfoCount2 &GetCustomInfoNames2 PositionAddCustomInfo3CustomInfo2VBE6.DLL  x S  GetFirstDocumentGb