аЯрЁБс>ўџ ўџџџ"џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ0r@]…г €apcџџџџ@rŠtХтб0r@]…гThe VBA Project џџџџџџџџ@rŠtХтб0r@]…г_VBA_Projectџџџџџџџџ @rŠtХтб0r@]…г§џџџџџџџџџџџџџџџ  Їџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ џџџџ $џџџџџџџџ%&'(*џџџџ+,-ўџџџ/0123456789:;<=>?@ABCFџџџџџџџџbџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџcdefghŠџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџа _…г€&apcџџџџ@rŠtХтба _…гThe VBA Project џџџџџџџџ@rŠtХтба _…г_VBA_Projectџџџџџџџџ @rŠtХтба _…гџџџџџџџџ§џџџџџџџKџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџJH#ўџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџџџџџDџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџEGџџџџLI)MYOPQRSTUVWўџџџўџџџ[\]^_`aiџџџџџџџџџџџџџџџџџџџџџџџџџџџџjklўџџџnopqrstuvwxyz{|}~€DocumentSummaryInformation8џџџџџџџџџџџџ>dSummaryInformation(џџџџџџџџџџџџ:јISolidWorksInformation.џџџџџџџџ8PSwDocMgrTempStorage(џџџџА>жYЦтб0FqZЦтбHost Project Item Names0џџџџ GŒtХтба _…гVBA Project Data"џџџџNHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ Host Project Item Names0џџџџ GŒtХтб0r@]…гVBA Project Data"џџџџNHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџеЭеœ.“—+,љЎеЭеœ.“—+,љЎ0 75-494F-8209-772F9215F60D}" Document=ThisLibrarўџр…ŸђљOhЋ‘+'Гйр…ŸђљOhЋ‘+'Гй0Ш P\ht€Œ   ЌИ partstream@0FqZЦтб@3832D640ўџеЭеœ.“—+,љЎеЭеœ.“—+,љЎDеЭеœ.“—+,љЎt0 № h ЌФрє   p Ј мш0Convert sheet metal parts in an assembly to dxfPAUL NOVOROLSKYweiler engineering 7/20/2016AnySolidWorks Macro (VBA)HAll sheet metal parts will be opened, flattened, saved as a DXF, closed-an assembly with sheet metal parts is active)SolidWorks Assembly, SolidWorks AssemblyAny Contributed Byўџџџўџџџ) ўџџџўџџџўџџџ !"#$%ўџџџ'(.*+ўџџџўџџџўџџџ/01234ўџџџ6ўџџџL9ўџџџ;<=ўџџџ?@ABCDEFGHIJKўџџџMNўџџџPQRSTUVWXYZ[\]^_`aўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭє{еThisLibrary*{а5{0еL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{аа L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{д";{Pв$={pб&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИbТФX:\Mitarbeiter\Brakemeier\MakrosID="{26B00022-E675-494F-8209-772F9215F60D}" Document=ThisLibrary/&H00000000 Module=Export_Flat_to_dxf1 Name="Export_Flat_to_dxf" HelpContextID="0" VersionCompatible32="393222000" CMG="6A68F887718B718B718B718B" DPB="E7E5750A8FFA0DFB0DFB0D" GC="6466F6850E030F030FFC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Export_Flat_to_dxf1=791, 1, 1597, 962, C Xa`§џџџџџџџџџџџџџџџџџџџё!\Test-Makros\Export Flat to dxf and PDF\Export Flat to dxf-PDF.swpЬW-‡!^БPX16@_dxf1q!,@XA `§џџџџџџџџџџџџџџџџџџџ^БP@`§џџџџџџџџџџџџџџџџџџџQPXЁ`§џџџџџџџџџџџThisLibraryџџџџџџџџ€tХтб0r@]…гProject_Data_CurVer( џџџџ- Host Project Item List Data8џџџџџџџџџџџџ,VBAџџџџџџџџP™ŠtХтбЁ_stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\Syst em32\e2.tlb#OLE AutomatiŒon0€SldWorks>€CdWA€Grks€HŽ € „€H83A33D31-27C5-11CE-BFD4€H400513BB57}#19IProgr€am FileLOLIDWORKS Corp\SС†\sldwB‚U…H 2017 Type LibraryC€SwConst>wCеZnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C1 1F9893-wcA У,Ч6B-Т&antд t/l‹/ A,€/ mmand^СD0__SRP_1џџџџџџџџџџџџReqControl List Data*џџџџџџџџџџџџ™ Control_Data_CurVer(џџџџџџџџ˜ Control List Data$џџџџџџџџџџџџ—(mmank€„_›@‘РС10AC1DE9F-3FBCР125-868D-7D4E9139CCEО0і1ƒ"”2’2 'SWUtilitДieР2U€ЕЊi“iТe‚’ЉРŸРA362E9747A-1836-436E-827F-0AE2E0081353}Р#7d7.5ƒЗщ’uР#s\gtswЏF&6ЁL5АLЂтœ(!aThis„QGaT@vi Libr`7ryT2˜@"THЂ1т†ј@”‹","р™""J+Ђрo”1G&Ex‚p‚xt_Fр0Њaр0_`oрd hf1 a1f2ŸTxЏцˆ8­Шђ!@ Ѓ!џџџџџџџџџџџџџџџџ(rU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџЬ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}#19.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#S‚ƒ„…†‡ˆ‰‹џџџџŒŽўџџџ‘’ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_3џџџџџџџџџџџџ|D_VBA_PROJECTџџџџџџџџџџџџNэdirџџџџџџџџџџџџnj__SRP_0џџџџtolidWorks 2017 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}#19.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlb#SldWorks 2017 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#19.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2017 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#19.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2017 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џџџџџџWX#\5џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœ(ThisLibrary155c2385a7џџ+ThisLibraryџџр™јџџ&Export_Flat_to_dxf10;5c23852fџџ.&Export_Flat_to_dxf1џџШђц8џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXXSwЃHŸ@@jЫV}џџџџЁЌђЯЫFƒы/_$ёќ’џџџџџџџџH€wq< SolidWorks; VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў# Expor\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb SWUtilities С џџџџџџџџзё ‘ maintraverseћ“Й=я€KЅФ™•œлlыGetTitleflatdxfpdf  (SldWorks.Application VBE7.DLLџџџџџџџџЬ `"ht_Flat_to_dxfяаstdole“`ˆ џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕ ThisLibraryGЉ €џџџ_Evaluateй Export_Flat_to_dxf1Ќ(mainˆ,swAppы‘swmodel[ƒ ModelDoc2Ї^ CreateObjectјŠ ActiveDocк’savepathŠ-InputBoxЯ Ќ(traverseўPathname'swCompП Component2Ђ vChildComp#ъ swChildCompmŒsPadStrTјi` swRootComp7swConfП ConfigurationŸњ swConfMgr;бConfigurationManagerМEPartє~ boolstatusgо longstatusW longwarnings‡assem]part10 FoldernameЄ PathLengthmѓFilepathЌOFilenamejУActiveConfiguration>ђGetRootComponent3ѓ GetChildren6ж GetModelDoc2^ЧGetType)JЌ(flatЈўЌ(GetTitle-Path2path1& titleђ~Split)swfeatчиFeature!> FirstFeatureaнswflatVў swsubfeatDC GetTypeNameoшEditUnsuppress2>іЌ(dxfш… EditSuppress2р’Ќ(pdf0УCloseDoc е GetPathNameGetNextFeatureХ;swPartЂ~PartDocЛІ sModelName^… sPathName;Q varAlignment“S dataAlignment“”varViews93 dataViews‰—optionsЇ“ ApplicationЅ* ActivateDocI0 GetBendState8ЗaXCTextІўwm ExportToDWG!swDocФЁ pFilepath л pFilenameŒN MetalDrawingві CloseErrorsЛ CloseWarnings ДPartpath…]PartNameCбPDF_Pfad>qInStrRevФˆOpenDoc69ƒ swDocDRAWINGVбswOpenDocOptions_Silent—swDrawѓ’SaveAsf; _B_var_LeftQс€џџџ_B_var_aЂ €џџџ_B_var_CText“Т€џџџ_B_var_wЂ €џџџ_B_var_Pathžф €џџџ_B_var_swDraw] €џџџ_B_var_SldWorks,W Workspace3PartNam9кMsgBox—Rџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ+џџџџџџ/$!@Partpath…]PartNameCбPDF_Pfad>qInStrRevФˆOpenDoc69ƒ swDocDRAWINGVбswOpenDocOptions_Silent—swDrawѓ’SaveAsf; _B_var_LeftQс€џџџ_B_var_aЂ €џџџ_B_var_CText“Т€џџџ№ъдџџџџ0р8œ(ШђџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџшџџџџџџџџџџџџџџ (џџџџџџџџ0џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@!”џџ1”џџ0”6!”џџ!”џџ!”џџ !”џџ(!”џџ0> џџџџџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџ”џџџџLџџџџџџџџPџџџџLџџџџџџџџџџџџ<№џџ<јџџ<џџџџџџ8"""6"F"T"X"†" `X 0А`џџџџџџџџ ˆўџџkџџџџџџџџџџ „ „3џџџџјџџџџџџџp% „5X№џџџџџџџ%`„<џџџџШџџџџџџџџџ @h`џџџџџџџџ@ иўџџk џџџџ@@ Œ)ƒCџџџџџџџџ(0€%iƒ<џџџџџџџџџџџџџџ€ „3џџџџрџџџџџџџh% „Eџџџџиџџџџџџџˆ% „5PаџџџџџџџЈ%`„HџџџџИџџџџџџџ џџ „KАџџџџџџџр%`„LџџџџЈџџџџџџџџџ`„Np џџџџџџџџџ „QШ˜џџџџџџџ0% „SџџџџџџџP % „W8ˆџџџџџџџp(%`„Zш€џџџџџџџ џџ`„\џџџџxџџџџџџџ џџ`„^pџџџџџџџџџ`„`Јhџџџџџџџџџ`„bџџџџ`џџџџџџџџџ`„dXџџџџџџџџџ`„fxPџџџџџџџџџ`„h8џџџџџџџ џџ`„jџџџџ0џџџџџџџџџ`„l0(џџџџџџџџџ z`џџџџџџџџ№hџџџkР џџџџ JŒiƒ|џџџџџџџџџџџџџџ€`„~џџџџаџџџџџџџ џџ`„€РШџџџџџџџџџ x0`џџџџџџџџ№ Аџџџkhџџџџџџ11V„)ƒ5џџџџџџџџˆ€%iƒ<џџџџџџџџџџџџџџ€ „3hјџџџџџџџШ% „…џџџџиџџџџџџџш0% „‹џџџџШџџџџџџџ0% „џџџџРџџџџџџџ(0% ’`џџџџџџџџ8ўџџkˆ џџџџjj‡Œ)ƒ5џџџџџџџџЈА€%iƒ<џџџџџџџџџџџџџџ€ „3ˆрџџџџџџџш% „Ÿџџџџиџџџџџџџ8%`„Ђџџџџаџџџџџџџџџ`„ЄаШџџџџџџџџџ`„ІџџџџАџџџџџџџ џџ „Ј@џџџџџџџ’ p`„Њџџџџpџџџџџџџ џџ „Ќ˜Pџџџџџџџш’Ш`„Ўџџџџ@џџџџџџџџџ –џџџџ`џџџџџџџџџџџџАўџџH`џџџџџџ66ё„)ƒ5џџџџџџџџ€ˆ€%iƒ<џџџџџџџџџџџџџџ€ „3`јџџџџџџџР%`„Оџџџџ№џџџџџџџџџ`„Рџџџџшџџџџџџџџџ`„Тџџџџрџџџџџџџџџ`„Фџџџџиџџџџџџџџџ`„ЦШаџџџџџџџџџ`„ШџџџџШџџџџџџџџџ`„ЪџџџџРџџџџџџџџџ`„ЬџџџџИџџџџџџџџџ`„ЮџџџџЈџџџџџџџџџџџџџX0џџџџџџџџџџџџАџџџџhƒ.џџџџџџџџ џџџџџџџџџџџџџџџџџџ@%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜xџџџџџџџџџџџџџџџџџџџџџџџџи Р џџџџ№ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџ8>@@ўџ иџџџџџџџ џџ @ўџ( аџџџџџџџ џџ @ўџ Аџџџџџџџ џџ @ўџ8 ˜џџџџџџџ џџ @ўџP €џџџџџџџ џџ @ўџh hџџџџџџџ џџ @ўџ€ Pџџџџџџџ џџ @ўџ˜ 8џџџџџџџ џџ @ўџА џџџџџџџ џџ @ўџШ џџџџџџџ џџ @ўџр №ўџџџџџџ џџ @ўџј иўџџџџџџ џџ @ўџ Рўџџџџџџ џџ @ўџџџџџЈўџџџџџџ џџ @ўџџџџџўџџџџџџ џџ @ўџџџџџˆўџџџџџџ џџ №џџџџџџџџАџџџџиРџџџџџџџџPX8 р џџџџџџџџџџџџH 0 џџџџА џџџџШ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` џџџџџџџџџџџџр  ј @@џџџџшџџџџџџџ џџ р x џџџџџџџџ8@x@ўџџџџџџџџџџџџ џџ @ўџџџџџџџџџџџџ џџ @ўџˆ џџџџџџџџџ   ` "@ўџџџџџјўџџџџџџџ р ˆ "@ўџџџџџрўџџџџџџ џџ @ўџџџџџиўџџџџџџџџ џџџџˆ :џџџџџџџџџџџџџџџџџџџџ№аџџџџџџџџАџџџџџџџџџџџџџџџџџџџџи Р Ј џџџџџџџџ№ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ8’–@ўџџџџџрџџџџџџџ џџ @ўџџџџџаџџџџџџџ џџ @ўџџџџџИџџџџџџџџџ @ўџџџџџАџџџџџџџ џџ џџџџџџџџ0Xџџџџџџџџ №pАА(џџџџаџџџџџџџџјXџџџџ@H(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈрР@’џџџџшџџџџџџџ џџаЈџџџџџџџџџџџџАм‚@ўџџџџџ8џџџџџџџ џџ @ўџ0џџџџџџџџџ @ўџџџџџ(џџџџџџџџџ @ўџИџџџџџџџ џџ @ўџˆјўџџџџџџ џџ @ЖЈрўџџџџџџ џџ@ўџшШўџџџџџџ џџ @ИџџџџАўџџџџџџ џџ@ўџџџџџ˜ўџџџџџџ џџ @Кџџџџ€ўџџџџџџ џџ@ўџџџџџhўџџџџџџ џџ @ўџ`ўџџџџџџџџ @ўџџџџџXўџџџџџџџџ @|№@ўџџџџџџ џџ@ўџџџџџ8ўџџџџџџ џџ џџџџˆАџџџџџџџџџPpА(Xџџџџџџџџџџџџ`ˆЈјрˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPамюджШPИџџџџџџџ џџ €(ˆџџџџџџџџџ @ўџ€џџџџџџџџџ @ўџhџџџџџџџ џџ @ўџPџџџџџџџ џџ @ўџ8џџџџџџџ џџ @ўџ џџџџџџџ џџ hџџџџџџџ џџ џџџџџџџџјџџџџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШЈ@zџџџџшџџџџџџџ џџИџџџџџџџџџџџџ‚м@ўџ(Аџџџџџџџ џџ @ўџ˜џџџџџџџ џџ @ўџџџџџ€џџџџџџџ џџ @ўџџџџџhџџџџџџџ џџ џџџџXџџџџ@џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ЈWX#\5*\R3*#202*\R3*#202$*\Rffff*0;5c23852f*\R3*#17a*\R3*#205*\R3*#1b0*\R3*#253*\R3*#181*\R3*#17c*\R0*#17*\R3*#0*\R3*#0*\R3*#11*\R3*#11*\R3*#99*\R3*#99*\R3*#73*\R3*#73*\R3*#30*\R3*#30*\R3*#2e*\R3*#2e*\R1*#3*\R1*#0*\R0*#f*\R3*#a2*\R3*#a2*\R4*#1*\R4*#e0пўЪ'"€ € $0(.P€`(jh€ џџџџRЈB А€ џџџџ€ џџџџ€ И€ Ш€ и€ ш€ ј€ € € (€ 8€ H€ X€ h€ x€ ˆ€ ˜€ Ј€ И€ Ш€ и€ ш€ џџџџ€ џџџџ€ џџџџ$0ј   0.@.P2`€ џџџџ $x*ˆ . € џџџџ.А€ џџџџ Р€ џџџџ€ џџџџ ,а€ џџџџ$р  №€ jј€ hhа€ &р€ џџџџ€ l x€€ џџџџ€ џџџџ€ џџџџ€ џџџџ ˆ€ џџџџ ˜€ џџџџ€ џџџџ€ џџџџB  €Ј€А€ џџџџJИ8а Lш€ џџџџ€ џџџџ€ џџџџ € џџџџ" € џџџџ€ џџџџ€ € џџџџ€ џџџџ$0(€ $P€x.€€€ џџџџ€˜€ , € џџџџ€ &а€ џџџџ€ џџџџ€ ј€ џџџџ € џџџџ0€ 68€ џџџџ€ џџџџ p€ € џџџџ$ € џџџџА Р€ џџџџа€ џџџџ.€ џџџџ0р€ џџџџј.€ џџџџ € џџџџ€ € џџџџ(B 0€8€ џџџџ€@€ џџџџ€H€ џџџџ€P€ џџџџ€X€ џџџџ€`€ џџџџ€p€ џџџџ€x€ џџџџ€ˆ€ џџџџ€ џџџџ0< € џџџџ,И Ша€ џџџџ€ џџџџ€ џџџџ $и€ џџџџ $ш€ џџџџDј€ џџџџ€ џџџџ 0€ џџџџ@€ џџџџX€ џџџџp€ џџџџˆ€ џџџџ € џџџџИ€ џџџџа€ џџџџш€ џџџџ € џџџџ € џџџџ0 € џџџџH € џџџџ` € џџџџh € џџџџ€ € џџџџ˜ € џџџџ€ џџџџ€ џџџџ€ <  € џџџџ€ bр € џџџџ€ џџџџ€ џџџџ€ FH € џџџџP  *р V№ € џџџџ0 € џџџџ Z € џџџџ€ џџџџ€ џџџџ.Z@  p &R€ € џџџџ€ џџџџ€ џџџџ8XЈ € џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ р € џџџџ€ џџџџ" ш € џџџџ€№ €ј € € € € € €( €0 €8 € џџџџ$0И€ џџџџ&~@ € џџџџjш€ џџџџ€ R0€ џџџџ‚,ˆ € џџџџ€ € € џџџџ€ Œ € џџџџLP € џџџџ8p€ џџџџV€ џџџџш€ џџџџ2.№€ џџџџ (€ џџџџ€ N8€ џџџџ€ Dˆ€ џџџџ€ Lа€ џџџџ >h € џџџџ€ 6 € џџџџ$"X€ џџџџ*€€ џџџџАџџџџ–]ѕDX ]ѕDx!№ЙSldWorks.Application$8.2№ 2!:.4]ѕ˜ЙWhere do you want to save?$>'< 2!: <A@@oџџP–А]ѕDP#]ѕDp$]ѕD$]ѕDА$]ѕDШ$ј]ѕDш$]ѕD$]ѕD$]ѕD8$]ѕDX$]ѕDx$]ѕD$]ѕDЈ$]ѕDР$]ѕDи$]ѕD№$]ѕD$]ѕD $]ѕD8$]ѕDP$№ЙSldWorks.Application$8.2№ B.4№ 4.Z№ 4!X.V№ V!n.R№К R%p.P P!r'H NЌ H‘’№ N$H.J№ J!t.4 4Вœ 4!vЌœ 4 <A@@dџџуd''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''уbPlace what you want to run on each part here this is an example that will save all parts as an stl 4 <A@xуDebug.Print swmodel.GetPathNameуe'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''kџџ€kџџx NЫiџџ`–h]ѕр"=ЃƒХ'ЮПд@ЛW&m1 4Where do you want to save?џџџџџџџџT   0œ&mё 7CЖnѓЬGЛМДЙyг&mс˜=ЃƒХ'ЮПд@ЛW&t Q*o]eATбEŒКг_Вiˆф"h&mС8=ЃƒХ'ЮПд@ЛW&mQ FlatPattern&t Q&m1 €lІгЈН†Лж€lІгЈН†Лж‘"С"џџџџџџџџџџџџџџџџЧ ( &mС"&t1џџџџџџџџi ёр dwg2=ЃƒХ'ЮПд@ЛW *Current *Front \(~ . \Abwicklung- .dxf ]ѕј |Й\$‚'~ ~‘$~'€ € €Й.„Ќ $м'ziџџ№–]ѕDА&№ЙSldWorks.Application$8.2уSet swmodel = swApp.ActiveDoc]ѕа№ 4!ˆ.„]ѕ№]ѕу&Do Until UCase(swfeat.Name) = "ORIGIN"у swfeat = swfeat.GetNextFeatureу  Loop „Вb „!ŽЙ FlatPatternœу/MsgBox swfeat.Name & " " & swfeat.GetTypeName№ „.ŠК „B@H 4B@ 4 <A@’Œ$o .slddrw V (  A' *Inspect DWG files in ‘"`џџџџџџџџХ 1*€<П1 .PDF SaveAs .SLDPRT,B57}#1fГ€0* pH‚dфExport_Flat_to_dˆxfT@ j = ‚ WX#\5” J< 9€stdole>stdo€le hrU@@@@~~~~~~~~~~~~~~~("Q5эhсФКьJ–/ŽŒkyC фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ‘AБ џџџџџџџџ0џџџџџџџџЁ С ! Q q ‘ џџСбAqёБ1  Export_Flat_to_dxf ThisLibraryExport_Flat_to_dxf1яРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA џџџџџџџџ 1БP€lІгЈН†Лж5C:\Program Files\SOLIDWORKS ole2.tlbstdole бџџџџџџџџQ1=ЃƒХ'ЮПд@ЛW8C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlbSldWorks џџџџџџџџ1САYѓ‡FаUгLЖЯ.Д,љ‰ 7C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlbSwConst џџџџџџџџ‘аContributed DateContributor's Company Description Document Type Language Post Condition Precondition Programming Language SolidWorks VersionTitletributed ByContribuŸоС М?%L†}N‘9Ьр:C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb SwCommands A џџџџџџџџq  №ztщb6nC‚ трSFC:\Program Files%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\Syst em32\e2.tlb#OLE AutomatiŒon0€SldWorks>€CdWA€Grks€HŽ € „€H83A33D31-27C5-11CE-BFD4€H400513BB57}#19IProgr€am FileLOLIDWORKS Corp\SС†\sldwB‚U…H 2017 Type LibraryC€SwConst>wCеZnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C1 1F9893-wcA У,Ч6B-Т&antд t/l‹/ A,€/ mmand^СD0mmank€„_›@‘РС10AC1DE9F-3FBCР125-868D-7D4E9139CCEО0і1ƒ"”2’2 'SWUtilitДieР2U€ЕЊi“iТe‚’ЉРŸРA362E9747A-1836-436E-827F-0AE2E0081353}Р#7d7.5ƒЗщ’uР#s\gtswЏF&6ЁL5АLЂтœ(!aThis„QGaT@vi Libr`7ryT2˜@"THЂ1т†;@”‹","р™""J+Ђрo”1G&Ex‚p‚xt_Fр0Њaр0_`oрd hf1 a1f2ŸTxЏˆ6­Шђ!@ Ѓ!e-Path2path1rU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџXa`§џџџџџџџџџџџџџџџџџџџё!^БP@`§џџџџџџџџџџџЬ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}#19.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#SolidWorks 2017 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}#19.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlb#SldWorks 2017 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#19.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2017 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#19.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2017 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џџџџџџWX#\5џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœ(ThisLibrary1M5c238be0џџ+ThisLibraryџџр™;џџ&Export_Flat_to_dxf11O5c238be0џџ.&Export_Flat_to_dxf1џџШђ6џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhТ*,ˆ&F’ЪHРЋЫ`­џџџџГ,ЉЬC7NЉ\КУ8Ї„џџџџџџџџH€smd; SolidWorks; VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў# Export_Flat_to_dxfяаstdole“`ˆ џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕ ThisLibraryGЉ €џџџ_Evaluateй Export_Flat_to_dxf1Ќ(mainˆ,swAppы‘swmodel[ƒ ModelDoc2Ї^ CreateObjectјŠ ActiveDocк’savepathŠ-InputBoxЯ Ќ(traverseўPathname'swCompП Component2Ђ vChildComp#ъ swChildCompmŒsPadStrTјi` swRootComp7swConfП ConfigurationŸњ swConfMgr;бConfigurationManagerМEPartє~ boolstatusgо longstatusW longwarnings‡assem]part10 FoldernameЄ PathLengthmѓFilepathЌOFilenamejУActiveConfiguration>ђGetRootComponent3ѓ GetChildren6ж GetModelDoc2^ЧGetType)JЌ(flatЈўЌ(GetTitle-Path2path1& titleђ~Split)swfeatчиFeature!> FirstFeatureaнswflatVў swsubfeatDC GetTypeNameoшEditUnsuppress2>іЌ(dxfш… EditSuppress2р’Ќ(pdf0УCloseDoc е GetPathNameGetNextFeatureХ;swPartЂ~PartDocЛІ sModelName^… sPathName;Q varAlignment“S dataAlignment“”varViews93 dataViews‰—optionsЇ“ ApplicationЅ* ActivateDocI0 GetBendState8ЗaXCTextІўwm ExportToDWG!swDocФЁ pFilepath л pFilenameŒN MetalDrawingві CloseErrorsЛ CloseWarnings ДPartpath…]PartNameCбPDF_Pfad>qInStrRevФˆOpenDoc69ƒ swDocDRAWINGVбswOpenDocOptions_Silent—swDrawѓ’SaveAsf; _B_var_LeftQс€џџџ_B_var_aЂ €џџџ_B_var_CText“Т€џџџ_B_var_wЂ €џџџ_B_var_Pathžф €џџџ_B_var_swDraw] џџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ+џџџџџџ/$!@ @@џџџџшџџџџџџџ џџ р x џџџџџџџџ8@x@ўџџџџџџџџџџџџ џџ @ўџџџџџџџџџџџџ џџ @ўџˆ џџџџџџџџџ   ` "@ўџџџџџјўџџџџџџџ р ˆ "@ўџџџџџрўџџџџџџ џџ @ўџџџџџиўџџџџџџџџ џџџџˆ :‚ƒ„…ўџџџ‡ˆ‰Š‹ŒŽ‘’“”•ўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџQPXЁ`§џџџџџџџџџџџџџџџџџџџq!^БPX1`§џџџџџџџџџџџџџџџџџџџq!^БPXA `§џџџџџџџџџџџџџџџџџџџq!^БPb№@ўџџџџџџ џџ@ўџџџџџ8ўџџџџџџ џџ `„ьџџџџџџџџџџџџ№кдџџџџс5œ(р™џџ#ˆЖџџџџџџџџџџџџrUР@@@~x/Бa1aaё 1ё ЁЁЁсQС 1A Q!QС$Q%‘&A#,A/ё"'A'q'Б'ё'a))б)*б.q/0a+212a2О(gg0їїŸиџџџџ–иџџџVТјџџџМиџџџg.Ÿаџџџžјџџџє8˜аџџџUТ№џџџОаџџџgjёўџџёРўџџё№ўџџё џџџёPџџџё€џџџўАџџџIиџџџŸиџџџї8ЗШџџџъиџџџ€џџџPџџџ џџџ№ўџџРўџџўџџgRŸаџџџžјџџџє8ŸШџџџ˜аџџџUТˆўџџŸˆўџџŸиџџџьаџџџˆўџџМиџџџg{x(L&Шџџџ№џџџјџџџnJ аџџџˆўџџиџџџ€џџџPџџџ џџџ№ўџџРўџџўџџ Lgg0їїŸџџџџ–џџџVТрџџџМџџџgшИаџџџg˜аџџџИ€џџџg.Ÿџџџžаџџџєј ˜џџџUТˆџџџОџџџg.Ÿџџџžˆџџџєp ˜џџџUТџџџОџџџg2Ÿџџџэџџžџџџє8 ˜џџџUТ˜џџџОџџџg$Ÿџџџž˜џџџє8 –џџџЖИџџџg*№Ÿ џџџŸИџџџЕхqn‡јўџџ@g.Ÿ џџџЖ@ŸИџџџцџџџVТАџџџМџџџg.ŸџџџžАџџџєP ˜џџџUТаџџџОџџџg˜аџџџь& Ч$g,Ÿиўџџžаџџџєр ’иўџџ№?Чg$яŸаџџџŸџџџМџџџЦggяŸаџџџ gggŸ џџџЅјўџџ6gИ (L zшџџџXџџџиџџџИџџџPџџџ€џџџЈџџџ`џџџ(џџџˆџџџџџџаџџџрџџџ0џџџ8џџџ˜џџџАџџџ џџџџџџHih~gg0їїŸрџџџџ–рџџџVТјџџџМрџџџg.ŸаџџџюєР ˜аџџџUТиџџџОаџџџg˜иџџџь& Чg0ŸИџџџžиџџџєh—ИџџџїDНИџџџЧРg˜иџџџИШџџџgŸАџџџэџџžиџџџє№gŸАџџџює€ g$яяŸрџџџМрџџџgŸАџџџэџџžШџџџє№gŸАџџџюєx gяяg.Ÿаџџџžјџџџє8˜аџџџUОаџџџg0ŸИџџџюєи —ИџџџžјџџџєˆНИџџџgg.ŸаџџџžиџџџєX˜аџџџUТиџџџОаџџџg Цdg{PP,РџџџШџџџиџџџјџџџ&ИџџџаџџџрџџџОtgg0Ÿ8џџџпZєp˜8џџџUТрџџџО8џџџg<Ÿ8џџџŸ0џџџюєи —0џџџžрџџџєXН0џџџО8џџџg,Ÿ(џџџює( ’(џџџ№PЧЈg Иgg$Ÿ0џџџюєи "0џџџЗаџџџg$Ÿ0џџџюєи "0џџџЗШџџџgD—ШџџџL№аŸШџџџЗџџџ@Ÿјўџџџ–јўџџ`ЗШџџџМјўџџg—ШџџџїPЗШџџџgшU Тиџџџgѕ№ŸџџџMgѕ№ŸџџџMgѕ№ŸџџџMgѕ№?№ŸџџџMgѕ№ŸџџџMgѕ№ŸџџџMgѕ№ŸџџџMgѕ№?№ŸџџџMgѕ№ŸџџџMgѕ№ ŸџџџMgѕ№ ŸџџџMgѕ№?№ ŸџџџMgŸџџџЗџџџ УАџџџgї!№ŸPџџџTgї"№ŸPџџџTgŸPџџџЗџџџ Уpџџџg№!В@џџџg*Ÿ0џџџюєи "0џџџqјўџџЖрўџџgV№№џџџџўџџџ#IјўџџŸјўџџ–рўџџa0џџџŸШўџџџ(–ШўџџЖАўџџН0џџџМјўџџg0ŸАўџџЕхqnlџџџŸАўџџцјўџџЖ€ўџџgZ№–€ўџџўџџџ$№Oјўџџј˜ўџџдШўџџ–Ÿ€ўџџŸhўџџџ–hўџџЖ€ўџџМјўџџgZчї%Pg`ўџџŸ0џџџюєа —0џџџPgXўџџї&PqјўџџЖ@ўџџы`ўџџ0џџџXўџџg–@ўџџb^'gRŸ8ўџџэџџџ’@џџџpp Аџџџэџџ№—аџџџ–@ўџџa0џџџžиџџџє(Н0џџџgX—ШџџџL№аŸШџџџЗџџџ@Ÿјўџџџў˜ўџџ(–јўџџШШўџџb^'ъјўџџШўџџgИе К ŠB@H 4B@” 4 <A@– 4!š 2B@˜kџџ№ „!œ.„Мџџшу largestoџџа–0]ѕа]ѕ№]ѕ]ѕ(]ѕ@]бЌ ѕX]ѕ˜]бЌѕА]ѕ№№ А!".2 4!š 2B@В 4!ДЌœzџџ0kџџ( 4!š'Ђ 4!š'Є Є ЄЌ $м'Є ЄЙdwg 'Є№ 4.žЗЌ+ЈЗЌ+ЈЗЌ+ЈЗ№?Ќ+ЈЗЌ+ЈЗЌ+ЈЗЌ+ЈЗ№?Ќ+ЈЗЌ+ЈЗЌ +ЈЗЌ +ЈЗ№?Ќ +Ј Ј'ІЙ*CurrentЌ+ЌЙ*FrontЌ+Ќ Ќ'Њу6Export each annotation view to a separate drawing fileу[swPart.ExportToDWG sPathName, sModelName, 3, False, varAlignment, False, False, 0, varViewsу?Export flat pattern of the sheet metal to a single drawing fileЌ!'ЎуB0100001 - include flat pattern geometry and "Bibliotheks-Features" 4!š'Ж ЖЙ\$‚'И И‘$И'К К КЙ.„Ќ $м'К <Й \Abwicklung- 4!zЙ.dxf'|[м |й | ЂЌК ІКК ЎК žB@М [мЙInspect DWG files in Є ЄЌ $м йiџџ–]ѕЈ]ѕШ]ѕр]ѕј]ѕ]ѕ(]ѕ@]ѕX]ѕp]ѕˆ 4!š 4!šЙ\$а$м'Ъ <Й\ ЬЙ.PDF'Ю Ъ ЬЙ.slddrw'Фу4_ Pfad der zu іffnenden zeichnung, muss im gleichen Ornder wie Teil sein und selben Namen tragenуzMsgBox (MetalDrawing) ' Kontrolle ob Dateipfad korrekt ... ich weiп, es gibt Debug.Print, dafќr bin ich aber noch zu doofу… nachfolgend immer der Fehler: Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt ... bin da voll ќberfragt№ Ф д жЙ Ц Ш 2%в.4уtіffnet Zeichnung zu Blechteil 4В 4!v дœ|у M wenn Zeichnung nicht gefunden oder geіffnet bei nфchstem Blech weiter machenkџџ№ 2!:.4у  Kontrolle ob Zeichnung aktiv№ 4.иуH pFilepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))у> pFilename = Left(swDraw.GetTitle, Len(swDraw.GetTitle) - 9) 'уE PDF_Pfad = savepath & pFilename & ".pdf" ' Speicherpfad-Name fќr PDFу/ MsgBox (PDF_Pfad) ' Kontrolle ob Pfad korrekt Ю иB@ку PDF speichern Ф 2B@˜у Zeichnung schlieпenoџџ0№ЙSldWorks.Application$8.2џџџџр 4!z 4!z$м'Ьџџџџи№ 2!:.4џџџџPџџџџ€уLPartName = Left(swmodel.GetTitle, InStrRev(swmodel.GetTitle, ".SLDPRT") - 1)џџџџpџџџџKЖAttribute VB_Name = "Export_Flat_to_dxf1" Sub main() Dim swApp As Sld@Works.  lmodel n 6M%Doc2!7 Seto= CreateObРject("fŒlication^"Ё_5n=?.РActiveWVavepath& >†ng s… = InputBox("Where do you want to‚?9 tЂr€rse 6,'@ End €Ѕ  FunFon щ…(P€CnТ€E†ч‡Qp ‚SЉЎФуƒComqСCХpAA onentBc 7rƒvChildУ“€VariРVУa„) ž)PadStОrСƒЮСˆ|i 3€ LoХ‡У%RoРpр1п!с:Fold0џџџ`ўџџXўџџ8џџџјўџџШўџџhўџџо<gg0їїŸ˜џџџџ–˜џџџVТјџџџМ˜џџџg~Ÿџџџюєи Ÿˆџџџюєи №№џџџџї#—ˆџџџђ) "џџџq˜џџџŸpџџџџ–pџџџ`ЗРџџџНˆџџџъ˜џџџpџџџgHŸџџџюєа №№џџџџї.—џџџђ) №”НџџџЧˆg†Ÿџџџюєа Ÿˆџџџюєа №№џџџџї.—ˆџџџђ) №а"џџџq˜џџџŸpџџџџ–pџџџ`ЗИџџџНˆџџџъ˜џџџpџџџЦВgg$Ÿџџџюєа "џџџЗИџџџgg,—Рџџџ—ИџџџPgџџџї+PЗиџџџНџџџgPŸhџџџŸШџџџŸаџџџї№№—иџџџžјџџџє€*˜hџџџUОhџџџg8шь&Ÿ`џџџюєр ’`џџџ№P&Чtg{gg.Ÿhџџџžјџџџє8˜hџџџUОhџџџgшОHџџџg>чї#Pgџџџ—ИџџџPgˆџџџї,PЗАџџџыџџџˆџџџg"—Аџџџq0џџџ–HџџџТа-g—иџџџžјџџџєˆg{sш<pJ иџџџHџџџИџџџ№џџџРџџџјџџџрџџџшџџџАџџџl2џџџˆџџџhџџџ˜џџџpџџџ aS б&h "a "a  $h Б "a&t.4 4Вœ 4!vЌœ 4 <A@@dџџуd''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''уbPlace what you want to run on each part here this is an example that will save all parts as an stl 4 <A@xуDebug.Print swmodel.GetPathNameуe'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''kџџ€kџџx NЫ№ђдџџџџ86œ(ШђџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџшџџџџџџџџџџџџџџ (џџџџџџџџ0џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@!”џџ1”џџ0”6!”џџ!”џџ!”џџ !”џџ(!”џџ0> џџџџџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџ”џџџџLџџџџџџџџPџџџџLџџџџџџџџџџџџ<№џџ<јџџ<џџџџџџ8"""6"F"T"X"†" џџџџ` 0А`џџџџџџџџ ˆўџџkџџџџџџџџџџ „ „3џџџџјџџџџџџџp% „5X№џџџџџџџ%`„<џџџџШџџџџџџџџџ @h`џџџџџџџџ8 иўџџk џџџџ@@ Œ)ƒCџџџџџџџџ(0€%iƒ<џџџџџџџџџџџџџџ€ „3џџџџрџџџџџџџh% „Eџџџџиџџџџџџџˆ% „5PаџџџџџџџЈ%`„HџџџџИџџџџџџџ џџ „KАџџџџџџџр%`„LџџџџЈџџџџџџџџџ`„Np џџџџџџџџџ „QШ˜џџџџџџџ0% „SџџџџџџџP % „W8ˆџџџџџџџp(%`„Zш€џџџџџџџ џџ`„\џџџџxџџџџџџџ џџ`„^pџџџџџџџџџ`„`Јhџџџџџџџџџ`„bџџџџ`џџџџџџџџџ`„dXџџџџџџџџџ`„fxPџџџџџџџџџ`„h8џџџџџџџ џџ`„jџџџџ0џџџџџџџџџ`„l0(џџџџџџџџџ z`џџџџџџџџџџџџ Р џџџџ JŒiƒ|џџџџџџџџџџџџџџџџџџ€`„~џџџџџџџџџџџџ џџ`„€џџџџџџџџџџџџџџ x0`џџџџџџџџш Аџџџkhџџџџџџ11V„)ƒ5џџџџџџџџˆ€%iƒ<џџџџџџџџџџџџџџ€ „3hјџџџџџџџШ% „…џџџџиџџџџџџџш0% „‹џџџџШџџџџџџџ0% „џџџџРџџџџџџџ(0% ’`џџџџџџџџ8ўџџkˆ џџџџjj‡Œ)ƒ5џџџџџџџџЈА€%iƒ<џџџџџџџџџџџџџџ€ „3ˆрџџџџџџџш% „Ÿџџџџиџџџџџџџ8%`„Ђџџџџаџџџџџџџџџ`„ЄаШџџџџџџџџџ`„ІџџџџАџџџџџџџ џџ „Ј@џџџџџџџ’ p`„Њџџџџpџџџџџџџ џџ „Ќ˜Pџџџџџџџш’Ш`„Ўџџџџ@џџџџџџџџџ –џџџџ`џџџџџџџџџџџџџџџH`џџџџџџ::ё„)ƒ5џџџџџџџџ€ˆ€%iƒ<џџџџџџџџџџџџџџ€ „3`јџџџџџџџР%`„Оџџџџ№џџџџџџџџџ`„Рџџџџшџџџџџџџџџ`„Тџџџџрџџџџџџџџџ`„Фџџџџиџџџџџџџџџ`„ЦШаџџџџџџџџџ`„ШџџџџШџџџџџџџџџ`„ЪџџџџРџџџџџџџџџ`„ЬџџџџИџџџџџџџџџ`„ЮџџџџАџџџџџџџџџ0џџџџџџџџџџџџАџџџџhƒ.џџџџџџџџјџџџџџџџџџџџџџџџџџџ@%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜xџџџџџџџџџџџџџџџџџџџџџџџџа И џџџџш џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџџџџџ8>@@ўџ иџџџџџџџ џџ @ўџ аџџџџџџџ џџ @ўџ Аџџџџџџџ џџ @ўџ0 ˜џџџџџџџ џџ @ўџH €џџџџџџџ џџ @ўџ` hџџџџџџџ џџ @ўџx Pџџџџџџџ џџ @ўџ 8џџџџџџџ џџ @ўџЈ џџџџџџџ џџ @ўџР џџџџџџџ џџ @ўџи №ўџџџџџџ џџ @ўџ№ иўџџџџџџ џџ @ўџ Рўџџџџџџ џџ @ўџџџџџЈўџџџџџџ џџ @ўџџџџџўџџџџџџ џџ @ўџџџџџˆўџџџџџџ џџ №џџџџџџџџАџџџџиРџџџџџџџџPX8 и џџџџџџџџџџџџ@ ( џџџџЈ џџџџР џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX џџџџџџџџџџџџи  № @@џџџџшџџџџџџџ џџ и p џџџџџџџџ8@x@ўџџџџџџџџџџџџ џџ @ўџџџџџџџџџџџџ џџ @ўџ€ џџџџџџџџџ ˜ X "@ўџџџџџјўџџџџџџџ и € "@ўџџџџџрўџџџџџџ џџ @ўџџџџџиўџџџџџџџџ џџџџ€ :џџџџџџџџџџџџџџџџџџџџ№аџџџџџџџџАџџџџџџџџџџџџџџџџџџџџа И   џџџџџџџџш џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџџџџџ8’–@ўџџџџџрџџџџџџџ џџ @ўџџџџџаџџџџџџџ џџ @ўџџџџџИџџџџџџџџџ @ўџџџџџАџџџџџџџ џџ џџџџџџџџ(Xџџџџџџџџ˜№hАА(џџџџШџџџџџџџџ№Pџџџџ8@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ иИ@’џџџџшџџџџџџџ џџШ џџџџџџџџџџџџАм‚@ўџџџџџ8џџџџџџџ џџ @ўџј0џџџџџџџџџ @ўџџџџџ(џџџџџџџџџ @ўџАџџџџџџџ џџ @ўџ€јўџџџџџџ џџ @Ж рўџџџџџџ џџ@ўџрШўџџџџџџ џџ @ИџџџџАўџџџџџџ џџ@ўџџџџџ˜ўџџџџџџ џџ @Кџџџџ€ўџџџџџџ џџ@ўџџџџџhўџџџџџџ џџ @ўџ`ўџџџџџџџџ @ўџџџџџXўџџџџџџџџ @|№@ўџџџџџџ џџ@ўџџџџџ8ўџџџџџџ џџ џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  WX#\5*\R3*#202*\R3*#202$*\Rffff*1O5c238be0*\R3*#17a*\R3*#205*\R3*#1b0*\R3*#253*\R3*#181*\R3*#17c*\R0*#17*\R3*#0*\R3*#0*\R3*#11*\R3*#11*\R3*#99*\R3*#99*\R3*#73*\R3*#73*\R3*#30*\R3*#30*\R3*#2e*\R3*#2e*\R1*#3*\R1*#0*\R0*#f*\R3*#a2*\R3*#a2*\R4*#1*\R4*#e0пўЪ+"€ € $0(.P€`(jh€ џџџџRЈB А€ џџџџ€ џџџџ€ И€ Ш€ и€ ш€ ј€ € € (€ 8€ H€ X€ h€ x€ ˆ€ ˜€ Ј€ И€ Ш€ и€ ш€ џџџџ€ џџџџ€ џџџџ$0ј   0.@.P2`€ џџџџ $x*ˆ . € џџџџ.А€ џџџџ Р€ џџџџ€ џџџџ ,а€ џџџџ$р  №€ jј€ hhа€ &р€ џџџџ€ l x€€ џџџџ€ џџџџ€ џџџџ€ џџџџ ˆ€ џџџџ ˜€ џџџџ€ џџџџ€ џџџџB  €Ј€А€ џџџџИа ш€ џџџџ€ џџџџ€ џџџџ€ џџџџ" € џџџџ€ џџџџ€ € џџџџ€ џџџџ$0(€ $P€x.€€€ џџџџ€˜€ , € џџџџ€ &а€ џџџџ€ џџџџ€ ј€ џџџџ € џџџџ0€ 68€ џџџџ€ џџџџ p€ € џџџџ$ € џџџџА Р€ џџџџа€ џџџџ.р€ џџџџ0№€ џџџџ.€ џџџџ € џџџџ€ (€ џџџџ8B @€H€ џџџџ€P€ џџџџ€X€ џџџџ€`€ џџџџ€h€ џџџџ€p€ џџџџ€€€ џџџџ€ˆ€ џџџџ€˜€ џџџџ€ џџџџ0 <А€ џџџџ,Ш ир€ џџџџ€ џџџџ€ џџџџ $ш€ џџџџ $ј€ џџџџD€ џџџџ(€ џџџџ @€ џџџџP€ џџџџh€ џџџџ€€ џџџџ˜€ џџџџА€ џџџџШ€ џџџџр€ џџџџј€ џџџџ € џџџџ( € џџџџ@ € џџџџX € џџџџp € џџџџx € џџџџ € џџџџЈ € џџџџ€ џџџџ€ џџџџ€ <А € џџџџ€ b№ € џџџџ€ џџџџ€ џџџџ€ FX € џџџџP   *№ V € џџџџ0 € џџџџ Z0 € џџџџ€ џџџџ€ џџџџ.ZP  € &R € џџџџ€ џџџџ€ џџџџ8XИ € џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ № € џџџџ€ џџџџ" ј € џџџџ€ € € € € €( €0 €8 €@ €H € џџџџ$0P € џџџџ&~x € џџџџ"H2†( ` $hx€ џџџџ‚,А € џџџџ€ €8 € џџџџ€ ŒИ € џџџџLPH€ џџџџ  € џџџџ8˜€ џџџџVИ€ џџџџ€ џџџџ2.€ џџџџ P€ џџџџ€ N`€ џџџџ€ DА€ џџџџ€ Lј€ џџџџ >H€ џџџџ€ 6h€ џџџџ$" € џџџџ*Ш€ џџџџјџџџџˆ–]ѕDX 0DE]ѕDx!11B№ЙSldWorks.Application$8.2RE№ 2!:.4b]ѕ˜ЙWhere do you want to save?$>'< 2!: <A@@oџџP–А]ѕDP#]ѕDp$]ѕD$]ѕDА$]ѕDШ$ј]ѕDш$]ѕD$]ѕD$]ѕD8$]ѕDX$]ѕDx$]ѕD$]ѕDЈ$]ѕDР$]ѕDи$]ѕD№$]ѕD$]ѕD $]ѕD8$]ѕDP$№ЙSldWorks.Application$8.2№ B.4№ 4.Z№ 4!X.V№ V!n.R№К R%p.P P!r'H NЌ H‘’№ N$H.J№ J!t.4 4Вœ 4!vЌœ 4 <A@@dџџуd''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''уbPlace what you want to run on each part here this is an example that will save all parts as an stl 4 <A@xуDebug.Print swmodel.GetPathNameуe'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''kџџ€kџџx NЫiџџ`–h]ѕр]ѕј |Й\$‚'~ ~‘$~'€ € €Й.„Ќ $м'ziџџ№–]ѕDА&№ЙSldWorks.Application$8.2уSet swmodel = swApp.ActiveDoc]ѕа№ 4!ˆ.„]ѕ№]ѕу&Do Until UCase(swfeat.Name) = "ORIGIN"у swfeat = swfeat.GetNextFeatureу  Loop „Вb „!ŽЙ FlatPatternœу/MsgBox swfeat.Name & " " & swfeat.GetTypeName№ „.ŠК „B@H 4B@ 4 <A@’К ŠB@H 4B@” 4 <A@–№ 2!:.4 4!š 2B@˜kџџ№№ „!œ.„Мџџиу largestoџџР–0]ѕа]ѕ№]ѕ]ѕ(]ѕ@]бЌ ѕX]ѕ˜]бЌѕА]ѕ№№ А!".2 4!š 2B@В 4!ДЌœzџџ kџџ 4!š'Ђ 4!š'Єј Є ЄЌ $м'Є ЄЙdwg 'Є№ 4.žЗЌ+ЈЗЌ+ЈЗЌ+ЈЗ№?Ќ+ЈЗЌ+ЈЗЌ+ЈЗЌ+ЈЗ№?Ќ+ЈЗЌ+ЈЗЌ +ЈЗЌ +ЈЗ№?Ќ +Ј Ј'ІЙ*CurrentЌ+ЌЙ*FrontЌ+Ќ Ќ'Њу6Export each annotation view to a separate drawing fileу[swPart.ExportToDWG sPathName, sModelName, 3, False, varAlignment, False, False, 0, varViewsу?Export flat pattern of the sheet metal to a single drawing fileЌ!'ЎуB0100001 - include flat pattern geometry and "Bibliotheks-Features" 4!š'Ж ЖЙ\$‚'И И‘$И'К К КЙ.„Ќ $м'К <Й \Abwicklung- 4!zЙ.dxf'|[м |й | ЂЌК ІКК ЎК žB@М [мЙInspect DWG files in Є ЄЌ $м йiџџ–]ѕЈ]ѕШ]ѕр]ѕј]ѕ]ѕ(]ѕ@]ѕX]ѕp]ѕˆ№ЙSldWorks.Application$8.2 4!š 4!šЙ\$а$м'Ъ№ 2!:.4z Ъ ЬЙ.slddrw'Фу4_ Pfad der zu іffnenden zeichnung, muss im gleichen Ornder wie Teil sein und selben Namen tragenуzMsgBox (MetalDrawing) ' Kontrolle ob Dateipfad korrekt ... ich weiп, es gibt Debug.Print, dafќr bin ich aber noch zu doofу… nachfolgend immer der Fehler: Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt ... bin da voll ќberfragt№ Ф д жЙ Ц Ш 2%в.4уtіffnet Zeichnung zu Blechteil 4В 4!v дœ|у M wenn Zeichnung nicht gefunden oder geіffnet bei nфchstem Blech weiter machenkџџ€№ 2!:.4у  Kontrolle ob Zeichnung aktiv№ 4.иуH pFilepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))у> pFilename = Left(swDraw.GetTitle, Len(swDraw.GetTitle) - 9) 'уE PDF_Pfad = savepath & pFilename & ".pdf" ' Speicherpfad-Name fќr PDF <Й\ ЬЙ.PDF'Юу/ MsgBox (PDF_Pfad) ' Kontrolle ob Pfad korrekt Ю иB@ку PDF speichern Ф 2B@˜у Zeichnung schlieпenoџџ˜ 4!zЙ.SLDPRT$аЌ œ 4!z 4!zЙ.SLDPRT$аЌ $м'Ьdџџ0 4!z'ЬkџџџџџџxџџџџKЖAttribute VB_Name = "Export_Flat_to_dxf1" Sub main() Dim swApp As Sld@Works.  lmodel n 6M%Doc2!7 Seto= CreateObРject("fŒlication^"Ё_5n=?.РActiveWVavepath& >†ng s… = InputBox("Where do you want to‚?9 tЂr€rse 6,'@ End €Ѕ  FunFon щ…(P€CnТ€E†ч‡Qp ‚SЉЎФуƒComqСCХpAA onentBc 7rƒvChildУ“€VariРVУa„) ž)PadStОrСƒЮСˆ|i 3€ LoХ‡У%RoРpр1п!с:Fold 2 Then Exit (FunLond˜ If;sMUгM‹swcs8# Left(†, Len) - 6)‚<‰*†+ "0dwg"ƒ’Part‡; ИAlignment(02)€0# €Ц= U 2•3 1%4еU 567бъ8U 91—>Т>C@ЎK@J OMƒЏ‚"р*CurrV‚`A ЦЖ= "*FroЬnt‚FФ= F С‚ 'ExpoРmeach ann&oРЄ€С vРа to a sepaBrЊdrawРЫ ˆfilД'sw|.CToDWG “ЧЋ, 3, Fрalse,ч9Ф0‚B1Ю'flat pattern of the she€чmetŒal„*€'le A%{= 33 '(0101\in@clude Ъ g$eo€ ryр!d €"Biblioр ks-Featuhresр*a@4ВpCTexс`Split(a, "\" Тhw ‚(UBoаund(‚)fЂq w, In“(ш"."p1"!"aoСave@!h &` Abwickl`ung-"HT it€!`.dxf Debug.Py`žt ! a—8, i71, Tru\7D,, Null†7)"Inspect СDAHs i`n " + ŽМ1wУС aEРЂ‡Є!S€ub pdf(„лbЛД.ЂІРВ2 х&џ@У@,€E"+AУcМсхŸ'Му!ЛцуЩpF aЛ1nрОЉЬСMaUDфhŒCloseрErrorhа№WarnLС7с"Хl PDF_P˜fadщ‹мCr@\eObj@5("… ю.hпƒY&=ф7в$YјRev3Iтуb0 уb^,тWР.SLDˆPRT`a> 1$хŸСx†OЄ_et_”- 6EрI |/н4 z6yК=5rtЂ&ЂвБ7slddrw" ' вder zu іffn`€en€ zeichn0< , mus1m Œgl1АOrnёwie TeilЯ№Xp3рC€lb№‘@n trag!„ 'MsgBoxT ( )БKar„ol@Aob D ]ipБ korre€kt ... ` weiп, e`s gibр:WC,С№cfќr bdabp no€cР dDooЂŠ' n dfolрd imm0ё Fehler@: Laufрtfђ '91': ё&kt€jiabс With-BPlockvnPt festgel eg# бda vщ€ ќ f"ŸS‰r’ASQœ.Open-<6ЪAw@DR`AWINGбdOI#Ё_Sp>nt ("<, h:ФЅ90 '12t ZqBl№echtАВJЅ[ вЃБЃа0†LIs †N g‘J Or y4PTypeБЃsЈ )/д1”ЄaQp''nnу( cgefP$$`Ѕr ge” bei nфchsteœm ’ !`w mpЯ#&XƒЉ?p.ж ВѓJ'gakГ№6еGAQчR’q' їU>aџ[D8>ЯЁw"FФ2YЮ{$AвЏwEBсwP'уѓжS= s'xR ‚Kс>`h"`>Spв;r§6-В@3‘Ѓ|Пё{FMС€p{ = 5=Ѕџ<‚EЄ </Elem’ <duАџџџАўџџрўџџPџџџent rsid="Fo’t="pџџџШџџџрџџџ€ўџџаџ