ࡱ> Root EntrykR5apc ufkRThe VBA Project  ufkR_VBA_Project ufkR@ '^;R"#$%&)Y+-234567:=S>C bQUTX?Z_`aRoot Entry%i05apc uf%i0The VBA Project  uf%i0_VBA_Project uf%i0  @ ,'^*;Y(O0189<SA bBDFGHIJKLMNP TX?Z_`aHost Project Item Names0 wf%i0VBA Project Data" Host Project Items&4VBA Project Signature, 4  !"#$%&'()*+,-./5lmopqrstuvwxyz{|}~{0ThisLibrary*{P5{pL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{";{І$={&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}K\\SV01\Daten\12 Konstruktion\SolID="{4CFEFC46-BB5C-4C75-9598-965A64AA0759}" Document=ThisLibrary/&H00000000 Module=SpeichernAlsPDF1 HelpFile="" Name="SpeichernAlsPDF" HelpContextID="0" VersionCompatible32="393222000" CMG="4E4C4BFB5F0F0D130D130D130D13" DPB="F8FAFDFEFEFEFEFE" GC="A2A0A70F50105010AF" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C SpeichernAlsPDF1=66, 87, 928, 753, Z Jm  S  (~ b"h SLDidWorks Vorlagen\Makros\SpeichernAlsPDF.swpS-6@,@xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2/\\SV01\Daten\12 Konstruktion\Zeichnungen (DXFlsDXF.swpS- ,B@L`JX]Xx] 'ThisLibrarywf%i0Project_Data_CurVer( 7 Host Project Item List Data86VBA uf ֫o+PROJECTwmYPROJECT ThisLibrarySpeichernAlsPDF1"EThisLibraryThisLibrarySpeichernAlsPDF1SpeichernAlsPDF1rarySpeichernAlsPDF1SpeichrU@@@jh%^0* pHdSpeichernAlsPDFQH@  = | -4T J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation0SldWorks>#CdWGrksHost Project Item Names0 wfkRVBA Project Data" Host Project Items&4VBA Project Signature, 66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2J Desktop\F "$.#b.#,p[@Gfg+ lj~LZt.A*2 xj~4 6 !"#$%&'()*+,-./5lmopqrstuvwxyz{|}~, DesktopSpecialFolders \ . a i P"h .pdf". GetFileB| 3T J< 9stdole>stdoleP h%^0* pHdSpeichernAlsPDFQH@  = | 3Ti J< 9stdole>stdoleP h%^{ЬThisLibrary*{P5{L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ ܅ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{@܅";{`܅$={܅&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}K\\SV01\Daten\12 Konstruktion\SolID="{4CFEFC46-BB5C-4C75-9598-965A64AA0759}" Document=ThisLibrary/&H00000000 Module=SpeichernAlsPDF1 HelpFile="" Name="SpeichernAlsPDF" HelpContextID="0" VersionCompatible32="393222000" CMG="EDEFE8DB380E3C0E3C0E3C0E3C" DPB="1C1E190C673A683A683A" GC="4B494E617C627C6283" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C SpeichernAlsPDF1=66, 87, 928, 753, Z Jm  S  (~ b"h SLDidWorks Vorlagen\Makros\SpeichernAlsPDF.swpS-ernAlsPDF16@ThisLibrarywfkRProject_Data_CurVer( 8 Host Project Item List Data87VBA uf ֫o+PROJECTwmYPROJECT ThisLibrarySpeichernAlsPDF1". hisLibraryThisLibrarySpeichernAlsPDF1SpeichThisLibraryThisLibrarySpeichernAlsPDF1SpeichrU@@@jh%^0* pHdSpeichernAlsPDFQH@  = | -4T J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation0SldWorks>#CdWGrks, DesktopSpecialFolders \ . a i P"h .pdf". GetFileB| 3T J< 9stdole>stdoleP h%^0* pHdSpeichernAlsPDFQH@  = | 3Ti J< 9stdole>stdoleP h%^LZt.A*2 [@Gfg+ME(SLSS6"idWorks Vorlagen\Makros\SpeicherN0{801A2004-A66C-11D3-A8BD-0000861EBBD6} 0pe%@80*C<5430f7f8`xnAlsSTL.swpS-Attribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2sJModelDoc  DateinameO__VBA_PROJECT!Project Item Data$0 Control List Data$kRkRReqControl List Data*kRkR__SRP_1zControl_Data_CurVer(2 Control List Data$1((dir__SRP_2ne__SRP_3kReqControl List Data*3 _VBA_PROJECT/Project Item Data$0 Control List Data$%i0%i0ReqControl List Data*%i0%i0inameHFileNamej GetFileName b^_B_var_ModelDoc2gModel9 _B_v,swModel[_B_var_swModel^wValue1 _B_var_NameXNameLen_B_var_NameLen|NewName#_B_var_NewName TitleNameKo_B_var_FileNamer SaveTitleNameSaveNameHSichernAlsDXF18 SichernAlsDXF ExtensionRight  sPathName;QPathName'_B_var_PathNameU _B_var_RigH H83A33D31-27C5-11CE-BFD4H400513BB57}#15IProgram Files\Soli5 2013\sldwBUH Type LibraryCE ThibsGiaLibrDay 2E HB1Bt@B,B ."B+BQ!1G @Sp@yic&e#nA[sPDF1'`2*0*8!B)*A ThisLijq.#[@Gfg+ lj~LZt.A*2 xa *\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 2013\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 2013\SolidWorks\sldworks.tlb#SldWorks 2013 Type Library-4TThisLibrary0g5434fb2d%ThisLibrary. SpeichernAlsPDF10f5434fb2a SpeichernAlsPDF108'QH{o9x By\'H> AsRFalseNameTrue SolidWorks;VBAWin16~Win32Win64xMacVBA6#VBA7#Export_pdf_dxfRstdole`SldWorks$ ThisLibraryG _EvaluateExport_pdf_dxf1tswAppPart~ boolstatusg longstatusW longwarnings FeatureDataFeature!> Component" SaveFileName=main, Application* ActiveDocڒ ActiveVieww FrameState EditSketch*( GetPathNameMsgBoxRSaveAs2 _B_var_LeftQ BestellungSGetCustomInfoValue_B_var_Bestellung~MSwViewPartModel.fRevision CustomInfo2ŖConfName_B_var_SwViewPartModelO_B_var_ConfNameX SwPartModel1GetFirstDocument!UCase5  PathModelNameGetNextS_B_var_SwPartModel _B_var_UCasea_B_var_PathModelName*xModelDoc _B_var_ModelDocGetTitle- DateinameO_B_var_DateinameHFi*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation0SldWorks>#CdWGrksH H83A33D31-27C5-11CE-BFD4H400513BB57}#15IProgram Files\Soli5 2013\sldwBUH Type LibraryCE ThibsGiaLibrDay 2E HB1[vC@,B ."B+BQ1G @SpQ@yic&e#nA[sPDpF1'`2**!B)*A@Gfg+ lj.#__SRP_1zControl_Data_CurVer(2 Control List Data$1((lenamej GetFileName ModelDoc2^_B_var_ModelDoc2gModel9 _B_var_Model&swModel[_B_var_swModel^wValue1 _B_var_NameXNameLen_B_var_NameLen|NewName#_B_var_NewName TitleNameKo_B_var_FileNamer SaveTitleNameSaveNameHSichernAlsDXF18 SichernAlsDXF ExtensionRight  sPathName;QPathName'_B_var_PathNameU _B_var_Right9_B_var_Extensiodir__SRP_2ne__SRP_3kReqControl List Data*3 nXFilePathO_B_var_FilePathSaveAs3 _B_var_IfPSichernAlsPDF1, SichernAlsPDFZ Workspace3swDocġSpeichernAlsDXF1W}SpeichernAlsDXF SaveOptions', SaveSuccess^ DocErrors0 DocWarningsQ  DocOptions2^oc^swSaveAsOptions_SilentŵsaSaveAsOptions_SaveReferencedSave3SSpeichernAlsSTL1SpeichernAlsSTL_B_var_swSaveAsOptions_Silent %_B_var_saSaveAsOptions_SaveReferencedWshSheH H83A33D31-27C5-11CE-BFD4H400513BB57}#15IProgram Files\Soli5 2013\sldwBUH Type LibraryCE ThibsGiaLibrDay 2E HB1Bt@B,B ."B+BQ!1G @Sp@yic&e#nA[sPDF1'`62*<*!B)*A ThisLijq.#[@Gfg+ lj~LZt.A*2 xll0 CreateObjectDesktop+SpecialFolders _B_var_SetSpeichernAlsPDF1VSpeichernAlsPDFKGetType)JGetFile: DrawingDoc swDocDRAWINGV_B_var_swDocDRAWINGs  swDocPARTM _B_var_Constg_B_var_swDocPartG swDocASSEMBLYn_B_var_swDocASSEMBLY#BInStrRevĈT "% $!".*p 0 *!@.r p'QH{o9x By\'H> AsRFalseNameTrue SolidWorks;VBAWin16~Win32Win64xMacVBA6#VBA7#Export_pdf_dxfRstdole`SldWorks$ ThisLibraryG _EvaluateExport_pdf_dxf1tswAppPart~ boolstatusg longstatusW longwarnings FeatureDataFeature!> Component" SaveFileName=main, Application* ActiveDocڒ ActiveVieww FrameState EditSketch*( GetPathNameMsgBoxRSaveAs2 _B_vaXhH r '   ' i(pPkp08pH]]h WScript.Shell$.p r! ](Î ]2](0] r!H r!H\$ r!H$ r!H rht9_B_var_ExtensionXFilePathO_B_var_FilePathSaveAs3 _B_var_IfP SichernAlsPDF1, SichernAlsPDFZT "% $=.#xr_LeftQ BestellungSGetCustomInfoValue_B_var_Bestellung~MSwViewPartModel.fRevision CustomInfo2ŖConfName_B_var_SwViewPartModelO_B_var_ConfNameX SwPartModel1GetFirstDocument!UCase5  PathModelNameGetNextS_B_var_SwPartModel _B_var_UCasea_B_var_PathModelName*xModelDoc _B_var_ModelDocGetTitle- DateinameO_B_var_DateinameHFi!H\$ r!H$ $'|Desktop %\ |.pdf r%' r!HBitte zuerst Datei speichern.A@J|`kXP****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}P 0pe%@80@T8   $' Pb  ˱Attribute VB_Name = "Export_pdf_dxf1" Dim swApp As ObjectPPart &boolstatus2Bean\long4L, warniO0-FeDreData w ComponenTitle%SngcSav Len0H$Sub main() HSet= lication.SldWorks =.ActiveDoc View.FrS1*6.EditSk0etchBe= Get ?= @A( 7FL$ft,  - 9BWA\\SV01\@ten\12 KonstrukG\Zei@chnung]lenamej GetFileName ModelDoc2^_B_var_ModelDoc2gModel9 _B_var_Model&swModel[_B_var_swModel^wValue1 _B_var_NameXNameLen_B_var_NameLen|NewName#_B_var_NewName TitleNameKo_B_var_FileNamer SaveTitleNameSaveNameHSichernAlsDXF18 SichernAlsDXF ExtensionRight  sPathName;QPathName'_B_var_PathNameU _B_var_Right9_B_var_ExtensionXFilePathO_B_var_FilePathSaveAs3 _B_var_IfPSichernAlsPDF1, SichernAlsPDFZ Workspace3swDocġSpeichernAlsDXF1W}SpeichernAlsDXF SaveOptions', SaveSuccess^ DocErrors0 DocWarningsQ  DocOptions2^oc^swSaveAsOptions_SilentŵsaSaveAsOptions_SaveReferencedSave3SSpeichernAlsSTL1SpeichernAlsSTL_B_var_swSaveAsOptions_Silent %_B_var_saSaveAsOptions_SaveReferencedWshShe********************************************************************************************************************************************************************************************************************************************************************************************IJAttribute VB_Name = "SpeichernAlsPDF1" Const swDocPART1 PASSEMBLY02 0DRAWING.3 DimApp As ObjectModel[SldWorks.P8Sav`eOpti&Long<SuccessBoo0leanSEr8ror2Wa`rnll0 CreateObjectDesktop+SpecialFolders _B_var_SetSpeichernAlsPDF1VSpeichernAlsPDFKGetType)JGetFile: DrawingDoc swDocDRAWINGV_B_var_swDocDRAWINGs  swDocPARTM _B_var_Constg_B_var_swDocPartG swDocASSEMBLYn_B_var_swDocASSEMBLY#BInStrRevĈT "% $ustomizD2B 0J 6xME@<!".*p 0 *!@.r pXhH r '   ' i(pPkp08pH]]h WScript.Shell$.p r! ](Î ]2](0] r!H r!H\$ r!H$ r!H r!H\$ r!H$ $'|Desktop %\ |.pdf r%' r!HBitte zuerst Datei speichern.A@J|`kXPxAttribute VB_Name = "SpeichernAlsPDF1" Const swDocPART1 PASSEMBLY02 0DRAWING.3 DimApp As ObjectModel[SldWorks.P8Sav`eOpti&Long<SuccessBoo0leanSEr8ror2Wa`rning 1Filen\S=WshShell<hSub main() Sey= licaa.s=.ActiveS3= C reate6("WScript.=B"8 &Asyj_ScI+8 sa ^Referenced4If ,Is NothR Th e] Exit A End If .GetP(ath"MsgBox "BiBt@zuerD@(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}@ 0pe%@0%$ME(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}@ 0pe%@0%$%xPxhhxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2aIdTru BExposeTemplate`DerivBustomizD2ing 1Filen\S=WshShell<h Sub main() '*@-LSe|k= @lica_.g9@Fn=Cv.ActiveXH= C reateCI("WScript.=O"JwAsyDc_S`@K I+8 sa @Referencedb,Q A-If YIs Noth The Exit @ End If:??,l.GetPPath"(MsgBox "BitzuerDKi sŗ.#???>#= Left(Mid(EC%, InStrRev"\") + 1,nr))d_ 3_ ))) - 7'???+Uq'Typa"d)WVe=z.3 (.@cialFold [("D@esktop`6&b * & &A.pdf", False, True@*?? 2MhME(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}@ 0pe%@0%$ME(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}P 0pe%@80@% TKxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2PredeclaIdTru BExposeTemplate`DerivBustomizDJnt ist keine Zeichnung.A%xPxhhxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2aIdTru BExposeTemplate`DerivBustomizD2{ggBg4"lBg^."qKgZ.(."q`x."q0gN"xqpxOOHOa.8Ax`0gg{$D hx`0hh@a2T$*\Rffff aS4V hP8  aS4 aAb EW= X( c$ft,,ruk_\+u()\" & &*As2, 0, True, False9zD@ e9a{D b=.#xMEp[@Gfg+ lj~LZt.A*2 xj~LZt.A*2 [@Gfg+ME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6} 0pe%@80%$%xPxhh@3Ti$*\Rffff*C<5430f7f8`xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A?{_GK]Q  1AqQaA ThisLibrarySpeichernAlsPDF1SpeichernAlsPDFF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  Pl5C:\Program Files\SolidWorks 2013\SolidWorks\swvba.tlb SolidWorks 1ap0FC:\Windows\system32\stdole2.tlbstdole !1='@W8C:\Program Files\SolidWorks 2013\SolidWorks\sldworks.tlbSldWorks main &&8( ll&mActiveDoc=Kęl WScript.Shell VBE7.DLL   P"h%$%xPxrU@@@88`b