аЯрЁБс>ўџ ўџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџpеЉD+г€"apcџџџџџџџџ §kм„<в`ЎЉD+гThe VBA Project џџџџџџџџ §kм„<в`ЎЉD+г_VBA_Projectџџџџџџџџ §kм„<в`ЎЉD+г§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџџџџџџџџџ(jўџџџ'<"џџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџiџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ;=L>?@ABCDEFўџџџHIJKOMNўџџџ]џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ^_`abcfџџџџџџџџghўџџџklnmџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџа§fš+г€"apcџџџџџџџџ §kм„<ва§fš+гThe VBA Project џџџџџџџџ §kм„<ва§fš+г_VBA_Projectџџџџџџџџ §kм„<ва§fš+гџџџџџџџџ§џџџ %§џџџ[  $<џџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџ#џџџџ!ўџџџџџџџ Z)џџџџџџџџ*+,-./0123ўџџџ56789PџџџџџџџџLџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMNўџџџџџџџQRSTUVWXYўџџџ \dџџџџџџџџџџџџџџџџџџџџџџџџџџџџemџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Item Names0џџџџ Рƒmм„<вРжfš+гVBA Project Data"џџџџHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ$ %ўџџџ !"#(9ўџџџ'ўџџџ)*+,-.ўџџџ012345678;ўџџџўџџџ<=>?@ABCDEFGHIJKLўџџџNOPQRSTUVWXYZ[\]^ўџџџ`abcўџџџeўџџџgўџџџijўџџџўџџџўџџџўџџџўџџџўџџџџџџџrstuўџџџwxyz{|}~€Эє{ …ƒThisLibrary*{р„ƒ5{ „ƒL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{`„ƒ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ „ƒ";{рƒƒ$={ ƒƒ&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИIТ’U:\Infodokumente\Makros\AssemblyID="{7DBBCBD6-5D3E-44F2-8067-31D6662EA9C4}" Document=ThisLibrary/&H00000000 Module=ModuleAssembly_Safe_DXF Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Wert HelpFile="" Name="Assembly_Safe_DXF" HelpContextID="0" VersionCompatible32="393222000" CMG="3E3C3CA044A0E6A4E6A4E6A4E6A4" DPB="DCDEDE7EE21DE31DE31D" GC="7A7878E417E517E5E8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [WD0mmА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с55ЖLMSFormƒрЁLMSFBcJmр3 "3D452EE1-E08F-101A-8-02608C4D0 set propertie\Assembly set prop0, Z braryThisLibraryModuleAssembly_Safe_DXFMoThisLibraryThisLibraryModuleAssembly_Safe_DXFModuleAssembly_Safe_DXFWertWertџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ)„ „6ertie.swpЬV-†<џџџџџџN0{801A26@1D3-A8BD-0000861EBBD6}џџџџџџџџЈP „:џџџџџџџџШP „<џџџџџџџџшP`„@џџџџџџџџџџ`„Bџџџџџџџџџџ`„Dџџџџџџџџ џџ`„0џџџџџџџџ џџ`„Кџџџџџџџџ џџ`„Мџџџџџџџџџџ`„Оџџџџџџџџ џџ ЄРџџџџџџџџАP ЄФџџџџџџџџаPThisLibraryџџџџџџџџ` oм„<вРжfš+гProject_Data_CurVer( џџџџn Host Project Item List Data8џџџџџџџџџџџџ:VBAџџџџџџџџРƒmм„<вŠ<ƒ+гPROJECTwm џџџџџџџџ&}PROJECTџџџџџџџџџџџџ FThisLibraryџџџџMFModuleAssembly_Safe_DXF0џџџџџџџџ/гWertorm1  р]А+г@8+гfџџџџџџџџџџџџh†oџџџџfpCompObjџџџџџџџџdaorkspace] ThisLibrary=0, 0, 0, 0, C ModuleAssembly_Safe_DXF=30, 7, 1382, 696, Wert=125, 125, 1253, 685, , 100, 100, 1228, 66rU@@@@~~~~nџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ qЁ џџџџџџџџ ‘џџџџџџџџ ‘!џџџџџџџџ qЁ џџџџџџџџJ Files\Soliƒ5 Corp\SOLIDWORKS\sldwB‚U…H 2016 Type €Libra  }1Ш X‚o х€4box1д{,х€<CommandButton1aдq.DLL#MicrosPoft Ђ `{ @Object%`/Д;(1„(Ѓ€0)„ЋA(„0@BJмц№863A-D91BB`F435iUseвмц№E\a.exdПф~с.E р…ШBЖтr!RThisЉD†G!RTЋi`6€Libr l ry2˜,ЂЛZcрШ","†2""+ЂрModuleЮЩG. HduQ eeAbр_рMafA _DX`Oн 2  Џ›д­Шч!@Ѕ ц@wertG"Host Project Item Names0џџџџ Рƒmм„<вP‡ЉD+гVBA Project Data"џџџџHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ$ %ўџџџ !"#(9ўџџџ'ўџџџ)*+,-.ўџџџ012345678;ўџџџўџџџ<=>?@ABCDEFGHIJKLўџџџNOPQRSTUVWXYZ[\]^ўџџџ`abcўџџџeўџџџgўџџџijўџџџўџџџўџџџўџџџўџџџўџџџџџџџrstuўџџџwxyz{|}~€Эє{€ƒƒThisLibrary*{Рƒƒ5{„ƒL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{@„ƒ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{€„ƒ";{Р„ƒ$={…ƒ&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИIТ’U:\Infodokumente\Makros\AssemblyID="{7DBBCBD6-5D3E-44F2-8067-31D6662EA9C4}" Document=ThisLibrary/&H00000000 Module=ModuleAssembly_Safe_DXF Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Wert HelpFile="" Name="Assembly_Safe_DXF" HelpContextID="0" VersionCompatible32="393222000" CMG="161414D31C5DE561E561E561E561" DPB="DBD9D91E9F1F9F1F9F" GC="A0A2A2A5A3A5A35A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [WorksD0mmА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с55ЖLMSFormƒрЁLMSFBcJmр3 "3D452EE1-E08F-101A-8-02608C4D0 set propertie\Assembly set prop isLibraryThisLibraryModuleAssembly_Safe_DXFMoThisLibraryThisLibraryModuleAssembly_Safe_DXFModuleAssembly_Safe_DXFWertWertџџџџџџџџџџџџџџџџ)„ „6ertie.swpЬV-†<џџџџџџN0{801A26@1D3-A8BD-0000861EBBD6}џџџџџџџџЈP „:џџџџџџџџШP „<џџџџџџџџшP`„@џџџџџџџџџџ`„Bџџџџџџџџџџ`„Dџџџџџџџџ џџ`„0џџџџџџџџ џџ`„Кџџџџџџџџ џџ`„Мџџџџџџџџџџ`„Оџџџџџџџџ џџ ЄРџџџџџџџџАP ЄФџџџџџџџџаPThisLibraryџџџџџџџџ` oм„<вP‡ЉD+гProject_Data_CurVer( џџџџn Host Project Item List Data8џџџџџџџџџџџџ:VBAџџџџџџџџРƒmм„<вŠ<ƒ+г‚ƒ„…†‡ˆ‰ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTwm џџџџџџџџ&}PROJECTџџџџџџџџџџџџ BThisLibraryџџџџMFModuleAssembly_Safe_DXF0џџџџџџџџ/гWertorm1  р]А+г@8+гfџџџџџџџџџџџџh†oџџџџfpCompObjџџџџџџџџdapace] ThisLibrary=0, 0, 0, 0, C ModuleAssembly_Safe_DXF=30, 7, 1382, 696, Wert=125, 125, 1253, 685, Z, 100, 100, 1228, 660, rU@@@@~~~~nџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ qЁ џџџџџџџџ ‘џџџџџџџџ ‘!џџџџџџџџ qЁ џџџџџџџџJ Files\Soliƒ5 Corp\SOLIDWORKS\sldwB‚U…H 2016 Type €Libra  }1Ш X‚o х€4box1д{,х€<CommandButton1aдq.DLL#MicrosPoft Ђ `{ @Object%`/Д;(1„(Ѓ€0)„ЋA(„0@BJмц№863A-D91BB`F435iUseвмц№E\a.exdПф~с.E р…ШBЖтr!RThisЉD†G!RTЋi`6€Libr l ry2˜,ЂЛZcрШ","†2""+ЂрModuleЮЩG. HduQ eeAbр_рMafA _DX`Oн 2  Џ›д­Шч!@Ѕ ц@wertG"_VBA_PROJECTџџџџџџџџџџџџ:ЋProject Item Data$џџџџk Control List Data$џџџџџџџџP‡ЉD+гP‡ЉD+гReqControl List Data*џџџџџџџџP‡ЉD+гP‡ЉD+гVBFrameџџџџџџџџџџџџ_ReqControl List Data*џџџџџџџџџџџџo __SRP_1џџџџBControl_Data_CurVer( џџџџџџџџm _VBA_PROJECTџџџџџџџџџџџџ&ЋProject Item Data$џџџџk Control List Data$џџџџџџџџРжfš+гРжfš+гReqControl List Data*џџџџџџџџРжfš+гРжfš+гControl List Data$џџџџџџџџџџџџl(џџџџџџџџџџџџўџџџ(џџџџџџџџџџџџџџџџџџџџџџџџVBFrameџџџџџџџџџџџџ_ReqControl List Data*џџџџџџџџџџџџo __SRP_1џџџџBControl_Data_CurVer( џџџџџџџџm Control List Data$џџџџџџџџџџџџl(џџџџџџџџџџџџўџџџ(џџџџџџџџџџџџџџџџџџџџџџџџdirџџџџџџџџџџџџЅWert џџџџџџџџGН__SRP_3џџџџџџџџџџџџvб__SRP_2џџџџџџџџq dirџџџџџџџџџџџџЅWert џџџџџџџџ4ј__SRP_3џџџџџџџџџџџџvб__SRP_2џџџџџџџџq ЁД€0* pH‚dфAssembly_Safe_DXDFP@ Е = € гh‰[ЄJ J< 9s@tdole>stdol@e h%^*\G{000Р20430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE AutomatioFn0€SldWorks>Œ€CdW€G rks€HŽ€ „€H83A33D31-27C5-11CE-BFD4€H400513BB57}#18IProgram Files\Soliƒ5 Corp\SOLIDWORKS\sldwB‚U…H 2016 Type €LibraryC€SwC€onst>PwCZnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F98ђ93-wcA У,Ц2C-AТ&ant t/l ‹/ A,€/mmand^СBB4uFM20.DLL#MicrosPoft Ђ `{ @Object%`/Д;(1„(Ѓ€0)„ЋA(„0@B0Тq#`G@ƒgи0ЈРŠ`A1753D1 AE-1DС46€863A-D91BB`F435iUsers\LUKAS~1.OEH\AppData\Local\Temp\VBE\a.exdПф~с.E р….`ŒM ДE`BЖтr!RThisЉD†G!RTЋi`6€Libr l ry2˜Ђ  HЂ1ЂЛZsрШ","†2""+ЂрModuleЮЩG. HduQ eeA sРРm`lр_рMafA _DX`Oн 2  Џ›д­Шч!@Ѕ ц@wertG"ШWUrР|b!Wр2›ъo чР"m a•#'(( !вSolidWorks џџџџџџ№"диџџџџ)•rчџџЖџџЬ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}#18.0#0#C:\Program Files\SolidWorks Corp\SOLIDWORKS\swvba.tlb#SЁД€0* pH‚dфAssembly_Safe_DXDFP@ Е = € гh‰[ЄJ J< 9s@tdole>stdol@e h%^*\G{000Р20430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE AutomatioFn0€SldWorks>Œ€CdW€G rks€HŽ€ „€H83A33D31-27C5-11CE-BFD4€H400513BB57}#18IProgram Files\Soliƒ5 Corp\SOLIDWORKS\sldwB‚U…H 2016 Type €LibraryC€SwC€onst>PwCZnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F98ђ93-wcA У,Ц2C-AТ&ant t/l ‹/ A,€/mmand^СBB4uFM20.DLL#MicrosPoft Ђ `{ @Object%`/Д;(1„(Ѓ€0)„ЋA(„0@B0Тq#`G@ƒgи0ЈРŠ`A1753D1 AE-1DС46€863A-D91BB`F435iUsers\LUKAS~1.OEH\AppData\Local\Temp\VBE\a.exdПф~с.E р….`ŒM ДE`BЖтr!RThisЉD†G!RTЋi`6€Libr l ry2˜Ђ  HЂ1ЂЛZsрШ","†2""+ЂрModuleЮЩG. HduQ eeA sРРm`lр_рMafA _DX`Oн 2  Џ›д­Шч!@Ѕ ц@wertG"ШWUrР|b!Wр2›ъo ЇР"m a•#'(( !вSolidWorks џџџџџџ№"диџџџџ)•rчџџЖџџolidWorks 2016 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}#18.0#0#C:\Program Files\SolidWorks Corp\SOLIDWORKS\sldworks.tlb#SldWorks 2016 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#18.0#0#C:\Program Files\SolidWorks Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2016 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#18.0#0#C:\Program Files\SolidWorks Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2016 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о*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{1753D1AE-1D36-46E1-863A-D91B175F4356}#2.0#0#C:\Users\LUKAS~1.OEH\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Дџџџџџџџџгh‰[ЄџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrThisLibrary7h5b8968d3џџ+ThisLibraryџџ†2sџџ.ModuleAssembly_Safe_DXF7i5b8968d3џџ..ModuleAssembly_Safe_DXFџџч›џџWert865b8969cfџџчWertџџa•8чџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџуЌ­63NКМEŽЩЄ џџџџcYР<Ё|CїеNжobџџџџџџџџHЖЮ—k K„v(ЭK*џџџџџџџџ€‚€М> €џas=€џdimP€џexplicitЏ€џSub SolidWorks;VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў#Assembly_Safe_DXF\stdole“`€џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕ ThisLibraryGЉ €џ_EvaluateйModuleAssembly_Safe_DXFњ swAppы‘vbAWЭ#mainˆ,swDocФЁ ModelDoc2Ї^FirstDoc1щ swAllDocsxEnumDocuments2ˆJNumDocsReturnedмђDocCountТqbDocWasVisible6n ApplicationЅ* ActiveDocк’GetType)J swDocASSEMBLY…nMsgBox—R vbSystemModal.vbYesNoReset>VisibleЖг swDocPARTЮM GetBendState8З ActivateDocI0 GetPathName DXF_erstellen|AswModel[ƒ AktiveKonfigъ ConfigurationŸњ KonfigNameХ|Drawing<0 DrawingDocсSheet[ж SheetProps?qViewаI swModelDocExtЈsModelDocExtension› PathModelNameŒЄFileNamejУ saveFileNameу=DXFpfad"о DRWDOTpfad†Sc_InsertDrawing“щ boolstatusgо longstatusW longwarnings‡InStrRevФˆvbNoЇ% ExtensionыExportFlatPatternViewSSaveAsf;GetActiveConfigurationUџ NewDocumentиswDwgPaperA0sizeЋУGetCurrentSheetЦ~ GetProperties(ё#CreateFlatPatternViewFromModelView2­vbCrLfЏЌ GetFirstViewMМswDrawingSheetH SetDisplayTangentEdges2РswDisplayTangentEdges_eК-swTangentEdgesVisible €ShowSheetMetalBendNoteseЏ GetNextView‘  EditRebuildбSaveAs2CloseDoc еGetTitle- set_propertie\€„џModelDoc ї ConfigCount3 ConfigNamesЖ| PropConfigs6 CollectionщW PropNames0gPropjйConfigIЄPropType\wPropText#i` CreateObjectјŠvbOKOnlyѕВAddїr Name_propЏ€џGetConfigurationCountYц€џGetConfigurationNamesИ/ AllConfigsIї€џAddCustomInfo3{г€џswCustomInfoText k UserForm1)жMSFormsCwertK6UserFormNTextBox1ІSCommandButton1|дCommandButton1_ClickфС€џClickŠу€џShowѕ€џTextBoxЪQ€џџџ_B_var_TextBoxNU textboxwertM†€џџџ_B_var_textboxwertЏw€џџџ_B_var_Name_propуЈ€џџџ_B_var_AllConfigstebox1,ћ textboxbox1яJUserForm_Clickлјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ+ фџџ/ чџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ6Sџџџџ<џџ<џџ<(><џџТ< џџ<Јџџ<џџТ<Аџџ<Иџџ*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SolidWorks Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{1753D1AE-1D36-46E1-863A-D91B175F4356}#2.0#0#C:\Users\LUKAS~1.OEH\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Дџџџџџџџџгh‰[ЄџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrThisLibrary7h5b8968d3џџ+ThisLibraryџџ†2sџџ.ModuleAssembly_Safe_DXF7i5b8968d3џџ..ModuleAssembly_Safe_DXFџџч›џџWert805b89695fџџчWertџџa•8ЇџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџуЌ­63NКМEŽЩЄ џџџџcYР<Ё|CїеNжobџџџџџџџџHЖЮ—k K„v(ЭK*џџџџџџџџ€‚€М> €џas=€џdimP€џexplicitЏ€џSub SolidWorks;VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў#Assembly_Safe_DXF\stdole“`€џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕ ThisLibraryGЉ €џ_EvaluateйModuleAssembly_Safe_DXFњ swAppы‘vbAWЭ#mainˆ,swDocФЁ ModelDoc2Ї^FirstDoc1щ swAllDocsxEnumDocuments2ˆJNumDocsReturnedмђDocCountТqbDocWasVisible6n ApplicationЅ* ActiveDocк’GetType)J swDocASSEMBLY…nMsgBox—R vbSystemModal.vbYesNoReset>VisibleЖг swDocPARTЮM GetBendState8З ActivateDocI0 GetPathName DXF_erstellen|AswModel[ƒ AktiveKonfigъ ConfigurationŸњ KonfigNameХ|Drawing<0 DrawingDocсSheet[ж SheetProps?qViewаI swModelDocExtЈsModelDocExtension› PathModelNameŒЄFileNamejУ saveFileNameу=DXFpfad"о DRWDOTpfad†Sc_InsertDrawing“щ boolstatusgо longstatusW longwarnings‡InStrRevФˆvbNoЇ% ExtensionыExportFlatPatternViewSSaveAsf;GetActiveConfigurationUџ NewDocumentиswDwgPaperA0sizeЋУGetCurrentSheetЦ~ GetProperties(ё#CreateFlatPatternViewFromModelView2­vbCrLfЏЌ GetFirstViewMМswDrawingSheetH SetDisplayTangentEdges2РswDisplayTangentEdges_eК-swTangentEdgesVisible €ShowSheetMetalBendNoteseЏ GetNextView‘  EditRebuildбSaveAs2CloseDoc еGetTitle- set_propertie\€„џModelDoc ї ConfigCount3 ConfigNamesЖ| PropConfigs6 CollectionщW PropNames0gPropjйConfigIЄPropType\wPropText#i` CreateObjectјŠvbOKOnlyѕВAddїr Name_propЏ€џGetConfigurationCountYц€џGetConfigurationNamesИ/ AllConfigsIї€џAddCustomInfo3{г€џswCustomInfoText k UserForm1)жMSFormsCwertK6UserFormNTextBox1ІSCommandButton1|дCommandButton1_ClickфС€џClickŠу€џShowѕ€џTextBoxЪQ€џџџ_B_var_TextBoxNU textboxwertM†€џџџ_B_var_textboxwertЏw€џџџ_B_var_Name_propуЈ€џџџ_B_var_AllConfigstebox1,ћ textboxbox1яJUserForm_Clickлјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ+ фџџ/ чџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ6Sџџџџ<џџ<џџ<(><џџТ< џџ<Јџџ<џџТ<Аџџ<Иџџи€ џџџџ€ ,`€ N€ џџџџ€ :р "  0€ џџџџ€ X@ ˜PЈ И*Р ^и №€ џџџџ  € T(€ >€ Vи€ џџџџРШ€ џџџџ€ џџџџџџџџ` џџџџx–xoџџуaus diesem Beitragу4http://ww3.cad.de/foren/ubb/Forum2/HTML/030056.shtmlљ­^І@у+modifiziert von Andi Beck, 27.November 2016€]ѕDh]ѕDHу0Tein Merker zum Auswerten, ob mit Zeichnungsvorlage gespeichert werden soll oder ohne]ѕ]ѕD№]ѕD]ѕD0]ѕP]ѕDh]ѕD€№ F!".0№ 0!>.<№ 0!H.:у=wenn keine Baugruppe aktiv ist, wird das Makro wieder beendet$! :!J LœЙNur fќr Baugruppen geeignet! PЙDXF AbwicklungANerze|џџЈkџџ уJvbAW = MsgBox("Mit Zeichnungsvorlage speichern?", vbSystemModal + vbYesNo)Ќ'B <B@TVorlagЌ 6 @ <B@ -- @Ќї---- 6!V'D KoуEnd If 6!^ 0B@\------A@ИЌ 6 @ <B@ ti BЌ 'Bіџџˆ :!^ 0B@\.foџџh–Ш]ѕЈ]ѕР]ѕи]ѕ]ѕ0]ѕP]ѕh]ѕ€]ѕ˜]ѕА№ЙSldWorks.Application$а.0а№ 0!H.Ку Exit SubуEnd Iftei ууG ************************************************************************уE diese folgenden Werte kіnnen editiert werden, hier einfach die Namene Naу9 der Dateieigenschaften reinschreiben/ergфnzen/Lіschen ;)уу? die gewќnschten Properties mal sammeln, ggf. einfach erweiternweу% jetzt besser nicht mehr editieren ;)*ШуG **********************************************************************у4 alle Dateieigenschaften aus der Konfiguration holen den N К!и'Мfigs К!к'Оn auуQ dann die Coolection vorbereiten mit den Namen der Konfigs bzw. "" wenn auf Datei мЌœЙ РB@дd ЮЌ МЌ ’ Ю$О РB@дnsch ЮЫ einsekШ Ш Р“ a Ц Ф“raу M als Dateieigenschaft wieder einsetzen, Dummywert "bitte ausfќllen" eintragen ру 7 und neu hinzufќgen; falls schon vorhanden passiert nix dЪЪџџџџ0[мЙ Ц р ж К%ойџџџџауIf ModelDoc Is Nothing Thenу <Call MsgBox("Keine Datei geіffnet", vbOKOnly, "Information")џџџџˆџџџџ ЙPos ФB@ду97Name der Eigenschaft fќr die Dicke des Blechs eintragenџџџџ@ !d'жуName des Wert/Ausdruckџџџџ џџџџ( у=If swDoc.GetType = swDocPART And swDoc.GetBendState <> 0 Thenџџџџ№џџџџ ИAttribute VB_Name = "Wert" иBasl0{5E5DE€56D-43CFDE-823B-53A82C9A36E3}{02BA5B76-41BE-4FD5-85AA-ED1E042F3883} ШGlobal†SpacAoFalse ŠC€reatablPredecla‰IdЯTru BРExpose0Template Deriv–Cu@stomiz‹D'aus diesem Beitrag 'http://ww3.cad.de/foren/ubb/Forum2/HTML/030056.shtmlmodifizi€Ч von Andi€*ck, 27.November 201Р6 PW[ Sub CommandButton1_Click()  Dim swApp@…As SldWorks†.G vbAW ‚ @ Integ@ ‰ 'ein Merkzum Ausw@0en, ob mit ZeichnungsvorlagРe gespР  den so ll odohЦnp‰-Docˆ‰-*M@ l€2‡ FiИrstH œ ElA†sD€ Enum@umentsHN‚sReturnуŠ€ Lon|XС Count„L b@WasVi siДBooleanУ/EkSetDk= Рl@sati\onLiD „/=C .Q/A ЦEActр] cЃ'wenn k`:e Baugruppe ak@ ist, wird dasР MakroР or beende"tcIf … .GetTy <>Р` ASSEMBL Y The† Ca ?MsgBox("Nur fќrчnFeignet!", v€bSystem`?al, "DXFP Abw ^l`L"sЃ^B0Ex OРcУE`nd IfcЃ'ib\= M’UEUn? +€Yes№€ џџџџ€ ,x€ NЈ€ џџџџ€ :ј "8 H€ џџџџ€ XX АPР а*и ^№ € џџџџ  0€ T@€ >˜ V№€ џџџџир€ џџџџ€ џџџџџџџџ( џџџџx–xoџџуaus diesem Beitragу4http://ww3.cad.de/foren/ubb/Forum2/HTML/030056.shtmlљ­^І@у+modifiziert von Andi Beck, 27.November 2016€]ѕDh]ѕDHу0Tein Merker zum Auswerten, ob mit Zeichnungsvorlage gespeichert werden soll oder ohne]ѕ]ѕD№]ѕD]ѕD0]ѕP]ѕDh]ѕD€№ F!".0№ 0!>.<№ 0!H.:у=wenn keine Baugruppe aktiv ist, wird das Makro wieder beendet$! :!J LœЙNur fќr Baugruppen geeignet! PЙDXF AbwicklungANerze|џџЈkџџ уJvbAW = MsgBox("Mit Zeichnungsvorlage speichern?", vbSystemModal + vbYesNo)Ќ'B <B@TVorlagЌ 6 @ <B@ -- @Ќї---- 6!V'D Ko 6!J X 6!ZЌœ 6!^ 0B@\------A@ИkџџИЌ 6 @ <B@ ti BЌ 'Bіџџˆ :!^ 0B@\.foџџh–Ш]ѕЈ]ѕР]ѕи]ѕ]ѕ0]ѕP]ѕh]ѕ€]ѕ˜]ѕА№ЙSldWorks.Application$а.0а№ 0!H.Ку Exit SubуEnd Iftei ууG ************************************************************************уE diese folgenden Werte kіnnen editiert werden, hier einfach die Namene Naу9 der Dateieigenschaften reinschreiben/ergфnzen/Lіschen ;)уу? die gewќnschten Properties mal sammeln, ggf. einfach erweiternweу% jetzt besser nicht mehr editieren ;)*ШуG **********************************************************************у4 alle Dateieigenschaften aus der Konfiguration holen den N К!и'Мfigs К!к'Оn auуQ dann die Coolection vorbereiten mit den Namen der Konfigs bzw. "" wenn auf Datei мЌœЙ РB@дd ЮЌ МЌ ’ Ю$О РB@дnsch ЮЫ einsekШ Ш Р“ a Ц Ф“raу M als Dateieigenschaft wieder einsetzen, Dummywert "bitte ausfќllen" eintragen ру 7 und neu hinzufќgen; falls schon vorhanden passiert nix dЪЪџџџџ0[мЙ Ц р ж К%ойџџџџауIf ModelDoc Is Nothing Thenу <Call MsgBox("Keine Datei geіffnet", vbOKOnly, "Information")џџџџˆџџџџ ЙPos ФB@ду97Name der Eigenschaft fќr die Dicke des Blechs eintragenџџџџ@ !d'жуName des Wert/Ausdruckџџџџ џџџџ( џџџџИAttribute VB_Name = "Wert" иBasl0{A2FC5750-CE1D-42A7-9061-ECD17B74F103}{02BA5B76-41BE-4FD5-85AA-ED1E042@F3883} ШG lobal†SpacoFalse ŠCreatablPredec$laIdЯTru BExpose0Templa€teDeriv–Customiz‹D'aus diesem Beitrag 'http://ww3.cad.de/foren/ubb/Forum2/HTML/030056.shtmlmodifizi€Ч vo@n Andi€*ck, 27.November 2016 PW[ Sub CommandButton1_Click()   Dim `swApp@…As SldWorks.G vbA W @ Integ@ ‰ 'ein Merkzu@m Ausw@0en, ob mit Zeichnungsvorlage gesp Р den €soll odohnp‰-DocЋˆ‰-M@ l€2‡ рFirstH œ ElAsD€ EnumumentsџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџ`€ўџџџџџ џџџџ0џџџџџџџџџџ%џџџџ@џџџџџџџџ@џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPгh‰[ЄпўЪ€€ џџџџџџџџаџџxџџџџpџџџџЯАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2€Option /licit џџMicrosoft Forms 2.0 FormEmbVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Wert HN‚sRetuŒrnŠ€ Lon|X Count„L b@Was0VisiДBo`oleanУ/EkSdetDk= Рl@saptionLiD „/==C .Q/A ЦEActр] cЃ'wenn k`:e Baugruppe ak@ ist, wird das MakroР or beenˆdetcIf … @.GetTy <>Р` ASSEM€BLY The† Ca ?MsgBox("NurP fќrчnFeignet!", vbSystem`?al, "D@XF Abw ^lЭ`L"Ѓ^B0Ex OРcУEnd IfcЅЃ'b\= M’UIEUn? +€Y№esNo„У РУ@˜= 0#†L.R@…Ф$‡Next 12,#$, ьLCWhўi@ MPР*D ЃСŒL;С= .„NчР4sw‡!e4$PARTaЫУ!8B€;Staс ЧL7A@pp.J У` gPathAМчet_prop§€i€}AaI4с‡?Ÿ%ƒr' Ѕ0F+ і1…mW ЃЃ3ЉYы ABL љР s !А!ЕAАСР†ObjecФ@՘‚mConfi^gC.Žƒс+saV arian P`,#cтNew bllРрDуёaFO џтcAOpeЎуљПв@~ ’Q0S0Š}YUi‘sT#tOАl=Ъ вe3("цlHSПAQvЁ.0#+e№! e 'P1VIs N@othing=/'U KKтRD /iJі ffJВBOKOnЄly0JIn€mB\ЉJ' J'љ/'Уј' *еСТŠ folg`/pwбŸe kіnnР0editт‡Cy, hа а fachЭqŽ Q"t[' бzRРYenschafКtPrР`b@@ergфnz€Lіі@р;ФR `