ࡱ> Root EntryZP//apcrBZP//The VBA Project rBZP//_VBA_Project rBZP// !$%&'(@ABCEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abevxyz{|Root EntryPb,/apcrBPb,/The VBA Project rBPb,/_VBA_Project rBPb,/  "#)*+,-./023456789:;<=>?cdfghijklmnopqrstuw}~Host Project Item Names0 0BPb,/VBA Project Data"pHost Project Items&4VBA Project Signature, 2  !"$%&'()*+,-./01634{` ThisLibrary*{ 5{ L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{  L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ ";{$={ &&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}sV:\SW_Templates\2185\SolidWorks-ID="{D460734C-C96B-4A41-8020-5AB1B15321B5}" Document=ThisLibrary/&H00000000 Module=Konfigurationen HelpFile="" Name="Konfigs" HelpContextID="0" VersionCompatible32="393222000" CMG="1517B43DBCC6C0C6C0C6C0C6C0" DPB="9A983BBCC1BDC1BDC1" GC="1F1DBE3BC6454A464A46B5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Konfigurationen=138, 138, 1104, 651, Z Z ttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPreMakros-BMK\Sonstige Makros\Konfigurationen auslesen und auf Zeichnung schreiben.swpS-RR,@n!ThisLibrarydeclaIdTru BExposeTemplate`DerivBustomizD2=JWGetFirstView ,GetRefThisLibrary1BPb,/Project_Data_CurVer( 5 Host Project Item List Data8VBArB@6^+PROJECTwmVPROJECT ThisLibrary#Konfigurationen 1]ThisLibraryThisLibraryKonfigurationenKonfigurationenibraryKonfigurationenKonfig6@nen_auslesen_rU@@@jlesus0* pHdKonfigsQ(@= l CγT% J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb__SRP_2E&Project Item Data$7 Control List Data$Pb,/Pb,/ReqControl List Data*Pb,/Pb,/__SRP_1zReqControl List Data*: Control_Data_CurVer(9 Control List Data$8(__SRP_3_VBA_PROJECT6dirw__SRP_0iHost Project Item Names0 0BZP//VBA Project Data"pHost Project Items&4VBA Project Signature, 2  !"$%&'()*+,-./01634#OLE Automation`SldWorks>#CdWGrksH H83A33D31-27C5-11CE-BFD4H400513BB57}#15IProgram Files\Soli5 Corp\sldwBUH 2013 Type LibrXaryCSwConst> SwCZnYtZ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893-wcA ,6B-&ant *t/l/–n! @+ThisD9G i3Li bray* 2 HB1;BE,B ")"B+1BCurBenGXf#guB$thon@n@&2 O),M)Y! C)C)rU@@@a *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications"*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb#S{PThisLibrary*{5{L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{0";{P$={&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}sV:\SW_Templates\2185\SolidWorks-ID="{D460734C-C96B-4A41-8020-5AB1B15321B5}" Document=ThisLibrary/&H00000000 Module=Konfigurationen HelpFile="" Name="Konfigs" HelpContextID="0" VersionCompatible32="393222000" CMG="6A68CB421246124612461246" DPB="B5B71413145F155F155F" GC="0002A1A2A2A2A25D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Konfigurationen=138, 138, 1104, 651, Z 1, Z Z ttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPreMakros-BMK\Sonstige Makros\Konfigurationen auslesen und auf Zeichnung schreiben.swpS-RR,@n!ThisLibrarydeclaIdTru BExposeTemplate`DerivBustomizD2=JWGetFirstView ,GetRefThisLibrary1BZP//Project_Data_CurVer( 5 Host Project Item List Data8VBArB@6^+PROJECTwmVPROJECT ThisLibrary#Konfigurationen D;^ThisLibraryThisLibraryKonfigurationenKonfigurationenibraryKonfigurationenKonfig6@nen_auslesen_rU@@@jlesuz0* pHdKonfigsQ(@= l CγT% J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb__SRP_2E&Project Item Data$7 Control List Data$ZP//ZP//ReqControl List Data*ZP//ZP//__SRP_1zReqControl List Data*: Control_Data_CurVer(9 Control List Data$8(__SRP_3_VBA_PROJECT6dir~__SRP_0i#OLE Automation`SldWorks>#CdWGrksH H83A33D31-27C5-11CE-BFD4H400513BB57}#15IProgram Files\Soli5 Corp\sldwBUH 2013 Type LibrXaryCSwConst> SwCZnYtZ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893-wcA ,6B-&ant *t/l/–n! @+ThisD9G i3Li bray* 2 HB1;BE,B ")"B+1BCurBenGXf#guB$thon@n@&2 O)ZI C)Y!BC)rU@@@a *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications"*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb#SolidWorks 2013 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}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlb#SolidWorks 2013 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}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlb#SldWorks 2013 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb#SolidWorks 2013 Constant type libraryCγT%n!ThisldWorks 2013 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb#SolidWorks 2013 Constant type libraryCγT%n!ThisLibrary0Q54b3ce43'ThisLibrary");Konfigurationen5E54b9559b*KonfigurationenYZI8vkKJ*s) |rM{BmU3+HxDDElseTFor_IfSubThen SolidWorks; VBAWin16~Win32Win64xMacVBA6#VBA7# Konfigsjstdole` SldWorks$SwConst ThisLibraryG _Evaluate KonfigurationenX(swCustomInfoType_e/ swCustomInfoUnknown swCustomInfoText k swCustomInfoDateh swCustomInfoNumberB swCustomInfoYesOrNo.;(main, sModelName^lRetVallCount( varPropNamesaswTableTableAnnotation>swAppswModel[ ModelDoc2^swConfig Configuration vConfNameʷ vPropName" vPropValue vPropType/nNumProp 2i` DrawingDocjakbbRet\swAnn AnnotationsswDrawswSheet}Sheet[ vSheetNamesjlc Identnummer AbmessungeViewI swDocDRAWINGV CreateObject ActiveDocڒMsgBoxR vbSystemModal.GetType)J Application* swDrawing/:GetCurrentSheet~ GetPathNameGetName< GetSheetNames ActivateSheet Blattanzahl[DATEIVERZEICHNISrInStrRevĈ DateinameORight  GetFirstViewMGetReferencedModelName7 GetNextViewoModelKLibrary0Q54b3ce43'ThisLibrary");Konfigurationen5E54b9559b*KonfigurationenYH8vkKJ*s) |rM{BmU3+HxDDElseTFor_IfSubThen SolidWorks; VBAWin16~Win32Win64xMacVBA6#VBA7# Konfigsjstdole` SldWorks$SwConst ThisLibraryG _Evaluate KonfigurationenX(swCustomInfoType_e/ swCustomInfoUnknown swCustomInfoText k swCustomInfoDateh swCustomInfoNumberB swCustomInfoYesOrNo.;(main, sModelName^lRetVallCount( varPropNamesaswTableTableAnnotation>swAppswModel[ ModelDoc2^swConfig Configuration vConfNameʷ vPropName" vPropValue vPropType/nNumProp 2i` DrawingDocjakbbRet\swAnn AnnotationsswDrawswSheet}Sheet[ vSheetNamesjlc Identnummer AbmessungeViewI swDocDRAWINGV CreateObject ActiveDocڒMsgBoxR vbSystemModal.GetType)J Application* swDrawing/:GetCurrentSheet~ GetPathNameGetName< GetSheetNames ActivateSheet Blattanzahl[DATEIVERZEICHNISrInStrRevĈ DateinameORight  GetFirstViewMGetReferencedModelName7 GetNextViewoModelK ActivateDoc27GetConfigurationNames/Anzahl_Konfigs) Anzahl_Blatt Anzahl_Blatt1 0RoundFehlendes_Blatt\Blatt_NGetConfigurationByName8 GetCustomPropertiesI(Delete_BOM_NomenclaturegInsertTableAnnotation2 swBOMConfigurationAnchor_TopLeft|>BorderLineWeight"GridLineWeight thA_ GetRowHeight p SetRowHeight4swTableCellRange_All&swTableRowColChange_TableSizeCanChangeNGetColumnWidth4 SetCellRangexx_SetColumnWidthswTableCellRange_Current SetHeader<swTableHeader_TopSetColumnTitle)pgswView~I swSelDatav SelectData BoolstatusgswBOMBomTableAnnotationswSelMgr#% SelectionMgr0GetFirstAnnotation3swTableAnnotationBSelect3ųSelectionManagerGetSelectedObjectType3xZ EditDeleteGetNext3_$_B_var_swDrawing3_B_var_Blattanzahl<~ _B_var_LeftQ_B_var_DATEIVERZEICHNIS _B_var_Right9_B_var_DateinameH _B_var_NameX _B_var_oModel_B_var_Anzahl_Konfigs_B_var_Anzahl_Blatt=_B_var_Anzahl_Blatt1_B_var_Fehlendes_Blatt_B_var_Blatt_N- _B_var_th _B_var_xx_B_var_p_B_var_swModel^w _B_var_IfPthan _B_var_Exit_B_var_SelectionMgr  _B_var_EndFStandard_B_var_Standard _B_var_ForjLAnzahl_Spalteny_B_var_Anzahl_SpaltenI _B_var_UBounddh_g^ Anzahl_Konfig~o_B_var_Anzahl_KonfigCwm_B_var_wAnzahl` "$'+$@@qm Anzahl_Blatt_B_var_Anzahl_Blatt=Fehlendes_Blatt\_B_var_Fehlendes_BlattBlatt_N_B_var_Blatt_N-Blatt3)Bltter _B_var_Blatt__Hn!YxRRME 0(8@HXH,!!!!! !(!0!8!@!H!PP> <`@p C% G% I(% MH %`P `R `Th `VP `XPH`Zh8`\( `^ ```b eX(% ix0% k8%`n `p``r`t0`v @xB ` `k  5 G% i0% @% e(%  H%` XP% xX%j.C****j0C'0j2@Cj4@COOLj6 Cj.(Ch *`%`40`6@`@j0XC j2@Cj4Cj6 C0(Xp0 P x  x  `   8 8 x  z~@8 @ @  @Ph @hP @8 @ @  @ @@ @ @  @  8 >@  H > @ @ @X @H  @h @P @8 @ 0 ( ] @ ( P  ]@   f@  @ @p @( @ @ @ x @8 ` @P H @h 0 @  @ @ @  @  @  ( @ 8   @ @. @@ @ x @ ` @ H @ 0 @  @ @ @ @ X @ @` p `(@@(@ ZgP@ @H @ @x @` 0 CγT%$*\Rffff*5E54b9559b(*\Rffff*5E54b9559b\0*\R3*#249*\R3*#15f*\R3*#1e7*\R3*#195*\R3*#19e*\R3*#163*\R3*#18a*\R3*#173*\R3*#248*\R3*#24d*\R3*#179*\R3*#2*\R3*#2*\R3*#21*\R4*#6c*\R3*#21*\R3*#1e*\R3*#1e*\R4*#15a*\R4*#15f*\R4*#15b*\R3*#4f*\R3*#4f*\R4*#118*\R0*#18*\R3*#73*\R3*#73*\R0*#f*\R3*#58*\R3*#11*\R3*#58*\R3*#b8*\R3*#b8*\R3*#11*\R1*#0*\R1*#3*\R0*#1*\R3*#0*\R3*#0*\R0*#17$U N FP L B B0 (x 4 @ . LH R  < 08 h Hp @  8 :8 Nx     ( @ "H  P ` p              0 @ P ` p        `    $0  ActivateDoc27GetConfigurationNames/Anzahl_Konfigs) Anzahl_Blatt Anzahl_Blatt1 0RoundFehlendes_Blatt\Blatt_NGetConfigurationByName8 GetCustomPropertiesI(Delete_BOM_NomenclaturegInsertTableAnnotation2 swBOMConfigurationAnchor_TopLeft|>BorderLineWeight"GridLineWeight thA_ GetRowHeight p SetRowHeight4swTableCellRange_All&swTableRowColChange_TableSizeCanChangeNGetColumnWidth4 SetCellRangexx_SetColumnWidthswTableCellRange_Current SetHeader<swTableHeader_TopSetColumnTitle)pgswView~I swSelDatav SelectData BoolstatusgswBOMBomTableAnnotationswSelMgr#% SelectionMgr0GetFirstAnnotation3swTableAnnotationBSelect3ųSelectionManagerGetSelectedObjectType3xZ EditDeleteGetNext3_$_B_var_swDrawing3_B_var_Blattanzahl<~ _B_var_LeftQ_B_var_DATEIVERZEICHNIS _B_var_Right9_B_var_DateinameH _B_var_NameX _B_var_oModel_B_var_Anzahl_Konfigs_B_var_Anzahl_Blatt=_B_var_Anzahl_Blatt1_B_var_Fehlendes_Blatt_B_var_Blatt_N- _B_var_th _B_var_xx_B_var_p_B_var_swModel^w _B_var_IfPthan _B_var_Exit_B_var_SelectionMgr  _B_var_EndFStandard_B_var_Standard _B_var_ForjLAnzahl_Spalteny_B_var_Anzahl_SpaltenI _B_var_UBounddh_g^ Anzahl_Konfig~o_B_var_Anzahl_KonfigCwm_B_var_wAnzahl` "$'+$@@{801A0000-A66C-11D3-A8BD-0000861EBBD6}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb#STIn!YxRRMEX 0(8@HXH,!!!!! !(!0!8!@!H!PP> <`@p C% G% I(% MH %`P `R `Th `VP `XPH`Zh8`\( `^ ```b eX(% ix0% k8%`n `p``r`t0`v @xB ` `k  2 G% i0% @% e(%  H%` XP% xX%j.C****j0C'0j2@Cj4@COOLj6 Cj.(Ch *`%`40`6@`@j0XC j2@Cj4Cj6 C0(Xp0 P x  x  `   8 8 x  z~@8 @ @  @Ph @hP @8 @ @  @ @@ @ @  @  8 >@  H > @ @ @X @H  @h @P @8 @ 0 ( ] @ ( P  ]@   f@  @ @p @( @ @ @ x @8 ` @P H @h 0 @  @ @ @  @  @  ( @ 8   @ @. @@ @ x @ ` @ H @ 0 @  @ @ @ @ X @ @` p `(@@(@ ZgP@ @H @ @x @` X0 CγT%$*\Rffff*5E54b9559b(*\Rffff*5E54b9559b\0*\R3*#249*\R3*#15f*\R3*#1e7*\R3*#195*\R3*#19e*\R3*#163*\R3*#18a*\R3*#173*\R3*#248*\R3*#24d*\R3*#179*\R3*#4f*\R3*#73*\R3*#58*\R3*#11*\R3*#b8*\R1*#0*\R3*#0*\R3*#2*\R3*#2*\R3*#21*\R4*#6c*\R3*#21*\R3*#1e*\R3*#1e*\R4*#15a*\R4*#15f*\R4*#15b*\R3*#4f*\R3*#4f*\R4*#118*\R0*#18*\R3*#73*\R3*#73*\R0*#f*\R3*#58*\R3*#11*\R3*#58*\R3*#b8*\R3*#b8*\R3*#11*\R1*#0*\R1*#3*\R0*#1*\R3*#0*\R3*#0*\R0*#17$R N FP L B B0 (x 4 @ . LH R  < 08 h Hp @  8 :8 Nx     ( @ "H  P ` p              0 @ P ` p        `    $0   6H$ 4Z  .,hZ0 0.  . >&>  @  $P  P` * 2v   2 (( $@  HP &v 2    T "h  x  " "  2   BZ ( 0 H8 .  $ *X6(H  6@"(    x  hZ ( 0  :8   *           ( 8 >@2` x  Np * X6(H 6  *8DP6, 6,  (Z Tz@ >  2      2  8  H   Xh p2     `  x2       2      ( 02@ X  h   x 2       F(  p r(0~ N p ` P  l0.0,<0,0"BP0x, :P$""   V  0((@0X(p0(0(0( ( 8  @@&$$ @    B   (HPX`hpx0..$ B .  0,@<P$h ,x 8  . .   HG **********************************************************************@ * Makro liet die Konfigurationspezifischen Eigenschaften allereF * vorhandenen Konfiguration aus, erstellt dann auf der Zeichnung eine< * Tabelle und trgt dort die gewnschten Eigenschaften ein.< * Nach 30 Konfigurationen wird das nchste Blatt aktiviert,! * eine neue Tabelle erstellt und- * es folgen die nchsten 30 Konfigurationen.9 * Zur Zeit wird eine Tabelle mit 2 Zeilen und 31 Spalten( * pro Blatt ( max 7 Bltter ) erstellt.E * Ausgelesen werden hier die Konfigurationspezifischen EigenschaftenL * Identnummer und Abmessung, welche dann in die Tabelle eingetragen werden. *5 * Fest werden in der ersten Spalte die berschriften) * Identnummer und Abmessung eingetragen. *B * Wird das Makro erneut ausgefhrt, werden vorher die vorhandenen9 * Tabellen gelscht und danach neu erstellt und gefllt. *1 * Gestartet wird das Makro von der Zeichnung aus4 * Zeichnung und Teil mssen vorher gespeichert seinYG ********************************************************************** '.'0 VT_LPSTR@'2 VT_FILETIME'4  VT_I4 '6 VT_BOOL]Dp w]D ]D ]D ]D x]D x]D x]D0 x]DP x]Dh x]D x]D x]D x]D x]D x]D x]D x]D( x]D@ x]D` x]D x]D x]D x]D x]D x]D x]an SolidWorks anhngenSldWorks.Application$z.F/prfen, ob berhaupt ein Dokument offen ist ... F!|.\ \xKein Dokument offen  FehlermeldungA@~| k' ... und ob das auch eine Zeichnung ist \! xHNur fr Zeichnungen sinnvoll. Bitte das Makro von der Zeichnung starten!  FehlermeldungA@~|`kX !".F F!|.H H. H.hA h!.jim[ FileName = H! [ Current sheet = j!Wo[BA h!'nWinJ-----------Anzahl der vorhandenen Bltter ermitteln----------------------- p nf_[ SheetName[ p] =  p$nvaluat pul1$n \B@le n '( F!|.\B------------DATEIVERZEICHNIS und Dateiname der Zeichnung ermitteln H! H!\$$' H! H! H!\$ $'teh  'omM--------Das referenzierte Model ermitteln und laden--------------------------ropN \!.vbl vTab v!':> v!.vRAP : < F%.Doc2^ igError in activating the model. Got a Problem hereA@~e |kB-----------Anzahl der konfigurationen ermitteln------------------- F!|.Hti H!'PwDra 4 PTakGZu viele Konfigurationen. Es werden nur 210 Kofigurationen untersttzt!  FehlermeldungA@~|pkh4-----------zu wenig Bltter?????????????------------'s 6'@zak ' $'   F  'xk   dt   'ch  lttBlatt'EsdxBltter'k`  < F%. $n \B@| d[ Config = 4$P 4$PStandardder Ko Z 'Zauk Z 'Z-- 4$P H%.LRefere R T V L%'XsModel ^ X [ ^$R < ^$V> =  ^$T ^$R IDENTNUMMER ^$T'rk ^$R ABMESSUNG ^$T'tk ^[ r &  t Z Z Z< ZZ Zx Z Z  < F%. Z$n \B@  '.'.dk Ze$n \B@ <   '.'.dkh Z<e$n \B@ Z  < '.'.dkkA@j----------------------------------------------------------------------------------------------------------3---------------Spaltenberschriften einfgen----------e---------------Spaltenbreite anpassen---------------------------------------------------------  6H$ 4Z  .,hZ0 0.  . >&>  @  $P  P` * 2v   2 (( $@  HP &v 2    T "h  x  " "  2   BZ ( 0 H8 .  $ *X6(H  6@"(    x    hZ ( 0  :8   *     --------G---------Setzt die Linienstrke der Tabelle auf 0,25mm----------------- B( B( Bk B%'  o_y?  BB@ B%'  BB@    BB@ B%'  BB@  ?  BB@ B%'  BB@  BB@ Identnummer BB@ Abme      ( 8 >@2` x  Np * X6(H 6  *8DP6, 6,  (Z Tz@ >  2      2  8  H   Xh p2     `  x2       2      ( 02@ X  h   x 2       F(  p r(0~ N p ` P  l0.0,<0,0"BP0x, :P$""   V  0((@0X(p0(0(0( ( 8  @@&$$ @    B   (HPX`hpx0..$ B .  0,@<P$h ,x 8  . .   HG **********************************************************************@ * Makro liet die Konfigurationspezifischen Eigenschaften allereF * vorhandenen Konfiguration aus, erstellt dann auf der Zeichnung eine< * Tabelle und trgt dort die gewnschten Eigenschaften ein.< * Nach 30 Konfigurationen wird das nchste Blatt aktiviert,! * eine neue Tabelle erstellt und- * es folgen die nchsten 30 Konfigurationen.9 * Zur Zeit wird eine Tabelle mit 2 Zeilen und 31 Spalten( * pro Blatt ( max 7 Bltter ) erstellt.E * Ausgelesen werden hier die Konfigurationspezifischen EigenschaftenL * Identnummer und Abmessung, welche dann in die Tabelle eingetragen werden. *5 * Fest werden in der ersten Spalte die berschriften) * Identnummer und Abmessung eingetragen. *B * Wird das Makro erneut ausgefhrt, werden vorher die vorhandenen9 * Tabellen gelscht und danach neu erstellt und gefllt. *1 * Gestartet wird das Makro von der Zeichnung aus4 * Zeichnung und Teil mssen vorher gespeichert seinYG ********************************************************************** '.'0 VT_LPSTR@'2 VT_FILETIME'4  VT_I4 '6 VT_BOOL]Dp w]D ]D ]D ]D x]D x]D x]D0 x]DP x]Dh x]D x]D x]D x]D x]D x]D x]D x]D( x]D@ x]D` x]D x]D x]D x]D x]D x]D x]an SolidWorks anhngenSldWorks.Application$z.F/prfen, ob berhaupt ein Dokument offen ist ... F!|.\ \xKein Dokument offen  FehlermeldungA@~| k' ... und ob das auch eine Zeichnung ist \! xHNur fr Zeichnungen sinnvoll. Bitte das Makro von der Zeichnung starten!  FehlermeldungA@~|`kX !".F F!|.H H. H.hA h!.jim[ FileName = H! [ Current sheet = j!Wo[BA h!'nWinJ-----------Anzahl der vorhandenen Bltter ermitteln----------------------- p nf_[ SheetName[ p] =  p$nvaluat pul1$n \B@le n '( F!|.\B------------DATEIVERZEICHNIS und Dateiname der Zeichnung ermitteln H! H!\$$' H! H! H!\$ $'teh  'omM--------Das referenzierte Model ermitteln und laden--------------------------ropN \!.vbl vTab v!':> v!.vRAP : < F%.Doc2^ igError in activating the model. Got a Problem hereA@~e |kB-----------Anzahl der konfigurationen ermitteln------------------- F!|.Hti H!'PwDra 4 PTakGZu viele Konfigurationen. Es werden nur 210 Kofigurationen untersttzt!  FehlermeldungA@~|pkh4-----------zu wenig Bltter?????????????------------'s 6'@zak ' $'   F  'xk   dt   'ch  lttBlatt'EsdxBltter'k`  < F%. $n \B@| d[ Config = 4$P 4$PStandardder Ko Z 'Zauk Z 'Z-- 4$P H%.LRefere R T V L%'XsModel ^ X [ ^$R < ^$V> =  ^$T ^$R IDENTNUMMER ^$T'rk ^$R ABMESSUNG ^$T'tk ^[ r &  t Z Z Z< ZZ Zx Z Z  < F%. Z$n \B@  '.'.dk Ze$n \B@ <   '.'.dkh Z<e$n \B@ Z  < '.'.dkkA@j----------------------------------------------------------------------------------------------------------3---------------Spaltenberschriften einfgen----------e---------------Spaltenbreite anpassen-----------------------------------------------------------------G---------Setzt die Linienstrke der Tabelle auf 0,25mm----------------- B( B( Bk B%'  o_y?  BB@ B%'  BB@    BB@ B%'  BB@  ?  BB@ B%'  BB@  BB@ Identnummer BB@ Abmessung BB@ Z Z ' Z Z< e Z  ' Z; ZZ e Z < ' ZY Zx e Z Z ' Zw Z e Z x ' Z Z e Z 'd Z 'k`:-----------Werte in die Tabelle schreiben-----------------   BB@ r BB@ t BB@9--------------------------------------------------------- 4o0Delete existing SW tables]]]ssung BB@ Z Z ' Z Z< e Z  ' Z; ZZ e Z < ' ZY Zx e Z Z ' Zw Z e Z x ' Z Z e Z 'd Z 'k`:-----------Werte in die Tabelle schreiben-----------------   BB@ r BB@ t BB@9--------------------------------------]]](]@]` !".F F!|.h h!. F!|.H;Loop through the views and delete the SW BOM if they exists  !.d d  d!  d%' H!.&I've noticed that a BOM Table ID is 98 %b hB@kk d!.d !.ik?-----------------Lscht die vorhandene Tabe------------------- 4o0Delete existing SW tables]]]]]](]@]` !".F F!|.h h!. F!|.H;Loop through the views and delete the SW BOM if they exists  !.d d  d!  d%' H!.&I've noticed that a BOM Table ID is 98 %b hB@kk d!.d !.ik?-----------------Lscht die vorhandene Tabelle----------------- ZZe$n \B@ x Z '.'.d Zxe$n \B@  x '.'.dk Ze$n \B@    '.'.dk( Ze$n \B@   '.'.kkd  .  %.Bk-----------------Erstellt eine Tabelle mit "n" Zeilen und 2 Spalten---------------------------------------- 6 P]D G` @ 'ti@ @ ZP]D 'Z4Es sind nicht gengend Bltter vorhanden. Es werden  Bltter bentigt. Bitte     hinzufgen!  FehlermeldungA@~ 6$P H%.L R T V L%'X\n P'@[ Config = 6$P 6$PStandardJZ]D HXG--------------Werte der Konfigurationen auslesen----------------------- P---------------Zeilen ermittel in die die Werte eingetragen werden sollen------- y8 P '@ 8Attribute VB_Name = "Konfigurationen" ' *B Makro liet die ospezifischen Eigen aft allerBvorhande > aus, ersteDll^annf der Zeichnung eineHTabe und trdgorKgxew>= D.Nach 30AUwird das nchE Blatt aktiviert,C neue C\Hs fol'n:IZutt A0.mit 2lQx31 Spal@8peC*( max 7-tt N)TAusgeles;er@b\ h6sIt0numm$Abmessi, wel@QpinIingetraEw%Fes? UnD; bchri" Wyerr@yFfh߀y0F@!dSC4n StdanGGgef@I!G;parte|#vo@M@ Teil mss9Dge qeU sH?* Public E> swCustomInfoType_s )Unknown0 lle----------------- ZZe$n \B@ x Z '.'.d Zxe$n \B@  x '.'.dk Ze$n \B@    '.'.dk( Ze$n \B@   '.'.kkd  .  %.Bk-----------------Erstellt eine Tabelle mit "n" Zeilen und 2 Spalten---------------------------------------- 6 P]D G` @ 'ti@ @ ZP]D 'Z4Es sind nicht gengend Bltter vorhanden. Es werden  Bltter bentigt. Bitte     hinzufgen!  FehlermeldungA@~ 6$P H%.L R T V L%'X\n P'@[ Config = 6$P 6$PStandardJZ]D HXG--------------Werte der Konfigurationen auslesen----------------------- P---------------Zeilen ermittel in die die Werte eingetragen werden sollen------- y8 P '@ 8Attribute VB_Name = "Konfigurationen" ' *B Makro liet die ospezifischen Eigen aft allerBvorhande > aus, ersteDll^annf der Zeichnung eineHTabe und trdgorKgxew>= D.Nach 30AUwird das nchE Blatt aktiviert,C neue C\Hs fol'n:IZutt A0.mit 2lQx31 Spal@8peC*( max 7-tt N)TAusgeles;er@b\ h6sIt0numm$Abmessi, wel@QpinIingetraEw%Fes? UnD; bchri" Wyerr@yFfh߀y0F@!dSC4n StdanGGgef@I!G;parte|#vo@M@ Teil mss9Dge qeU sH?* Public E> swCustomInfoType_s )Unknown0 Text`q ' VT_LPSTRDa= 64FILETIME1NumEA I4qYesOrNo11BOOLEa Subm0in()Dim sModel±AfAs S ng# AlRet8Val@LoA Count varProp sVariHantswWle `SldWorks."AnnotaɉAppN !#Z"Doc2C)#Gv1"vE' s`7vc nULKBg-݋iha+Draw \0AObjec8&jwkb03'Booleany#+F*- 'B+iyq,H{y View\mAnzah ?Q 0:0sw%DRAWING'ZS'aolicI anh0%S swH= Crea("Wlpp@k2L"Z'prfen, ob Pbhaupt Doku$mePWof i ..{ .AceP C If HIs Noth3 T#MsgBoxz\", vbS ystem`Qal@, "Fehmxeld`н1ExisjIfyS' ‰QauЯ e1@ ( .GetKl<> W) NPf8psinnvoll. Bi@򵏎stn!9"{" ."cSelO)B>t>aCurr@&3Deb@ug.Pri'"0Filek +PathO" T sH&$II= R ssS'-?ۨerPn(For 0 To UBd(( '; [" & & "]S(lNl3!3mS<@D X(0)raSN=? s)11%(B-DATEIVERZEICHNIS;ѯinde0r Zeichnung ermitteln DATEIVERZEICHNIS = Left(swModel.GetPathName, In@StrRev:"\"))ate infRighOLenJ) -'je& DOn Error Resume Next '-Das referenzierte  und laden)Set ViewQrawingDocFirst PWhilIoIs Nothx sCy$RTced>E <Wend l C o-swApp.ActLivS.2(!, FalslR etValDIf G0 TheMsgBox "bin aC:@ the m", vbSystem#al, "GGa Problem hh"/Exit SubCEnd Ifw@jAnzahl der konfigurationenxt-GDGe@GvC@Di jAs Fg0 To UBo(T?MCCiNBy3G(gnNtum'pc "usto]ies|(v `0A;uC =TypeDebug.Print "  " & `c D1=a`J Standpard"lK_ 1aG`1,HAg gK0> 21:_ZuP vie ~KP. Es wer nur"KoTuntetzt!dFehleld@d!ac `zunig Blr? )dCc_s`4 + -Blatt/ 30 51Rbb, 0(P&/_@$a#1Pndesd=J1Qbc a < 2^_N%"B?EZQJBmdT5g1IbbDobD7q5fShe0s(vrs(0 Lcs s i nt gen0d* vorhAen4H;&K- bentigt. B!& Qe1zzuf8 "rm8jj86WakC aupsles4:io!6ghAgm ^Aswt]= /mksghgoggopc#fgg@R=7chB5P"edic5jFw-P7$f 5x(j)Pt" <'&xT> Avfz]yIDENTNUMMERt?Iitnumm= Go9T/} 031! ABMESSUNG Abmess  j1)!C3 hW/@; OrR 30691258 Q>\\ p9_e__-d] 29 And6" -5RR9%R60R8R1J2%S9)11*5%*?T14*8*>5U5c183tIfC'-Werte in die Tabelle schreiben sw@ le.SetHeade r DC_Top, p Colu mnTit0, Identnummer 1, Abmessung <4EK*E \i1 Ne@xt h Sub Function Delete_BOM_Nomenclature()' existing SW @tablesDim`-App As SldWorks.Draw*` Docf8ViekAnn otaFSelData1`ectBoolsus`:aifyc=;WhibNotIs h`7'@3'&3  Y$vnnA Typ _9l=3(Fa`, 2A?XDf%a7"'$!!7anagi~'I've noticed#at a A%B ID is 98`$   edOb&ja3(-1)`98sw=Edit#pk }f`!'0end`c9 6a W % 8`8a`btdole 1yP5n!")#xME(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H 0%@88CγT%xArU@@@@~xM  qA "$q'a-Q.0145 A Q a7AqQAQQa1"!#%%1&1)a))*'+a+++ ,A,q,,q5!789<>7Q9:q==a?gg0Vg$8e(g(&gZ hIPPI(P g{gg,(\fgZ hIPPI(P g{gg0ZpUg.8UggUg.`U g>!Pgb^"g>H#Pgb^"gb^"g$g*qngv@P$bgPg%PqPO b^&P gg2P('Pg(qnlg$8e(gv( "qPPgL( "qP PhghOPg g"()g& g"*`g"+g `g2p  e8g8&tgZ h,IPP-I(P g{gg.8Ug$Xg*@qn(fgX@@a U.g6 Ph(  HgH@@h/OPb^&Pgqng6@@h0KJg"qng fgg@(ggZ hIPP1I(P g{gg lg g* g g ggJ gg g2 gg3gg>pPa  e8g2P('Pg`IHH4Oh5OPO 86OO7Ox(P xHg{gg8g*0qngX0@a U.g6 Ph(  HgH0@h/OPb^&Pg60@h0K g88pgg* Hg @ @P @hHh8OP89O O`:OxHOb^&P xHg6 @h;Kg, @h`gg6 @h<Kzg, @h`gg  gZ=Pg>PgPgPgb^"gz8?8?&8<?&8Z?&8x?&8?&8?&g>pPa  e8g8?Pg2P(Text`q ' VT_LPSTRDa= 64FILETIME1NumEA I4qYesOrNo11BOOLEa Subm0in()Dim sModel±AfAs S ng# AlRet8Val@LoA Count varProp sVariHantswWle `SldWorks."AnnotaɉAppN !#Z"Doc2C)#Gv1"vE' s`7vc nULKBg-݋iha+Draw \0AObjec8&jwkb03'Booleany#+F*- 'B+iyq,H{y View\mAnzah ?Q 0:0sw'Pg*gDgggg8?g2P('Pg<g gggg8<?g2P('PgZg <gggg8Z?rg2P('PgxLg Zfgggg8x?(g2P('Pgg xgggg8?g2P('Pgg gggg8?g2P('Pgng gggggg~h0`P?V@Pg& rgXghgg0Hng. o_y?Pg0%DRAWING'ZS'aolicI anh0%S swH= Crea("Wlpp@k2L"Z'prfen, ob Pbhaupt Doku$mePWof i ..{ .AceP C If HIs Noth3 T#MsgBoxz\", vbS ystem`Qal@, "Fehmxeld`н1ExisjIfyS' ‰QauЯ e1@ ( .GetKl<> W) NPf8psinnvoll. Bi@򵏎stn!9"{" ."cSelO)B>t>aCurr@&3Deb@ug.Pri'"0Filek +PathO" T sH&$II= R ssS'-?ۨerPn(For 0 To UBd(( '; [" & & "]S(lNl3!3mS<@D X(0)raSN=? s)11%(B-DATEIVERZEICHNIS;ѯinde,r Zeichnung ermitteln DATEIVERZEICHNIS = Left(swModel.GetPathName, In@StrRev:"\"))ate infRighOLenJ) -'je& DOn Error Resume Next '-Das referenzierte  und laden)Set ViewQrawingDocFirst PWhilIoIs Nothx sCy$RTced>E <Wend l C o-swApp.ActLivS.2(!, FalslR etValDIf G0 TheMsgBox "bin aC:@ the m", vbSystem#al, "GGa Problem hh"/Exit SubCEnd Ifw@jAnzahl der konfigurationenxt-GDGe@GvC@Di jAs Fg0 To UBo(T?MCCiNBy3G(gnNtum'pc "usto]ies|(v `0A;uC =TypeDebug.Print "  " & `c D1=a`J Standpard"lK_ 1aG`1,HAg< g D> 21 9]Zu vie`|KN. E s wer n$ur"Ko Sunte tzt!!bFehl@eld^baac`^zunig Blr? ibC5c_s2 + ,Blatta/ 30 1R`, 0hN&/_ >;@$ac˛1ndesd=J1Ob?c a < 2T\_N%"B?a E QJBmS5gQHaa73CaDWpUeSh2ePr(vrs(0)Kbs si nt gen0d* vorhAen4G;&0J- benti`gt. BA&~ Qe0yzLuf8 "r~m8ii86W҇jC ausles4:i!6fhAfm)]Asw\= Olsfhfoffopc#eff@R={WbhB5P"/ddib5jfv-P$f Uw(j)ps" <'FwT> auy]yIDENTNUMMERs?Ii tnumm= Go9T/զ P31! ABMESSUNG Abmess  j1)!C3 hW/@; Or T30691258 Q>\\< p9_e__-d] 2 9 And< 60 Then - 305R*9%R6R8R12%S9)11*5%*S?~14*8*5U518tIfC'-Werte in die Tabelle schreiben  sw@ le.SetHeader DC_Top, p ColumnTit0, Identnummer 1, Abmessung <4EKE \i1 Nex t h Sub Function Delete_BOM_Nomenclature()' existing SW t ablesDimZApp As SldWork s.DrawG*` DocfViekAnnc otaFSelData`ectBoodlsusea Bom"K Mgr )O Qd#= $lic#C#=c.A 2ve##.GetFirst#CModdel=sw J'Loop throughe v,s aE`>`:aifyc=;WhibNotIs h`7'@3'&3  Y$vnnA Typ /9l=3(Fa`, 2A?XDf%a7"'$!7anagi~'I've noticed#at a A%B ID is 98`$   edObja3(-1)I`984sw=Edit#pk }f`!'0end`c9 6a W % w!  Q "()a,Q-.014 a Q 5AqQ8`8a`btdole 1yP5n!")#xME(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H 0%@88CγT%xArU@@@@~x[  qA "$q'a-Q.0145 A Q a7AqQAQQa1"!#%%1&1)a))*'+a+++ ,A,q,,q5!789<>7Q9:q==a?@QABDQEFHQIJLQMPQTgg0Vg$8Me(g(&gZ hIPPI(P g{gg,(\fgZ hIPPI(P g{gg0ZpNUg.8MUggUg.`OU g>P!Pgb^"g>HQ#Pgb^"gb^"g$Og*qngv@P$bgPg%PqPO b^&P gg2P('Pg(qnlg$8Me(gvPP( "qPPgPPPL( "qP PhghOPg g"()g& g"*`g"+g `g2p Re8g8&tgZ h,IPP-I(P g{gg.8MUg$XPg*@qn(fgX@@aSU.g6 Ph(T HgH@@h/OPb^&Pgqng6@@h0KJg"qng fgg@(ggZ hIPP1I(P g{gg lg g* g g ggJ gg g2 gg3gg>pPa Re8g2P('Pg`IHH4Oh5OPO 86OO7Ox(P xHg{gg8g*0qngX0@aSU.g6 Ph(T HgH0@h/OPb^&Pg60@h0K g88pgg* Hg @ @P @hHh8OP89O O`:OxHOb^&P xHg6 @h;Kg, @h`gg6 @h<Kzg, @h`gg  gZ=Pg>PgPgPgb^"gz8?8?&8<?&8Z?&8x?&8?&8?&g>pPa Re8g8?Pg2P('Pg*gDgggg8?g2P('Pg<g gggg8<?g2P('PgZg <gggg8Z?rg2P('PgxLg Zfgggg8x?(g2P('Pgg xgggg8?g2P('Pgg gggg8?g2P('Pgng gggggg~h0`P?V@Pg& rgXUghUgg0HVng. o_y?PWg08Vng,0Xg<@Wg08Vng,0XgB?@Wg08Vng,0Xg$Yg"ApZg"BpZgg8g 8lg*88<2ng(8lg*8;8Z2g(8<lg*8Y8x2g(8Zlg*8w82vg(8xlg*882g(8lgg(8lgg&Yg$pZg$pZgg88g0 g{X!P8Ph(hhP xHtgg0ZpUg.8Ug.PUGg$8eg& jg. CUHg& 0g,XD?g<xUIpExg$`JVK`g8XFb?gLggg.0DUHg g.HCUGg gtpJ c ` aS  ZpCxg$`HVI`g8XDb?gJggg.0BUFg g.HAUEg gtpJ 7 ` aS  Z(hhP xHtgg0ZpUg.8Ug.PUEg$8eg& jg. AUFg& 0gg 8lg*88<2ng(8lg*8;8Z2g(8<lg*8Y8x2g(8Zlg*8w82vg(8xlg*882g(8lgg(8lgg&g$pg$pgg88g0 g{X!P8Ph(hhP xHtgg0ZpUg.8Ug.PUGg$8eg& jg. CUHg& 0g,XD?g<xUIpExg$`JVK`g8XFb?gLggg.0DUHg g.HCUGg gtpJ c ` aS  Zg& jg. AUFg& 0g,XB?g<xUGpCxg$`HVI`g8XDb?gJggg.0BUFg g.HAUEg gtpJ 7 ` aS  Z0FC:\Windows\system32\stdole2.tlbstdole !1='@W8C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlbSldWorks YFUL.,7C:\Program Files\SolidWorks Corp\SoliK*rU@@@~~~~~~~~~~~~~~(" 0z+BE}S  1a a! ThisLibraryKonfigurationenKonfigsF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  aPl5C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb SolidWorksstdole Ap0FC:\Windows\system32\stdole2.tlb 1='@W8C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlbSldWorks qYFUL.,7C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlbSwConst 1amainDelete_BOM_Nomenclature  (SldWorks.Application VBE7.DLL  "h"='@W ABMESSUNG&m &Kein Dokument offen Fehlermeldung S `(~GetType& Nur fr Zeichnungen sinnvoll. Bitte das Makro von der Zeichnung starten! llQ&m=Kęl3='@W ,GetReferencedModelName&mqK*rU@@@~~~~~~~~~~~~~~("eOF8?,  1a a! ThisLibraryKonfigurationenKonfigsF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  aPl5C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb SolidWorksstdole Ap0FC:\Windows\system32\stdole2.tlb 1='@W8C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlbSldWorks qYFUL.,7C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlbSwConst 1amainDelete_BOM_Nomenclature  (SldWorks.Application VBE7.DLL  "h"='@W ABMESSUNG&m &Kein Dokument offen Fehlermeldung S `(~GetType& Nur fr Zeichnungen sinnvoll. Bitte das Makro von der Zeichnung starten! llQ&m=Kęl3='@W ,GetReferencedModelName&mq='@W FileName = &mA  $ Current sheet = IDENTNUMMER&mQ  SheetName[ ] =  ActivateSheet \  "h$o i "h k  GetFirstViewGetNextView.   <Error in activating the model. $Got a Problem here&tA='@W.# " Config =  Standard& Zu viele Konfigurationen. Es werden nur 210 Kofigurationen untersttzt!  (`  "h Blatt Bltter hEs sind nicht gengend Bltter vorhanden. Es werden  2 Bltter bentigt. Bitte   hinzufgen!    < > = ='@W FileName = &mA  $ Current sheet = IDENTNUMMER&mQ  SheetName[ ] =  ActivateSheet \  "h$o i "h k  GetFirstViewGetNextView.   <Error in activating the model. $Got a Problem here&tA='@W.# " Config =  Standard& Zu viele Konfigurationen. Es werden nur 210 Kofigurationen untersttzt!  (`  "h Blatt Bltter hEs sind nicht gengend Bltter vorhanden. Es werden  2 Bltter bentigt. Bitte   hinzufgen!    < > =     & ,InsertTableAnnotation2