ࡱ> Root EntryP@|eh6apc@&P@|eThe VBA Project @&P@|e_VBA_Project@&P@|e    fN&012345789:;<=>?@JKLMOPQSTU`agcebirstvd_VBA_PROJECT#PROJECTNPROJECTwmWYVBA Project Data" I&  !"#$%&'()*+,-./01l346789:;<=>?@AB[EFGHJKLMOPQRSTUVX\]^_`abcdefhjknopqrstuvwyz{|}~Host Project Items& D4VBA Project Signature,C Host Project Item Names0 @&P@|eThisLibrary@&P@|e`I D` aWSelStartZ SelLengthsjtxtusL{`4 ThisLibrary*{5 5{5 L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{P: L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ < ";{? $={P1 &&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}NC:\Dokumente und Einstellungen\LutzF\Desktop\FeatureManager-Teile auslesen.swp LDxID="{1F9FFBFA-824D-11D5-BAAB-0060B0C384A8}" Document=ThisLibrary/&H00000000 Module=Macro11 Package={AC9F2F90-E877-11CE-9F68-0fo Project_Data_CurVer(Z Host Project Item List Data8YUserForm `cWP@|eCompObjaVBFrame1__SRP_25 VBA @&@&dirmMacro11xThisLibrary0AA00574A4F} BaseClass=UserForm Name="Macro1" HelpContextID="0" VersionCompatible32="393222000" CMG="252722F222CA26CA26CA26CA26" DPB="0103060B070B070B" GC="DDDFDA3A6A176B176BE8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Macro11=22, 22, 919, 462, I UserForm=36, -2, 1242, 1106, Z, 38, 13, 846, 876, 6, I `lThisLibraryThisLibraryMacro11Macro11UserFormUserFormAAB-0060B0C384A8}" Document=ThisLibrar6@=Macro11 Package={AC9F2F90-E877-11CE-9F68-0,F} BaseClass=UserForm Name="Macro1" HelpContextID="<  $ X@  @4x5@xW@4t5@ ltcm+''':0N@@ 6@ tW@(0]/5@:0%x# *#!  h /tW@ 4l5@ llclControl List Data$"P@|eP@|eReqControl List Data*!P@|eP@|eUserForm6Project Item Data$ __SRP_5ggReqControl List Data* Control_Data_CurVer(# Control List Data$(__SRP_32__SRP_0 __SRP_1 __SRP_4i`nrU~| @ H$$ kriftung "Koordinatensystem 0* pHdMacro1$@T=j uYA J < stdole>stdole( f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automation^MSForms>SFErms3DD452EE1-E08F-101A-8-02608C4D0BB4DFM20.D LL#Miso(ft 9 \ Object Library/;C1s00}#0#j003D813154-DD04-40D9-B-1C8AFEDB79526DOKUME~1\LutzF\LOKALTemp\VBE\DS.exd`;!.E .`M ABA @ ThisJGPhi@jL@bray 2 HB1¬B,B q"B+BC1GDac@o1@ 2ODM(r!J@UserAGA?e2I/,#( !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#\\S_is-ts-04\programme\sw2001\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{3D813154-DD04-40D9-813B-1C8AFEDB7952}#2.0#0#C:\DOKUME~1\LutzF\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  uYAThisLibrary183d144a21ThisLibraryqMacro11?Root Entry1Fe{6apc@&1FeThe VBA Project @&1Fe_VBA_Project@&1Fe#" %!y$(^*+,-./ABCEFGHIRVWXYZ[\]_jklmnopzux'q|}~_VBA_PROJECT)#PROJECTN PROJECTwmWYVBA Project Data" I&  !"#$%&'()*+,-./01l346789:;<=>?@AB[EFGHJKLMOPQRSTUVX\]^_`abcdefhjknopqrstuvwyz{|}~Host Project Items& D4VBA Project Signature,C Host Project Item Names0 @&1FeThisLibrary@&1Fe`I D` aWSelStartZ SelLengthsjtxtusL{? ThisLibrary*{P1 5{1 L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{P2 L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{2 ";{P3 $={3 &&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}NC:\Dokumente und Einstellungen\LutzF\Desktop\FeatureManager-Teile auslesen.swp LDxID="{1F9FFBFA-824D-11D5-BAAB-0060B0C384A8}" Document=ThisLibrary/&H00000000 Module=Macro11 Package={AC9F2F90-E877-11CE-9F68-0fo Project_Data_CurVer(Z Host Project Item List Data8YUserForm `cW1FeCompObjaVBFrame1__SRP_25 VBA @&@&dirmMacro11xThisLibrary0AA00574A4F} BaseClass=UserForm Name="Macro1" HelpContextID="0" VersionCompatible32="393222000" CMG="4143464E4A4E4A4E4A4E4A" DPB="C5C7C24AC2CFC3CFC3CF" GC="494B4E534F534FAC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Macro11=22, 22, 919, 462, I UserForm=36, -2, 1242, 1106, Z, 38, 13, 846, 876, I 76, I `lThisLibraryThisLibraryMacro11Macro11UserFormUserFormAAB-0060B0C384A8}" Document=ThisLibrar6@=Macro11 Package={AC9F2F90-E877-11CE-9F68-0,F} BaseClass=UserForm Name="Macro1" HelpContextID="<  $ h@  @4x5@xW@4t5@ ltcm+''':0N@@ 6@ tW@(0]/5@:0%x# *#!  h /tW@ 4l5@ llcLlControl List Data$"1Fe1FeReqControl List Data*!1Fe1FeUserFormDProject Item Data$ __SRP_5ggReqControl List Data* Control_Data_CurVer(# Control List Data$(__SRP_32__SRP_0 __SRP_1 __SRP_4i63d14525aMacro11r DUserForm0>41ac6bcbaUserForm,@``nrU~| @ H$$ kriftung "Koordinatensystem 0* pHdMacro1$@T=j uYA J < stdole>stdole( f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automation^MSForms>SFErms3DD452EE1-E08F-101A-8-02608C4D0BB4DFM20.D LL#Miso(ft 9 \ Object Library/;C1s00}#0#j003D813154-DD04-40D9-B-1C8AFEDB79526DOKUME~1\LutzF\LOKALTemp\VBE\DS.exd`;!.E .`M ABA @ ThisJGPhi@jL@bray 2 HB1¬B,B q"B+BC1GDac@o1@ 2ODM(r!J@UserAGA?e2I/,#( !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#\\S_is-ts-04\programme\sw2001\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{3D813154-DD04-40D9-813B-1C8AFEDB7952}#2.0#0#C:\DOKUME~1\LutzF\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  uYAThisLibrary183d144a21ThisLibraryqMacro11?63d14525aMacro11r DUserForm0>41ac6bcbaUserForm,@`@ M`Ä`M`ÄL!mb`Ä ~7And As"const=DimGEndHendifYFunction_IfxlongNameOrSubThenVariant SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject2K Macro1N ThisLibraryG _EvaluateModul1 Macro11n swAppPart~ boolstatusg longstatusW AnnotationsGtol DatumTag"6 FeatureDataFeature!> Component"(main, CreateObject ActiveDocڒ SelectByIDa EditDelete FirstFeaturea featureNamemessageChrK~subFeatQ9GetFirstSubFeatureRsubFeatureNameGetNextSubFeatureAw SendMsgToUserGetNextFeature; feauteName Workspace3_B_var_message#_B_var_featureName _B_var_Chr\;_B_var_subFeatT-_B_var_subFeatureNamel> UserForm1)MSFormsC UserFormN txtAusgabe:Label1,UserForm_ClickUserForm_ResizeClicktxtResize@4UserfQz_B_var_UserFormGetFeatureListUserUserForm_Initialize5c_B_var_UserForm_InitializecmdExit\ cmdExit_Clic@ M`Ä`M`ÄL!mb`Ä ~7And As"const=DimGEndHendifYFunction_IfxlongNameOrSubThenVariant SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject2K Macro1N ThisLibraryG _EvaluateModul1 Macro11n swAppPart~ boolstatusg longstatusW AnnotationsGtol DatumTag"6 FeatureDataFeature!> Component"(main, CreateObject ActiveDocڒ SelectByIDa EditDelete FirstFeaturea featureNamemessageChrK~subFeatQ9GetFirstSubFeatureRsubFeatureNameGetNextSubFeatureAw SendMsgToUserGetNextFeature; feauteName Workspace3_B_var_message#_B_var_featureName _B_var_Chr\;_B_var_subFeatT-_B_var_subFeatureNamel> UserForm1)MSFormsC UserFormN txtAusgabe:Label1,UserForm_ClickUserForm_ResizeClicktxtResize@4UserfQz_B_var_UserFormGetFeatureListUserUserForm_Initialize5c_B_var_UserForm_InitializecmdExit\ cmdExit_ClickShow _B_var_Show41ac6bcb*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#e*\R0*#1448<@D2"0@8 "H0  $ H 0+0& `>P#.h8 X"(8bg8 ,3>>2    ( ,3 >> (  :`p @P " x(]]]SldWorks.Application$2. !4. ,8% dann eine Schleife ber alle Feature ,!'<8 Namen auslesene Feat ,!D.B8 dann die Subfeatures auslesen name B!H.B8 nchstes Subfeature]X B!'F%ogo ,%L.,8# und das nchste Feature abklappernture ao ,!'8 was fr ein Feature? '  ReferenceG  < b(j B] ,!'8 was fr ein Feature?8 Feature ist nicht leerau]xie#Im FeatureManager sind enthalten :  b(dH Ausgabe vorbereiten|k]0. .#Bitte ein Baugruppendokument laden!A@ ! 8 Baugruppe?/Makro funktioniert nur in Baugruppendokumenten! B@J|k ReferencePatternG  < b(j 8es gibt Unterfeatures'  b(j@` !:.,8 das erste Feature suchen kShow _B_var_Show 1) Then txtAusgabe.SelText = vbCrLf + vbCrLf + "--- Muster ---" + vbdrlfhAttribute VB_Name = "UserForm"  Bas|0{D572F11D-B8F0-495F-ABA7-AD9E1B7C8290}{5C6BBB3D-DF 06-4586DF-1DCC78E13A8F} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustom4izDP Sub cmdExit_Click () End  B GetFou reLis Dim swApp As Object) Part &Dtyp, letzte(rTySng=fC,&subD!QConst5DocAssemblym2CCLSe>= BeC?("SldWo0rks.@Yatpion"DZA BE=CM.ActsCIf Is Nothing ThenjMsgBox ("Bit@ein Baugruppendokument laden! }wBnd INfC (.getSAsw?)B!A'?C3.S!@)To "Makro funkAie@nur -, WtxtAusgabe.Text!@3"Im 9Manager si!halten : " + v bCrLf' D vorberei4 @ "pFirs`n'@ das ee! sucf7Wh>i-% H<2 a nn `r%(C`LJ "Ref@.ncePaXrn" A5(zf"O>Sel?:&;+ "--x- M`@@>d4rl]' (IBn`(1, &,U"", 1) >o JzHT!X?+?(B% bBbcS'WdiWubD sMGc 17ahB(0TS2.:, ++Q/,o)9&{ 1(/" bC NT' nchstes!cw W^'pgibt Unz j? t' ()W' uDYt %I abklarr$u 'AЍ nichteer? SG?y WME(6 < <<`0@0%8 >rxME(6 < <<`0@0%8 @  @, @8,@X8( 0`|@`l ng 'N @ P08uYA$*\Rffff*?63d14525a V 8 X  JP ".XO ****************************************************************************** `B@  Programm luft im Fenster abfo2 Beispiel zum Auslesen aller Feature in einem Parto8R Stefan Berlitz 18.10.2001 ' http://solidworks.cad.de ' http://swtools.cad.deD Gendert und strukturiert fr Pactec von Lutz Federbusch 11.03.2004 DAttribute VB_Name = "Macro11" ' *JBeispiel zum Auslesen aller Feature in einem Part4Stefan Berlitz 18.10.2001 ' http://solidworks.ca@d.de wptoolTWGendeP`uYA$*\Rffff*0>41ac6bcb*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINNT\System32\FM20rt und struk?ifr>ctec vonH Lu;Febusch 11.D03?4 Sub main() H UserForm.Sh ow' Programm luft im|nstab EE' rufo$ Userform F.Show)EI+ Drq#<q!mb`Ä lp!mb`Äxp!mb`Äq!mb`ÄME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%Hh % %8p@@448uYA$*\Rffff*183d144a214xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplalW@4l5@ !  H L4 l\TtpPXxte`DerivBustomizD2InfoVer = 7 End .DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#e*\R0*#1448<@D2"0@8 "H0  $ H 0+0& `>P#.h8 X"(8bg8 ,3>>2    ( ,3 >> (  :`p @P " x(]]]SldWorks.Application$2. !4. ,8% dann eine Schleife ber alle Feature ,!'<8 Namen auslesene Feat ,!D.B8 dann die Subfeatures auslesen name B!H.B8 nchstes Subfeature]X B!'F%ogo ,%L.,8# und das nchste Feature abklappernture ao ,!'8 was fr ein Feature? '  ReferenceG  < b(j B] ,!'8 was fr ein Feature?8 Feature ist nicht leerau]xie#Im FeatureManager sind enthalten :  b(dH Ausgabe vorbereiten|k]0. .#Bitte ein Baugruppendokument laden!A@ ! 8 Baugruppe?/Makro funktioniert nur in Baugruppendokumenten! B@J|k ReferencePatternG  < b(j 8es gibt Unterfeatures'  b(j@` !:.,8 das erste Feature suchen    ReferenceG  < b(jkte   ]X P P ReferencePattern  ReferenceG   --- Muster ---  b(jachen  ReferencePatternG  < b(jy If (InStr(1, featureName, "Muster", 1) > 1) Then txtAusgabe.SelText = vbCrLf + vbCrLf + "--- Muster ---" + vbdrlfhAttribute VB_Name = "UserForm"  Bas|0{AD4569A3-535F-4817-ACA7-CA0E444EF6A8}{5C6BBB3D-DF 06-4586DF-1DCC78E13A8F} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustom4izDP Sub cmdExit_Click () End  B GetFou reLis Dim swApp As Object) Part &Dtyp, letzte(rTySng=fC,&subD!QConst5DocAssemblym2CCLSe>= BeC?("SldWo0rks.@Yatpion"DZA BE=CM.ActsCIf Is Nothing ThenjMsgBox ("Bit@ein Baugruppendokument laden! }wBnd INfC (.getSAsw?)B!A'?C3.S!@)To "Makro funkAie@nur -, WtxtAusgabe.Text!@3"Im 9Manager si!halten : " + v bCrLf' D vorberei4 @ "pFirs`n'@ das ee! sucf7Wh>i-% H<2 a nn `r%(C`LJ "Ref@.ncePaXrn" A5(zf"O>Sel?:&;+ "--x- M`@@>d4rl]' (IBn`(1, &,U"", 1) >o JzHT!X?+?(B% bBbcS'WdiWubD sMGc 17ahB(0TS2.:, ++Q/,o)9&{ 1(/" bC NT' nchstes!cw W^'pgibt Unz j? t' ()W' uDYt %I abklarr$u 'AЍ nichteer? SG?y W- M@N@Ld|rlk/= 0+ <) =%dbFRdkDBeSƫYdi`YubD spO22api2) US"/&u'-Q2-P-A.-5s---a$-$pOo,f,!0_/4 4 +?3X%Q4[% GNp^L%' nchstesm Wph'pgibt UqFsB$ t1 ()[' uPc S abkla@}r 'pOleer3>rxME(6 < <<`0@0%8 @  @, @8,@X8( 0`|@`l ng 'N @ P08VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm Caption = "FeatureManager auslesen" ClientHeight = 8928 ClientLeft = 48 ClientTop = 336 ClientWidth = 6372 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 7 End ahoma! ( Microsoft Forms 2.0 FormEmbedded Object9q( !H+*=65Tahoma8((@0 (  D@4H%FeatureManager dieser Baugruppenebene+*{@Ariala(Fertig!NuTahoma! (Teile auslesenNunVBA )(@0 (  D@4Tahoma!@}+=( $H @}+=( 8txtAusgabees(2\Label1$8cmdExit90@cmdGetFeatureList9 \#\ "iL<\#\ #iL<\#\ $iL<\#\ %iL<\#\ &iL<\#\ 'iL<\#\ (iL<\#\ )iL<\#\ *iL<\#\ +iL<\ \l/ @,l\<0 Kurve^(  D@4@J Senkrecht Vorn Oben Rechts Beleuchtung BeschrU P$`$A`$`n$`rU 0 q! Q     1 Q ) 1 QyAi4a`8Y<a @W@ `1T5@lW@\'\:0]/@lX0 '5 n@  *#*F@!  H 26@\:0]3# lT*#!  H /\:0]3. *#lT*#!  H 2lW@NqcA@ `1P5@lW@\\:0]3P# lT*#!  H /\:0]3. *#lT*#!  H 2A@N \1XrU $H D@4Hl<Lhdtp`x(,. (L\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\  iL<\#\ !iLSFErms3DD45K*mrU~~~~~~~~~~~^ F({@QC   a   9 q  ThisLibraryMacro11UserFormMacro1F /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ) Q`l '\\S_is-ts-04\programme\sw2001\swvba.tlb SolidWorks !IpuYA$*\Rffff*?63d14525a V 8 X  JP ".XO ****************************************************************************** `B@  Programm luft im Fenster abfo2 Beispiel zum Auslesen aller Feature in einem Parto8R Stefan Berlitz 18.10.2001 ' http://solidworks.cad.de ' http://swtools.cad.deD Gendert und strukturiert fr Pactec von Lutz Federbusch 11.03.2004 DAttribute VB_Name = "Macro11" ' *JBeispiel zum Auslesen aller Feature in einem Part4Stefan Berlitz 18.10.2001 ' http://solidworks.ca@d.de wptoolTWGendert und struk?ifr>ctec vonH Lu;Febusch 11.D03?4 Sub main() H UserForm.Sh ow' Programm luft im|nstab EE' rufo$ Userform F.Show)EI+ Drq#<q!mb`Ä lp!mb`Äxp!mb`Äq!mb`ÄME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%Hh % %8p@@448uYA$*\Rffff*183d144a214xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTempla]3# lT*#!  H /\:0]3. *#lT*#!  H 2A@Nu te`DerivBustomizD2InfoVer = 7 End VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm Caption = "FeatureManager auslesen" ClientHeight = 8928 ClientLeft = 48 ClientTop = 336 ClientWidth = 6372 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 7 End ahoma! ( Microsoft Forms 2.0 FormEmbedded Object9q( !H+*=65Tahoma8(\1XlW@4l5@ !  H hL4 l\TtpPX%FeatureManager dieser Baugruppenebene+*{@Ariala(Fertig!NuTahoma! (Features lesenNunVBA )x(@0 (  D@4Tahoma!@}+=( $H @}+=( 8txtAusgabees(2\Label1$8cmdExit90@cmdGetFeatureList9 \#\ "iL<\#\ #iL<\#\ $iL<\#\ %iL<\#\ &iL<\#\ 0FC:\WINNT\System32\STDOLE2.TLBstdole A.E .`M C:\WINNT\System32\FM20.DLLMSForms  1qT1=@;yR /C:\DOKUME~1\LutzF\LOKALE~1\Temp\VBE\MSForms.exd   qgGQJ>3GNyQW䟠ҾE1HZLxˋ (L:p8~ChDD@DGȏ[qJ e^H-IE/#mI F3Dynamic ҋB ` txtAusgabe!-6S` SendMsgToUser q"-?@Label1{lFWJOcmdGetFeatureListcmdExit cmdExit_ClickcmdGetFeatureList_ClickUserForm_Click P (SldWorks.ApplicationActiveDoc FBitte ein Baugruppendokument laden!getType ^Makro funktioniert nur in Baugruppendokumenten! FIm FeatureManager sind enthalten :   ҋB `FirstFeatureNameGetTypeNameIsSuppressed &Unterdrcktes Teil! ReferencePattern Ref'iL<\#\ (iL<\#\ )iL<\#\ *iL<\#\ +iL<\ \l/ @,l\<0 Kurve^(  D@4@Jerence --- Muster --- $GetFirstSubFeature "GetNextSubFeatureGetNextFeatureVBE6.DLL Q QS ['4JJL MusterKzze Schnitt Konzentrisch Abstand Deckungsgleich Parallel Koradial Symmetrisch Senkrecht Vorn Oben Rechts Beleuchtung BeschrU P$`$A`$`n$`rU 0 q! Q     1 Q ) 1 QyAi4a`8Y<a @W@ `1T5@lW@\*'''\@@ 6@'\:0]/@lX0 '5 @  *#*F@!  H 26@lT@  *#*F@!  H 26@\:0]3(# lT*#!  H /\:0]3f. *#lT*#!  H 2lW@Nqc*A@ `1P5@lW@\\:0rU $H D@4Hl<Lhdtp`x(,. (L\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\ iL<\#\  iL<\#\ !iLSFErms3DD45K*mrU~~~~~~~~~~~^ F({@QC   A   9 q  ThisLibraryMacro11UserFormMacro1F /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ) Q`l '\\S_is-ts-04\programme\sw2001\swvba.tlb SolidWorks !Ip0FC:\WINNT\System32\STDOLE2.TLBstdole A.E .`M C:\WINNT\System32\FM20.DLLMSForms  1qT1=@;yR /C:\DOKUME~1\LutzF\LOKALE~1\Temp\VBE\MSForms.exd   qgGQJ>3GNyQW䟠ҾE1HZLxˋ (L:p8~ChDD@DGȏ[qJ e^H-IE/#mI F3Dynamic ҋB ` txtAusgabe!-6S` SendMsgToUser q"-?@Label1{lFWJOcmdGetFeatureListcmdExit cmdExit_ClickcmdGetFeatureList_ClickUserForm_Click P (SldWorks.ApplicationActiveDoc FBitte ein Baugruppendokument laden!getType ^Makro funktioniert nur in Baugruppendokumenten! FIm FeatureManager sind enthalten :   ҋB `FirstFeatureNameGetTypeNameIsSuppressed &Unterdrcktes Teil! ReferencePattern Reference --- Muster --- $GetFirstSubFeature "GetNextSubFeatureGetNextFeatureVBE6.DLL Q QS ['4JJL MusterKzze Schnitt Konzentrisch Abstand Deckungsgleich Parallel Koradial Symmetrischwbb