аЯрЁБс>ўџ ўџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџАOP1УGжРapcџџџџџџџџ з­ЉќгАOP1УGжThe VBA Project џџџџџџџџ з­ЉќгАOP1УGж_VBA_Projectџџџџџџџџ  з­ЉќгАOP1УGж§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ"ўџџџ!ўџџџџџџџџџџџv$*џџџџџџџџџџџџџџџџџџџџ,џџџџ[џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\]^_`ўџџџbcdefghijklmnopqrstuўџџџwxџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ€tХОСGжРapcџџџџџџџџ з­Љќг€tХОСGжThe VBA Project џџџџџџџџ з­Љќг€tХОСGж_VBA_Projectџџџџџџџџ  з­Љќг€tХОСGжџџџџџџџџ§џџџ (ўџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџ %џџџџџџџџџџџџџџџџ&'ўџџџ)Yџџџџ-џџџџ./012345ўџџџ789:;<=>ўџџџ@ABCDEFGHIJKLMNOPQRSTUVWXўџџџZ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Item Names0џџџџ Р%­ЉќгpMХОСGжVBA Project Data"џџџџЌHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџўџџџ ўџџџўџџџўџџџ ўџџџ"#$ўџџџ&'()*+,-./01234ўџџџўџџџўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭє{рjз*ThisLibrary*{€iз*5{рmз*L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ lз* L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{€oз*";{ lз*$={@oз*&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИТ"V:\Aussenmaпe.swpЬX-ˆolidWorks-ID="{39F4FB2E-FE1C-40EA-96D9-F028643DE3BA}" Document=ThisLibrary/&H00000000 Module=BoundingBox Name="Macro3" HelpContextID="0" VersionCompatible32="393222000" CMG="191B3B393F393F393F393F" DPB="1E1C3C3B44454846484648" GC="2321014607470747F8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C BoundingBox=52, 52, 950, 473, Z yThisLibraryџџџџџџџџаL­ЉќгpMХОСGжProject_Data_CurVer( џџџџ: Host Project Item List Data8џџџџџџџџџџџџ9VBAџџџџџџџџ з­ЉќгpMХОСGжPROJECTwmџџџџџџџџџџџџJPROJECT џџџџ ŸThisLibraryџџџџџџџџ%њBoundingBoxџџџџ?К2ThisLibraryThisLibraryBoundingBoxBoundingBox@rU@@@џџџџџџџџџџџџџџџџџџџџџџџџџџџџjj<Г€0* pH‚dф€Macro3$@T=­j €nзй` J < žstdole>stdole( h%^*\G{000204и30-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#OLE AutoРmation`€SldW€orks>€CdW€Grkдs€HŽ€ „€Hbp\SolidWorks\swcommands.tlb6@S 2018 Commands type l,y>*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type Libraryџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_2џџџџ6 Project Item Data$џџџџ5 Control List Data$џџџџџџџџ`&ХОСGжpMХОСGжReqControl List Data*џџџџџџџџ`&ХОСGжpMХОСGж__SRP_1џџџџџџџџџџџџzReqControl List Data*џџџџџџџџџџџџ8 Control_Data_CurVer(џџџџџџџџ7 Control List Data$џџџџџџџџџџџџ6(__SRP_3џџџџџџџџџџџџ!Ь_VBA_PROJECTџџџџџџџџџџџџ+qdirџџџџџџџџџџџџ@__SRP_0џџџџ“K*šџџџџrU€€@@~~~~~~~~F~~~~~~~~^"Q9Э1M•MŠе?Ћ—8ђ фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџqˆa џџџџџџџџ0џџџџџџџџб џџЁЁAС1Б A Macro3 ThisLibrary BoundingBoxяРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA бџџџџџџџџ P€lІгЈН†Лж5C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb SolidWorks 1џџџџџџџџaсp0РFC:\Windows\System32\stdole2.tlbstdole Ёџџџџџџџџб!1=ЃƒХ'ЮПд@ЛW8C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlbSldWorks бџџџџџџџџ‘АYѓ‡FаUгLЖЯ.Д,љ‰7C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlbSwConst QџџџџџџџџаŸоС М?%L†}N‘9Ьр:C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb SwCommands Сџџџџџџџџё №ztщb6nC‚ трSFC:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb SWUtilitieHost Project Item Names0џџџџ Р%­Љќг (P1УGжVBA Project Data"џџџџЌHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџўџџџ ўџџџўџџџўџџџ !"#$%&'()*+,-.ўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭє{ jз*ThisLibrary*{ oз*5{jз*L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ iз* L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{mз*";{@pз*$={Рnз*&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИТ"V:\Aussenmaпe.swpЬX-ˆolidWorks-ID="{39F4FB2E-FE1C-40EA-96D9-F028643DE3BA}" Document=ThisLibrary/&H00000000 Module=BoundingBox Name="Macro3" HelpContextID="0" VersionCompatible32="393222000" CMG="999BBBB9BFB9BFB9BFB9BF" DPB="0604244BFCD568D668D668" GC="737151FEBFFFBFFF40" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C BoundingBox=52, 52, 950, 473, Z yThisLibraryџџџџџџџџаL­Љќг (P1УGжProject_Data_CurVer( џџџџ: Host Project Item List Data8џџџџџџџџџџџџ9VBAџџџџџџџџ з­Љќг (P1УGжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTwmџџџџџџџџџџџџJPROJECT џџџџ ŸThisLibraryџџџџђBoundingBoxџџџџџџџџaў(ThisLibraryThisLibraryBoundingBoxBoundingBox@<Г€0* pH‚dф€Macro3$@T=­j €nзй` J < žstdole>stdole( h%^*\G{000204и30-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#OLE AutoРmation`€SldW€orks>€CdW€Grkдs€HŽ€ „€H83A33D31-27C5-11€CE-BFD4€H400513BB@57}#1aIProgram FileLOLIDWORKS Corp\S†\sldwB‚U…H 2018 Type €LibraryC€SwC€obp\SolidWorks\swcommands.tlb6@S 2018 Commands type l,y>*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldUtils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type Library_VBA_PROJECTџџџџџџџџџџџџ#'Project Item Data$џџџџ/ Control List Data$џџџџџџџџ (P1УGж (P1УGжReqControl List Data*џџџџџџџџ (P1УGж (P1УGжџџџџџџџџџџџџўџџџzџџџџџџџџџџџџўџџџ џџџџџџџџџџџџўџџџ џџџџџџџџџџџџўџџџ(s A џџџџџџџџзq  main & ’’ (0@HPXhpˆ Иаш№ј €lІгЈН†Лж€lІгЈН†ЛжQ  џџџџџџџџ&m "=ЃƒХ'ЮПд@ЛW 4Es ist kein Teil geіffnet!&mAћ“Й=я€KЅФ™•œлlы 4Scripting.FileSystemObjectVBE7.DLLџџџџџџџџЬ Сp"h.ŠA&m Q&mQ ^Dieses Makro funktioniert nur bei Einzelteilen! \џџџџџџџџХ ‘А$oџџџџџџџџi dirџџџџџџџџџџџџ@ReqControl List Data*џџџџџџџџџџџџ2 Control_Data_CurVer(џџџџџџџџ1 Control List Data$џџџџџџџџџџџџ0(nst>PwCZnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F98ђ93-wcA У,Ч6B-AТ&ant t/l ‹/ A,€/mmand^СD0mmАan€„_›@‘РС10AC1DE9F-3FBCР125-868D-7D4E913р9CCE0і1ƒ"”2 ’2 'SWUt@ilitieР2ЋU€Еi“iТje‚’ЉРŸРA362E9747A-1836-436E-827F-0AE2E0081353}#7d7,.5ƒЗщ’uР#s\№gtswF&6ЁLŠ5АL"€т›СaThiRs„QGaT@vi LibrA`7ry2E˜@"HЂ1Ет†3Р’","h!м""+ЂЃBoundingBToxЃB``uЂGiщ gсxЄˆЃC“ЏR­K D!Ј!‡№вдџџџџй-›С!мџџ#ˆЖџџЬ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}#1a.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#SolidWorks 2018 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}#1a.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlb#S8=ЃƒХ'ЮПд@ЛW RefPlane^e9k8аK‰ѕd HY?"hџџџџџџџџk БP"hџџџџџџџџC   "Begrenzungsrahmen GetNextFeatureZ" ‚Die Datei ist schreibgeschќtzt und kann nicht gespeichert werden!Џдє™hђсNŒU{ьјy.Š1"Name&mA PLANEЊЁЊœќђеЏfРO`?ЏF ь 1" x2™ Б BBOXSKETCH&tQџџџџџџџџ. ,аZ  Wert=*{Q d & swModel.CustomInfo2(vConfigName, vCustInfoName)  >Begrenzungsrahmen - Gesamtlфnge @Begrenzungsrahmen - Gesamtbreite @Begrenzungsrahmen - Gesamtstфrke ABMESSUNG Text.ŠQ&tQQ №P*******************************************************уM C:\Temp\swx5252\Macro1.swb - macro recorded on 06/05/18 by Stefa83A33D31-27C5-11€CE-BFD4€H400513BB@57}#1aIProgram FileLOLIDWORKS Corp\S†\sldwB‚U…H 2018 Type €LibraryC€SwC€onst>PwCZnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F98ђ93-wcA У,Ч6B-AТ&ant t/l ‹/ A,€/mmand^СD0mmАan€„_›@‘РС10AC1DE9F-3FBCР125-868D-7D4E913р9CCE0і1ƒ"”2 ’2 'SWUt@ilitieР2ЋU€Еi“iТje‚’ЉРŸРA362E9747A-1836-436E-827F-0AE2E0081353}#7d7,.5ƒЗщ’uР#s\№gtswF&6ЁLŠ5АL"€т›СaThiRs„QGaT@vi LibrA`7ry2E˜@"HЂ1Ет†;Р’","h!м""+ЂЃBoundingBToxЃB``uЂGiщ gсxЄˆЃC“Џ&'­K D!Ј!‡rU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџbpplications"*\G{801A№кдџџџџс5›С!мџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxldWorks 2018 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#1a.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2018 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#1a.0#0#C:\Program Files\SOLIDWORKЬ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}#1a.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#SS Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2018 Commands type library>*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type LibraryolidWorks 2018 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}#1a.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlb#SldWorks 2018 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#1a.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2018 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#1a.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2018 Commands type library>*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type Libraryџџџџџџnзй` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ›СThisLibrary1I60db2434џџ+ThisLibraryџџ!м;џџBoundingBox1L60db2444џџ.BoundingBoxџџKD&'џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЮ—zЮ4ВŒBГN­€ЙНIFџџџџa#ЗGsN†ˆЕХ§œbXџџџџџџџџH€lg$;‚Name SolidWorks; VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў# Macro3зNstdole“`ˆ џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕ ThisLibraryGЉ €џџџ_Evaluateй BoundingBoxжєswAppы‘Partє~ ModelDoc2Ї^swModel[ƒEbene1зŸEbene2иŸEbene3йŸ boolstatusgо FeatureNameЄПFeature!>swFeatчи PlaneCountQ Abmessung_neuxпvConfigNameArrbJretValЭ; vConfigNameŸvCustInfoNameArr~ќ vCustInfoNameЋMstri^5MaпA)BMaпB*BMaпC+B longstatusWЌ(mainˆ, ApplicationЅ* ActiveDocк’fsF] CreateObjectјŠSendMsgToUser28.swMbInformationєswMbOkj2ClearSelection2Ј§ swModelDocExtЈs ExtensionыGetType)J swDocPARTЮMDATEIVERZEICHNISлr GetPathNameInStrRevФˆ DateinameORight  GesamtnameB€attr™O FileSystemŠTGetAttrЛ™ vbReadOnlyХLSetUserPreferenceIntegerKswUserPreferenceIntegerValue_e+3swUnitsLinearDecimalPlacesh~swUnitsMassPropDecimalPlacesВч swUnitSystemxБswUnitSystem_e9ЬswUnitSystem_MMGSo- FirstFeatureaнGetNextFeatureХ; GetTypeNameoш SelectByID2юЙFeatureManager]єInsertGlobalBoundingBox@xswGlobalBoundingBoxFitOptions_eТЏswBoundingBoxType_CustomPlaneЗo EditSuppress2р’GetConfigurationNamesИ/swConfigуGetActiveConfigurationUџ configName–ПGetCustomInfoNames2яoIsEmpty љGetCustomInfoValueЉ‰ CustomInfo2Х–AddCustomInfo3{гswCustomInfoText k AddCustomInfoLИ CustomInfolЉ €џџџ_B_var_fsюё€џџџ_B_var_swModelDocExtFG _B_var_LeftQс€џџџ_B_var_DATEIVERZEICHNISе _B_var_Right9й€џџџ_B_var_DateinameЫH€џџџ_B_var_GesamtnameЌю €џџџ_B_var_attrЕ€џџџ_B_var_swConfigžК€џџџ_B_var_configNameС- €џџџ_B_var_Textџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ+џџџџџџ/$61EBBD6}#1a.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#SrU@@@@~x-A‘бС1бa"$Б%(*A+Q-a24Q5Б AQё qё!с#QБAq%Q%Б)-Б.0Б0Q1ё'12ё1@t gg4ŸјџџџпZєp˜јџџџURОјџџџg6Ÿјџџџ.є8˜јџџџURОјџџџg6Ÿјџџџ.є8˜јџџџURОјџџџg(їїŸрџџџџ–рџџџŸШџџџag(ь&Чg,ŸРџџџ№№ї.єЈg{ggэџџ.є€g(Ÿјџџџ.є№eјџџџПЈџџџg0ŸРџџџ.єр’Рџџџ№PЧШg,ŸРџџџ№№ї.єЈg{gg~Ÿ џџџ.єиŸ˜џџџ.єи№№џџџџї—˜џџџђ " џџџqрџџџŸ€џџџџ–€џџџЖhџџџН˜џџџМрџџџgЄŸ џџџ.єиŸ`џџџ.єиŸ˜џџџ.єи—˜џџџL№№џџџџї—`џџџђ а" џџџqрџџџŸ€џџџџ–€џџџЖHџџџы˜џџџ`џџџМрџџџg–hџџџ–HџџџOрџџџЖ0џџџg*–0џџџa џџџђ lџџџЖџџџН џџџg*–џџџљџџџ7рџџџбэџџ>Ч–g,ŸРџџџ№№ї.єЈg{ggVŸјўџџ№№№1Ÿјџџџ.є№žјџџџєP ‘јўџџA8ОјџџџgVŸјўџџ№№№Ÿјџџџ.є№žјџџџєP ‘јўџџA8ОјџџџgVŸјўџџ№№№Ÿјџџџ.є№žјџџџєP ‘јўџџA8Ојџџџg,Ÿјџџџ.єРeјџџџRHg(Hь& ЧŽg*.Hбрџџџ`G@Мрџџџg'@їDЧRg'@TPg ЦŽgg*.HбрџџџДHHМрџџџg ЦЪg'PїDЧ, g6Ÿјџџџ.єР˜јџџџU RXОјџџџg(Xь& Ч€g4ї!Ÿ џџџ.Xєh — џџџDН џџџЧ8g""`№ФB`g,Ÿ џџџ.Xє8 " џџџG@g"`№?ЧЖg'@Tgg"`№?Чєg'@T gg"`№?Ч2g'@T(ggg6Ÿјџџџ.XєX ˜јџџџU RXОјџџџg Црg†Ÿјўџџ№ьU"Р№ўџџ№эџџpЉpЉpЉї#' Ÿјџџџ.є№žјџџџє` ‘јўџџA8ь№ўџџјџџџgXŸ№ўџџ/pp№Ÿјџџџ.єрžјџџџє@ e№ўџџR0Ојџџџgэџџ.є€g~Ÿјўџџ№ьU"Р№ўџџ№ppЉpЉpЉї$їŸјџџџ.є№žјџџџє` ‘јўџџA8ь№ўџџјџџџgŸјўџџ.єxgэџџ.є€gg,Ÿрџџџ.єX–рџџџFpg(Ÿјџџџ.є eјџџџПиўџџgŸиўџџ‘рџџџЖРўџџg$&p/ М ўџџЄ gBŸрџџџ& a џџџ.єј–рџџџFИН џџџg/Иё Ч„ g$&И/аМ€ўџџ„ gŽ&аўџџџ%ШрџџџŸ`џџџ&аa˜џџџ& a џџџ.єh"`џџџq€џџџШhўџџ`Gшы џџџ˜џџџърџџџ€џџџhўџџgўџџџ&УPўџџg"&аўџџџ'ХKЧd gXŸ`џџџ&аa˜џџџ& a џџџ.єи"`џџџG№ы џџџ˜џџџgg"&аўџџџ(ХKЧф gXŸ`џџџ&аa˜џџџ& a џџџ.єи"`џџџGјы џџџ˜џџџgg"&аўџџџ)ХKЧd gXŸ`џџџ&аa˜џџџ& a џџџ.єи"`џџџGы џџџ˜џџџgg/аП€ўџџH gg/ П ўџџФ g`'јї*Pg џџџ'Pg˜џџџї*Pg`џџџ'№PGhы џџџ˜џџџ`џџџgDŸјўџџ'hї+ї,.є0 ‘јўџџ[џџџFˆg$'hї,.є g{Аt ˆb  ўџџ€ўџџИўџџ˜ўџџ0џџџиўџџРўџџШџџџHџџџЈџџџџџџhџџџPўџџD џџџ˜џџџ`џџџјџџџ№ўџџрџџџ€џџџhўџџ aS4lyХL €џџџ_B_var_fsюё€џџџ_B_var_swModelDocExtFG _B_var_LeftQс€џџџ_B_var_DATEIVERZEICHNISе _B_var_Right9й€џџџ_B_var_DateinameЫH€џџџ_B_var_GesamtnameЌю €џџџ_B_var_attrЕ€џџџ_B_var_longstatusqХ€џ№š дрџџџџŒ '›СKDџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@1”џџ1”џџ1”џџ> џџџџ”џџџџLџџџџPџџџџLџџџџPџџџџџџџџџџџџџџџџLџџџџџџџџџџџџџџџџџџџџџџџџLџџџџџџџџPџџџџLџџџџџџџџLџџџџџџџџ<аџџ<иџџ<рџџ<шџџ<№џџ<јџџ<џџџџџџ"""4џџ"Bџџџџџџ( %ИˆY%џџџџ`026fjlv%@ўџ(јџџџџџџџ џџ %т€<Ј(џџџџџџ@џџџџџџџџт€>и8џџџџ џџ@џџџџџџџџт€BHџџџџ џџ @џџџџџџџџЂ€E8Xџџџџ8 @џџџџџџџџ@ўџPрџџџџџџџ џџ %т€J˜pџџџџ џџ@џџџџџџџџт€NШ џџџџ џџ@џџџџџџџџт€Rјаџџџџ џџ@џџџџџџџџт€V(№џџџџџџ@џџџџџџџџт€ZXџџџџџџ@џџџџџџџџƒ.џџџџџџџџџџџџџџџџџџџџџџ ^џџџџ`џџџџџџџџ Pўџџkџџџџџџџџџџ„Ђ€1шџџџџ@џџџџџџџџЂ€3џџџџ8@џџџџџџџџЂ€7HџџџџX@џџџџџџџџт€8xџџџџџџ@џџџџџџџџт€:` џџџџџџ@џџџџџџџџт€.0џџџџ џџ@џџџџџџџџт€@Р@џџџџџџ@џџџџџџџџјт€№Pџџџџџџ @џџџџџџџџт€Fh`џџџџџџ @џџџџџџџџт€H@hџџџџџџ @џџџџџџџџт€Lpˆџџџџ џџ@џџџџџџџџт€P Иџџџџ џџ@џџџџџџџџт€Tашџџџџџџ@џџџџџџџџт€Xјџџџџџџ@џџџџџџџџт€\џџџџџџџџџџ@џџџџџџџџ`ИиШ@џџџџџџџџџџџџџџџџ№шp XџџџџЈџџџџhџџџџјРџџџџџџџџџџџџџџџџа(џџџџHx`8˜џџџџџџџџџџџџАџџџџџџџџXp˜№Шџџџџhџџџџш џџџџџџџџџџџџ@ џџџџрјиџџџџџџџџџџџџџџџџˆџџџџ№џџџџџџџџџџџџ џџџџџџџџџџџџа @dџџџџШџџџџџџџ џџ@ўџџџџџРџџџџџџџџџ @pџџџџЈџџџџџџџ џџ@ўџ  џџџџџџџџџ @ўџ€˜џџџџџџџџџ |숆ŠŽ>–@ўџИ €џџџџџџџ џџ @xџџџџhџџџџџџџ џџ@ўџџџџџ`џџџџџџџџџ @~џџџџHџџџџџџџ џџ@‚џџџџ0џџџџџџџ џџ@„џџџџџџџџџџџ џџ@ўџџџџџџџџџџџџ џџ @ўџџџџџјўџџџџџџ џџ 8B@DF8:<@ўџџџџџ№ўџџџџџџ џџ І\.JNPЖR@Ўџџџџиўџџџџџџ џџ@ВРРўџџџџџџ џџ@ўџ Иўџџџџџџ џџ @ўџШАўџџџџџџџџ р Y@ўџ@ Јўџџџџџџџџ  ШY@ўџ  ўџџџoџџџџ 0 №Y@ўџџџџџ˜ўџџџџџџ џџ X  \@ўџh ўџџџџџџџџ € @ \@ўџџџџџˆўџџџџџџџџ Ј h \@ўџџџџџ€ўџџџoџџџџ  \@ўџџџџџhўџџџџџџ џџ @TVXZHL@dџџџџPўџџџџџџ џџ  nџџџџ№pџџџџи`џџџџИџџџџџџџџџџџџ`џџџџXџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџ&ˆnзй` *\R3*#18c*\R3*#214*\R3*#193$*\Rffff*1L60db2444*\R1*#3*\R1*#0*\R3*#0*\R3*#0*\R3*#11*\R0*#17*\R4*#77*\R4*#78*\R3*#11*\R4*#1*\R0*#f*\R0*#12*\R0*#3*\R4*#47*\R3*#8c*\R4*#1da*\R3*#2e*\R3*#2e*\R4*#335*\R3*#83*\R0*#14пўЪž€ `€ œ`€ †€ Ъˆ€ .X€ џџџџ€ ˆ€ ˜€ Ј€ И€ Ш€ и€ ш€ ј€ € € (€ 8€ H€ X€ h€ x€ ˆ€ ˜€ Ј€ И€ Ш€ и€ ш€ ј€ џџџџ"46 60*(@€ џџџџ€ p 0, аи€ џџџџ р(№€ џџџџ€ "0(F,@ˆ€ џџџџ€ 2˜&~а2Єј0€ џџџџ€ $@*h*€X,˜№ј€ џџџџ€ d"Vh"V&VИ€ џџџџ€ 2р,€ џџџџ ( *8 Hh p x*€ € џџџџ€ ˜ И€ џџџџ€ (Ш6№€ џџџџ   4 "(  ,8 € џџџџ H X ` € џџџџ h x € € џџџџ ˆ ˜    Ј 6А  Р € :Ш 8† € ˜@ $Xи   N~  `  p € € џџџџ€ :ˆ  ,Ш (и  ш $ј B   $0 (Ž@ :h € џџџџ,"Ј Xи € №  € џџџџ," X@ € X p € џџџџ,"x XЈ € Р и  р ш № € џџџџ&`ј €  € џџџџ€ P@€ `0€ B€ џџџџ€ J(Dр$€ џџџџ(€ џџџџџџџџруZerstellt in den Einzelteil den Begrenzungsrahmen um die Aussenmaпe X, Y und Z zu ermittelnу–erstellt in den benutzerdefinierten Eigenschaften des Einzelteil einen neuen Eintrag mit dem Namen "ABMESSUNG" und trфgt die Aussenmaпe X, Y und Z einуwenn Фnderungen am Einzelteil erfolgen werden die Auпenmaпe aktualisiert daher darf der Begrenzungsrahmen nicht gelіscht werdenуУrotationssymmetrische Bauteile erhalten auch den Begrenzungsrahmen fќr die Aussenmaпe X, Y und Z (nicht so gut da dann in der "ABMESSUNG" X, Y und Z steht und nicht der Durchmesser und die Lфnge)у'gestartet wird das Makro vom Einzelteil]ѕDИ]ѕDш]ѕD]ѕDH]ѕDx]ѕD`]ѕDЈ]ѕD]ѕDи]ѕDР]ѕD]ѕD№]ѕD8]ѕDh]ѕD@]ѕD˜]ѕDp]ѕDШ]ѕD ]ѕDј]ѕDа]ѕD(]ѕD]ѕDX–`№ `!".0№ 0!b.2№ 0!b.6№ЙScripting.FileSystemObject$f.dуIst ein Dokument geіffnet? 2ВœЙEs ist kein Teil geіffnet! j l 0B@h|џџ(kџџ К 2B@n№ 6!r.pуIst ein Einzelteil geіffnet? 6!t vœЙ/Dieses Makro funktioniert nur bei Einzelteilen! j l 0B@h|џџpkџџhу,-----Dateiname und DATEIVERZEICHNIS auslesen 6!z 6!zЙ\$|$м'x 6!z 6!z 6!zЙ\$| $€'~ x ~'‚у-----auf Schreibschutz prќfen ‚ †%ˆ'„ „ ŠX,КœЙADie Datei ist schreibgeschќtzt und kann nicht gespeichert werden! j l 0B@h|џџkџџу^-----in den Dokumenteneigenschaften die Einheiten auf MMGS (Millimeter, Gramm, Sekunde) setzen Ž!ЌЌ 2!r%Œ'> Ž!’ЌЌ 2!r%Œ'> Ž!”Ќ –!˜ 2!r%Œ'>у+-----gibt es schon einen Begrenzungsrahmen?№ 2!š.B BВb B!'@ @ЙBegrenzungsrahmenœ @'xџџˆkџџ€№ B%œ.BМџџhу-----Wenn nicht dann Йœу"-----Name der Ebene Oben ermitteln№ 6!š.D DВbЙRefPlane D!žœ FЌ 'F D!'@ FЌœ @'8kџџ˜ FЌœ @':kџџx FЌœ @'<kџџXkџџP№ D!œ.DМџџ8у3-----dann Begrenzungsrahmen auf Ebene Oben einfќgen :ЙPLANEЌЌЌКЌВЌ 2!r%  '>у’Set BoundingBox = Part.FeatureManager.InsertGlobalBoundingBox(swGlobalBoundingBoxFitOptions_e.swBoundingBoxType_BestFit, False, False, longstatus)№ І!ЈКК \ 2!Ђ%Є..К 2B@nЙBegrenzungsrahmenЙ BBOXSKETCHЌЌЌКЌВЌ 2!r%  '> 2B@ЊК 2B@nkџџxу4-----Abmessung aus den Konfig-Eigenschaften auslesen 6!Ќ'J№ 6!А.Ў Ў!'В N J“ N 6%Д'P P$Жœ R P“ RЙ Wert= N R 6%И 'TЙ2 & swModel.CustomInfo2(vConfigName, vCustInfoName)'d RЙBegrenzungsrahmen - Gesamtlфngeœ N R 6%К'Vу MsgBox MaпAkџџ№ RЙ Begrenzungsrahmen - Gesamtbreiteœ N R 6%К'Xу MsgBox MaпBkџџˆ RЙ Begrenzungsrahmen - Gesamtstфrkeœ N R 6%К'Zу MsgBox MaпCkџџ ЪkџџЪ XЙx ZЙx V'HуMsgBox Abmessung_neuуJ----schreibt die Abmessung in die Konfigurationsspezifischen EigenschaftenуC----schreibt die Abmessung in die Benutzerdefinierten EigenschaftenЙ ABMESSUNGЙText H 6%Р'L HЙ ABMESSUNG 6,ТoџџˆуYretVal = swModel.AddCustomInfo3(configName, "ABMESSUNG", swCustomInfoText, Abmessung_neu)у<swModel.CustomInfo2(configName, "ABMESSUNG") = Abmessung_neuџџџџ џџџџCЗAttribute VB_Name = "BoundingBox" 'erstellt in den EinzelteilBegrenzungsrahm@um die Aussenmaпe X, Y А Z zu ePrmitЄn`benutzerdefinierttgenscha"f des †ei"n"neu(nt0rag bžm иn "ABME@SSUNG"‡tprфgt˜R€(Nwenn Фnde&r€p€/amŠЫ(ACso guFaї*Р=B|rJOˆr€…,uРH Durc@~rZ‚Lфnge)D2gestFa€t8ird€s Makro voIVC CDim `swAppЃШAs SldWorиks.G P@  I ModelDxoc2 J œ E9Ћe1Ы €hngыG‚ 2Ѓ 3ž щЦ Objectbool[tusЫG€ B€eaпa+€FeatureB€ћ%рSlФg РЯ­Ъ„А swс фШ:Є ЇPlan4eCР“t‡р Loщ,Abmess u_ Ј LvConˆfigAArrу` Varian((РretValфФёш †ѓustIИnfo(ўјsр‡ч-7MaпAпYрpпBпСCп l3АOч5C;Sub@ main(„S$et„}= @~li^cŸ |Ё|=ƒ.РActiveРyЄ 'ЂЃyXfs`оCrр_eУX("ScrHipt р.F ЋSjy€œmc"$# 'Ist РФ Do ku о!Зіffnˆet?If "€Is Noth p TheФnс'Bš.SendMsgToUser2 "PEs i kA T‰aьgeУ !",`dMbСGrm‚"Oka Exit @*#End IfcЃ!.Clea0rSelРB e2 №TrueуУb HExtрswђ.џаxЃSVH w(5GetTy`pe <>  PART)oppn0Dies@Ѓbfu nkбprunur HbeiXyenПn'ППЛ'-Da Žnб‘nDATEIVERZEICHNISwsl еTэ= Left!љPathб?, InStrRevпme, "\")''= RigVhџр ,nЏm№e) -Џ€‡Ј@Gesamtт=’ Ю& І  Bauf Sch€reibschР›  prќfХ.a€Іл€$ї4.рбЇ(чЄU@3Cёi(2A№+vbReadOnlМy)0Ё*џ"џ""№"У в4@ Б А‡chќШtztЂ‰kaŽ“‹љ€peр—АІt—$$f $$--dГuBeјneiЃ ДЌ0™а3hei‘­‘MMGS (MilliАžer, Gra€mm, Sek@(Йse№Б4'X~=G —:P4taEPrefe@КceIntexgerp"pРnue_e.swUnitsLpЕarD@ecimal№wces, 0, 3дЏFBЏЏ* ЌM€assPropЯпЯp!rMЯw~џC_’ƒvфa„#ЁWљ0gibРas љ@onQb€УПєQ1WsФŽ… Fi з УDАo WhёОe 5їeCБДqF0д._с7qр6Ћ"^ "ь6a1ЛЏ1ђ1D~o;IiAћЕ BNextфХLoonpлгЃZWЁк=dяА=Ѓ Є "Љ yђѓСЫRК O Не:ъA ўsЋс„qk* q  y "Reњf‚­"pуСQArR ѓƒc ЃА ?wБј+ 1S…q$тБ ёЂ JД8 ˆ€If PlaneCount = 1 0ThenЌ^Ebene1PFeatureNameZEnd IfIЋ 2!2g3ЁG3ЕG™Set swЕ€(.Get0Next„ПƒЂLo$op‡Ї'-dann Begrenzungsrahmen auf q O€r einfќgI|boo(lstwsРPart.Extension.SelectByID2(2, "PL€ANE", 0…TrueТNotаhingР)H'5ŠB€›d€BoxE4Manager.InsertG lobalH (swЮFitOptР's_e.swH Type_Best€, Falsѓ&„loEТ9'џ&Ь+м&CustomBрт'ТcClearПƒb=@ШР[ЧWхo"nC`8"BBOXSK№ETCH):D& swЃ+AcxtivЃСфCc7І c.a уFo€r Each шx InЩРcaЊvсЁ@InfoABDёХs2(Ј (WЇ`3 IsEmptyї€Рh )№–шˆ#Ћgсastri J + " W9 v="@i/  omAЁValue),o "h % T€ "ќ &@ЁУ9Ѓfс Њ!m >"Я/С `' = Џc - Gesamtlфnge"сќРMaпA … ?‡a?АЅ 'MsgЅџс “mЧ•qQoonfbreitя8№ BА-ŸМstxB_ џЁБwрstфrkG’§pCz&џVxЮC_ a з—ѓіU_neu…€ (‚& "x6ћв ШA” U кSТ[аYА"bt diФe І ins\Usspezifi  ^К]ret#@CЈAddз43(ЧX ˆABMESSxUNGРk@]fG1D,oЇ1 :2?3);PŸ ŸŸ’Benutzerde№finipR/щ("I"‘ Рj ŸЄ Ÿ ЙЯ У Q#Sub R!ФЙ\$Ц$м'Т R!Ф R!Ф R!ФЙ\$Ц $Ъ'Ш Т Ш'Ьу,-----Dateiname und DATEIVERZEICHNIS auslesenpeicheу-----auf Schreibschutz prќfen Ь а%в'Ю Ю дX,КœЙADie Datei ist schreibgeschќtzt und kann nicht gespeichert werden! В Д џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџH€ўџџџџџ џџџџ0џџџџџџџџџџ%џџџџ@џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8nзй` пўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2tanJe library"*\G{0AC1DE9вмц№E9139CCE0}#1Ш#C:\Program Files\SolidWorkџџџџџџџџnзй` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ›СThisLibrary1V60db260dџџ+ThisLibraryџџ!м3џџBoundingBox1W60db260dџџ.BoundingBoxџџKDRџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџtFŒ'ў‘JНџ‡Ў%љTцџџџџР­ш=N•A†{žu„џџџџџџџџH€_ZЄ8‚Name SolidWorks;VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў#Macro3зNstdole“`€џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕ ThisLibraryGЉ €џџџ_Evaluateй BoundingBoxжєswAppы‘Partє~ ModelDoc2Ї^swModel[ƒEbene1зŸEbene2иŸEbene3йŸ boolstatusgо FeatureNameЄПFeature!>swFeatчи PlaneCountQ Abmessung_neuxпvConfigNameArrbJretValЭ; vConfigNameŸvCustInfoNameArr~ќ vCustInfoNameЋMstri^5MaпA)BMaпB*BMaпC+B longstatusWmainˆ, ApplicationЅ* ActiveDocк’fsF] CreateObjectјŠSendMsgToUser28.swMbInformationєswMbOkj2ClearSelection2Ј§ swModelDocExtЈs ExtensionыGetType)J swDocPARTЮMDATEIVERZEICHNISлr GetPathNameInStrRevФˆ DateinameORight  GesamtnameB€attr™O FileSystemŠTGetAttrЛ™ vbReadOnlyХLSetUserPreferenceIntegerKswUserPreferenceIntegerValue_e+3swUnitsLinearDecimalPlacesh~swUnitsMassPropDecimalPlacesВч swUnitSystemxБswUnitSystem_e9ЬswUnitSystem_MMGSo- FirstFeatureaнGetNextFeatureХ; GetTypeNameoш SelectByID2юЙFeatureManager]єInsertGlobalBoundingBox@xswGlobalBoundingBoxFitOptions_eТЏswBoundingBoxType_CustomPlaneЗo EditSuppress2р’GetConfigurationNamesИ/swConfigуGetActiveConfigurationUџ configName–ПGetCustomInfoNames2яoIsEmpty љGetCustomInfoValueЉ‰ CustomInfo2Х– AddCustomInfoLИ CustomInfolЉџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ+џџџџџџ/$№дШџџџџ$L›СKDџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ<џџ<џџџџџџ""20"4C-"B8BџџџџР „0џџџџџџџџџџџџ% „2џџџџџџџџџџџџ8% „6џџџџџџџџџџџџX%`„8џџџџџџџџџџџџџџ`„:џџџџџџџџџџџџџџ`„<џџџџџџџџџџџџџџ`„.џџџџџџџџџџџџ џџ`„>џџџџџџџџџџџџ џџ`„@џџџџџџџџџџџџџџ`„Bџџџџџџџџџџџџ џџ`„џџџџџџџџџџџџџџ „Dџџџџџџџџџџџџ8%`„Fџџџџџџџџџџџџџџ`„Hџџџџџџџџџџџџџџ`„Jџџџџџџџџџџџџ џџ`„Lџџџџџџџџџџџџ џџ`„Nџџџџџџџџџџџџ џџ`„Pџџџџџџџџџџџџ џџ`„Rџџџџџџџџџџџџ џџ`„Tџџџџџџџџџџџџџџ`„Vџџџџџџџџџџџџџџ`„Xџџџџџџџџџџџџџџ`„Zџџџџџџџџџџџџџџ`„\џџџџџџџџџџџџџџ ^џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ@џџ`џџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџп ўЪŸ€ `€ œ`€ ˆи€ †€ Ъˆ€ .X€ џџџџ€ ˆ€ ˜€ Ј€ И€ Ш€ и€ ш€ ј€ € € (€ 8€ H€ X€ h€ x€ ˆ€ ˜€ Ј€ И€ Ш€ и€ ш€ ј€ џџџџ" 0*@€ џџџџ€ p 0 аи€ џџџџ р№€ џџџџ€ "(F@ˆ€ џџџџ€ 2˜&а2ј0€ џџџџ€ $@h€X˜№ј€ џџџџ€ d"h"&И€ џџџџ€ 2р€ џџџџ ( 8 Hhp x€€ џџџџ€ ˜ И€ џџџџ€ (Ш№€ џџџџ   (  8 € џџџџ H X ` € џџџџ h x € € џџџџ ˆ ˜    Ј А Р € :Ш 8 € ˜@ $и  N  `  p € € џџџџ€ :ˆ  Ш и  ш ј    0 (@ :h € џџџџ,Ј и € №  € џџџџ, @ € X p € џџџџ,x Ј € Р и  р ш № € џџџџ&ј €  € џџџџ€ P@€ `€ B№€ џџџџ€ J8(ˆА€ џџџџа€ џџџџџџџџhуZerstellt in den Einzelteil den Begrenzungsrahmen um die Aussenmaпe X, Y und Z zu ermittelnу–erstellt in den benutzerdefinierten Eigenschaften des Einzelteil einen neuen Eintrag mit dem Namen "ABMESSUNG" und trфgt die Aussenmaпe X, Y und Z einуwenn Фnderungen am Einzelteil erfolgen werden die Auпenmaпe aktualisiert daher darf der Begrenzungsrahmen nicht gelіscht werdenуУrotationssymmetrische Bauteile erhalten auch den Begrenzungsrahmen fќr die Aussenmaпe X, Y und Z (nicht so gut da dann in der "ABMESSUNG" X, Y und Z steht und nicht der Durchmesser und die Lфnge)у'gestartet wird das Makro vom Einzelteil]ѕD]ѕD ]ѕD@]ѕD`]ѕDx]ѕD]ѕDЈ]ѕDР]ѕDи]ѕD№]ѕD]ѕD ]ѕD@]ѕDX]ѕDp]ѕDˆ]ѕD ]ѕDИ]ѕDа]ѕDш]ѕD]ѕD]ѕD0]ѕDH–`№ `!".0№ 0!b.2№ 0!b.6№ЙScripting.FileSystemObject$f.dуIst ein Dokument geіffnet? 2ВœЙEs ist kein Teil geіffnet! j l 0B@h|џџ(kџџ К 2B@n№ 6!r.pуIst ein Einzelteil geіffnet? 6!t vœЙ/Dieses Makro funktioniert nur bei Einzelteilen! j l 0B@h|џџpkџџhу,-----Dateiname und DATEIVERZEICHNIS auslesen 6!z 6!zЙ\$|$м'x 6!z 6!z 6!zЙ\$| $€'~ x ~'‚у-----auf Schreibschutz prќfen ‚ †%ˆ'„ „ ŠX,КœЙADie Datei ist schreibgeschќtzt und kann nicht gespeichert werden! j l 0B@h|џџkџџу^-----in den Dokumenteneigenschaften die Einheiten auf MMGS (Millimeter, Gramm, Sekunde) setzen Ž!ЌЌ 2!r%Œ'> Ž!’ЌЌ 2!r%Œ'> Ž!”Ќ –!˜ 2!r%Œ'>у+-----gibt es schon einen Begrenzungsrahmen?№ 2!š.B BВb B!'@ @ЙBegrenzungsrahmenœ @'xџџˆkџџ€№ B%œ.BМџџhу-----Wenn nicht dann Йœу"-----Name der Ebene Oben ermitteln№ 6!š.D DВbЙRefPlane D!žœ FЌ 'F D!'@ FЌœ @'8kџџ˜ FЌœ @':kџџx FЌœ @'<kџџXkџџP№ D!œ.DМџџ8у3-----dann Begrenzungsrahmen auf Ebene Oben einfќgen :ЙPLANEЌЌЌКЌВЌ 2!r%  '>у’Set BoundingBox = Part.FeatureManager.InsertGlobalBoundingBox(swGlobalBoundingBoxFitOptions_e.swBoundingBoxType_BestFit, False, False, longstatus)№ І!ЈКК \ 2!Ђ%Є..К 2B@nЙBegrenzungsrahmenЙ BBOXSKETCHЌЌЌКЌВЌ 2!r%  '> 2B@ЊК 2B@nkџџxу4-----Abmessung aus den Konfig-Eigenschaften auslesen 6!Ќ'J№ 6!А.Ў Ў!'В N J“ N 6%Д'P P$Жœ R P“ RЙ Wert= N R 6%И 'TЙ2 & swModel.CustomInfo2(vConfigName, vCustInfoName)'d RЙBegrenzungsrahmen - Gesamtlфngeœ N R 6%К'Vу MsgBox MaпAkџџ№ RЙ Begrenzungsrahmen - Gesamtbreiteœ N R 6%К'Xу MsgBox MaпBkџџˆ RЙ Begrenzungsrahmen - Gesamtstфrkeœ N R 6%К'Zу MsgBox MaпCkџџ ЪkџџЪ XЙx ZЙx V'HуMsgBox Abmessung_neuуJ----schreibt die Abmessung in die Konfigurationsspezifischen EigenschaftenуYretVal = swModel.AddCustomInfo3(configName, "ABMESSUNG", swCustomInfoText, Abmessung_neu)у<swModel.CustomInfo2(configName, "ABMESSUNG") = Abmessung_neuуC----schreibt die Abmessung in die Benutzerdefinierten EigenschaftenЙ ABMESSUNGЙText H 6%М'L HЙ ABMESSUNG 6,Оoџџ(уexistiert in den benutzerdefinierten Eigenschaften des Einzelteil ein Eintrag mit dem Namen "ABMESSUNG" wird dieser ќberschriebenџџџџ˜џџџџ(ЗAttribute VB_Name = "BoundingBox" 'erstellt in den EinzelteilBegrenzungsrahm@um die Aussenmaпe X, Y А Z zu ePrmitЄn`benutzerdefinierttgenscha"f des †ei"n"neu(nt0rag bžm иn "ABME@SSUNG"‡tprфgt˜R€(NxјistBБNVœJwirdHser ќb€Йchrie6„Cwenn `Фnder€Д€saBmŠ€rfol€ .w›€г‚ПпПak@tualiscd„ah1darfРGr onicht  gelіР[tDD!rotatio€nssymmeР!€e Ba@‘ile@vha@†n a(uch€nfќ r^(Cso gТuha daР=BžўrJqˆ”€Ї,—РH` DurcЃ@ r|ЄLфnge)СD2gesta€–8B^as Makrpo voIVC CDim swAppХШAs SldРWorks.G P@ I ModРelDoc2 ЫJ œ E@Še1Ы Y€hngG‚ 2Ѓ 3оˆ…f€Obje„ct‡bool€-Xtus' РBРea„€a+FeatuмreB‘%рSlФg Р­Ъ„А s~wс фШ:Є ЇP laneCРЄt‡ р Loщ,Abmetss u_ ’Ј Lv@ConfigAA rrу` Varian((retVa~lфФёш †ѓuРstInfo(ў=јsрч-7MaЬпAпрpпBпСђCп l3АOч5C;Sub main"(„Set„}= ё@~licŸ |Ё|=ƒ.Activ>eРyЄ ЂЃyXfs)`яCrр_eУX("@Script ё.RF ЋSy€œmc"ƒ$# 'Ist Ре` Doku я!Зі@ffnet?If "Is No„th TheФnё"M.SendM sgToUh2  "Es ikЁTБ~gec!",ЩАMbс#rmB Ok1Exit End IfГS .Cle`arSelРB e2р TrueуУb‘ Extрswђў.а€ЃSVШ‰  w(5GetTРype <>   PART)oppanDiesР‡Ѓbfunkбprunur beiXyenПNnППЛ'-Da—nQšnDATEIVERZEI CHNISwsl еTэ= LefBtљPathб?, InStrRevпme, "\ ")''= RiЌghџр ,nЏрme) -Џ€‡ЈGesamtт$= Ю& І ƒ Bauf S€“@eibsch@Є аprќfХ.aЏ€$эї4.рQА(чЄ@3*Cёi(2A№+vbReadOnlyо)0Ё*џ"џ""№"У в4@ rА А‡chќшtztЂ‰kŽ“‹€|peр—0Џt—$$ 3$$--фЛuBen|eiЃ 4Е Ѓа3h eiЖ‘MMGS€ (MilliАžer, GramРm, Sek@(мsepК4'X~=G—:P4taEPrefeРТceIntegswЃ+РActiveъCncІ #.a уFor Each ёш InЩРc!ЁТvЁ@InfoAуBDХs2(Ј (WЇ`3 IsEmptюy€Рh )№–шˆ#Ћgсastri J + " rW v="@i/  o‚mЁValue)о, "h % T€ ј" &@ЁУ9Ѓfс Њ!}m "Я/С `' = Џc - Ges€amtlфng@њУГїЅMaпAP E= gСпѕ}'MќsgСRqO бНc/бoonfbrxeitiА№ BчА-Ÿsta_{VxB_ aЦ БwstфМrkG’pCпz&VxC_ aљ з—ѓЁіU_neu€ (‚p& "x6в ШAџ” U кSТ[аYА"€bt die І8 ins\„XssРpezifi  ^cК]ret@CЈAdddз43(ЧX ˆABMESSUNGяРk@]fG1D,Ї1 э:2?3)PŸD&ŸžBenutzerdefiniŸpR/("Iў"‘ Рj Є Ÿ ЙЯ ’Ш Q#Sub џџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџ@€ўџџџџџ џџџџ0џџџџџџџџџџ%џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2џџџџџџџџџџJџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџвмц№ШўЪџџџџџџџџxџџџџЛАAbVB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2tanJe library"*\G{0AC1DE9вмц№E9139CCE0}#1Ш#C:\Program Files\SolidWork