ࡱ>  Root Entryf\ apcgf\The VBA Project ͡gf\_VBA_Project ͡gf\ !<ABCDEFGHIM[\^_`abcdefghi{|}~Root Entryp apcgpThe VBA Project ͡gp_VBA_Project ͡gp   mo$"#&j()*+,-./01235678:;=>?JKLNOPQRSTUVWXYZklnpq%stuvwxyHost Project Item Names0 gưVBA Project Data"Host Project Items&4VBA Project Signature, / 0 !"#$%&'()*+,-.3W456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV`XYZ[\]^ba|cdefgniklmopqrstuvwxy{pThisLibrary*{5{ - 'L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{, ' L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{, '";{ , '$={, '&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}#FC:\Daten\Test\TangentialeLinien.ID="{CA5CCF56-2516-481D-AF5C-EDB26C71EBF5}" Document=ThisLibrary/&H00000000 Module=Blattstandards_setzen1 Name="Blattstandards_setzen" HelpContextID="0" VersionCompatible32="393222000" CMG="CCCEE6221AF81EF81EF81EF81E" DPB="A6A48C14BC349735973597" GC="8082AAADABADAB52" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Blattstandards_setzen1=175, 175, 790, iles\SolidWorks Corp\SolidWorks\sldworks.tlbSldWorks YFUL.,7C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb QlbD&0J"\&Smain lֆTJ:lswpS-S-erPreferenceTextFormHost Project Item Names0 gf\VBA Project Data"Host Project Items&4VBA Project Signature, ThisLibrarygưProject_Data_CurVer(  Host Project Item List Data81VBA͡g`:PROJECTwmkPROJECT ThisLibrary_Blattstandards_setzen1.42858, Z yThisLibraryBlattstandards_setzen1BlaThisLibraryThisLibraryBlattstandards_setzen1BlarU@@@@~z Aqbboolstatus\ Files\Solik Corp\sldwB .tlb#H 2012K*rU@@@ttstandards_setzen16@ 0* pHdBlattstandards_s@etzen0 Workspace xSetTangentialeKanten JJX  (08HExtension0SetUserPreferenceIntegerGetFirstVi3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2PredecJru BExposeTemplate`DerivBustomizD2nsicht ausgewhltFb,/ 0 !"#$%&'()*+,-.3W456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV`XYZ[\]^ba|cdefgniklmopqrstuvwxy{pThisLibrary*{5{+ 'L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{`, ' L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{@, '";{, '$={@. '&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}#F_VBA_PROJECT'@Project Item Data$z Control List Data$ưưReqControl List Data*ưưC:\Daten\Test\TangentialeLinien.ID="{CA5CCF56-2516-481D-AF5C-EDB26C71EBF5}" Document=ThisLibrary/&H00000000 Module=Blattstandards_setzen1 Name="Blattstandards_setzen" HelpContextID="0" VersionCompatible32="393222000" CMG="E7E5CDDD4D7D1B811B811B811B81" DPB="B9BB93E494E494E4" GC="8B89A161726272628D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Blattstandards_setzen1=175, 175, 790, 85Corp\SolidWorks\sldworks.tlbSldWorks YFUL.,7C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb QlbD&0J"\&Smain lֆTJ:lswpS-S-erPreferenceTextForm9ThisLibrarygf\Project_Data_CurVer(  Host Project Item List Data81VBA͡g`:PROJECTwmkPROJECT ThisLibrary_Blattstandards_setzen1.]38, Z yThisLibraryBlattstandards_setzen1BlaThisLibraryThisLibraryBlattstandards_setzen1BlarU@@@@~z Aqbboolstatus\ Files\Solik Corp\sldwB .tlb#H 2012K*rU@@@@ttstandards_setzen16@ 0* pHdBlattstandards_s@etzen0 Workspace xSetTangentialeKanten JJX  (08HExtension0SetUserPreferenceIntegerGetFirstView3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2PredecJru BExposeTemplate`DerivBustomizD2nsicht ausgewhltFb,_VBA_PROJECT@@Project Item Data$z Control List Data$f\f\ReqControl List Data*f\f\Control_Data_CurVer(} Control List Data${(__SRP_3__SRP_0__SRP_1ReqControl List Data*~ dir2"__SRP_4j__SRP_5hj__SRP_2Control_Data_CurVer(} Control List Data${(__SRP_3z__SRP_0__SRP_1ReqControl List Data*~ dir2"__SRP_4j__SRP_5hj__SRP_2richen gefunden 0Keine Oberflchenzeichen 0Keine Ansicht ausgewhlt .SetDisplayTangentEdges2 ll&m"='@W &mq 8Das geht nur bei ZeichnunT@  = + L̠T J< SldWorks> ldWorks *\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#15.0#0#C:\Program Files\Solik Corp\sldwB .tlb#H 2013 Type Library#CSwConst>wCZnY:tZ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893Zwc@YmZMant t_l _  @+ThDisD9Ghi3L@b@cay 2 HB1ZB,B "B+BҜP1G,Bat@san'd+_e@ze1+2S2n3.38!B23at@san'd+_e@zeb#a *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications"*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb#SolidWorks 2013 Extensibility Type Library*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlb#SldWorks 2013 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb#SolidWorks 2013 Constant type libraryL̎T ThisLibrary0v548ecc62%ThisLibrary,Blattstandards_setzen11:548ecd4d(,Blattstandards_setzen1.8ZM'έ3>[LG׵ i-H$H Ascall=DimHendif_IfkisNothingprivateSubThen SolidWorks; VBAWin16~Win32Win64xMacVBA6#VBA7# Blattstandards_setzen3 SldWorks$SwConst ThisLibraryG _Evaluate Blattstandards_setzen1oswAppswSelMgr#%swView~IswAnn swAnnSFSymbol.Model9swDrawPart~ boolstatusgMessage (swDocNONE  (swDocPARTM (swDocASSEMBLYn (swDocDRAWINGV(swDocSDMswAnnotationType_e swCThread swDatumTagswDatumTargetSymXswDisplayDimensionswGTolswNote@> swSFSymbolb swWeldSymbolTswCustomSymbolh swDowelSymYswLeaderswBlock'swCenterMarkSymswTableAnnotationB swCenterLineT"swSFSymbolMaterialRemovalAllowanceswSFSymbolProductionMethodswSFSymbolSamplingLengthswSFSymbolOtherRoughnessValue'swSFSymbolMaximumRoughness-swSFSymbolMinimumRoughnessswSFSymbolRoughnessSpacing@swSFSymbolRoughnessValue1/swSFSymbolRoughnessValue2/swSFSymbolRoughnessValue3/swDetailingSFSymbolLeaderStylet)swDetailingSFSymbolUseDocBentLeaderLengthQ+swDetailingNoteTextFormatswDetailingDimensionTextFormatًswDetailingSectionTextFormateMswDetailingDetailTextFormatswDetailingViewArrowTextFormat"swDetailingSurfaceFinishTextFormat{swDetailingWeldSymbolTextFormats!swDetailingGeneralTableTextFormatLswDetailingBalloonTextFormat swDetailingDetailLabelTextFormat!swDetailingSectionLabelTextFormatwo#swDetailingBillOfMaterialTextFormat swDetailingHoleTableTextFormat"swDetailingRevisionTableTextFormat|swDetailingDatumTextFormat'swDetailingGeometricToleranceTextFormat#swDetailingAuxiliaryLabelTextFormat˭swDetailingTableTextFormat̺swDetailingViewTextFormatIswDetailingAnnotationTextFormat{V$swDetailingTitleBlockTableTextFormatGswDetailingOrthoLabelTextFormat  myTextFormat SetDimensionsғ ExtensionSetUserPreferenceIntegerKswUserPreferenceIntegerValue_e+3swDetailingDimTrailingZeroڱswUserPreferenceOption_esswDetailingDimensionbswDetailingDimTrailingZero_e8swDimRemoveTrailingZeroes!7SetAnsichtsetikettenGetUserPreferenceTextFormateHswUserPreferenceTextFormat_ej%swDetailingSectionLabelNameTextFormat=rBold CharHeightSetUserPreferenceTextFormat~&swDetailingSectionLabelLabelTextFormatc&swDetailingSectionLabelScaleTextFormat#*swDetailingSectionLabelDelimiterTextFormat\OSetUserPreferenceToggleoswUserPreferenceToggle_eU&swDetailingSectionViewLabels_AboveViewfSetSurfSymbolsI sMaxRauheitӟ sMinRauheitAnzAnno1AnzOflXi`bOflFontFehlerbOflNachRechtsFehleri bKeineOflh GetFirstViewMGetAnnotationCountGetFirstAnnotation2GetType)J SetTextFormat$+GetNext3_$GetSpecificAnnotationGetTextSetTextNachRechtsFehlerA% GetNextViewMsgBoxR vbExclamation vbInformationn(main, Application* ActiveDocڒ vbCritical+}swLineFontTangentEdgesStyleswLineStyles_e`swLineCONTINUOUSJ Workspace3_B_var_bOflNachRechtsFehler: privatesub_B_var_privatesubdSetTangentialeKantenqSetDisplayTangentEdges2 swTangentEdgesVisibleAndFontedT3sview" _B_var_sviewvalueK _B_var_Value _B_var_IfP _B_var_Set DisplayIn Systema_B_var_DisplayIn\Display_B_var_Display(swDisplayTangentEdges_e- swTangentEdgesHidden swTangentEdgesVisible diplayinzT "%) $"Q@@PIn\Display_B_var_Display(swDisplayTangentEdges_e- swTangentEdgesHidden swTangentEdgesVisible diplayinzT "%) $v{@ZR1HH> PL%&. xRRMEH@1> <<< <(<0<8<@LPLH:<<<<<<<<<<<<<<  h"%%j<Cj<Cj"Cj>Cʘ@BʘDBjJ Cj<Cj"Cj>Cj"0Cpj>Cj<C`j"Cj>Cp``06:."@  @8 @P @h @p @X @H@ j<Cj"Cj>C@`( @x @ @$ `xH *6D@ @ @ @ @ @ @ichen gefunden 0Keine Oberflchenzeichen 0Keine Ansicht ausgewhlt .SetDisplayTangentEdges2 ll&m"='@W &mq 8Das geht nur bei ZeichnunT@  = + L̠T J< SldWorks> ldWh  `8k &+@hu@P @8 .0 @id ( @le6` @ue: @acʘ>B 0ʘBBleʘFBMojLP C/>jN C> jP CngjR CetjT CrojV@ CidjXp CiojZ Cacj\ CRij^ Corks *\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#15.0#0#C:\Program Files\Solik Corp\sldwB .tlb#H 2013 Type Library#CSwConst>wCZnY:tZ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893Zwc@YmZMant t_l _  @+ThDisD9Ghi3L@b@cay 2 HB1ZB,B "B+BҜP1G,Bat@san'd+_e@ze1+2S2n3R/38!B23at@san'd+_e@zeb# Fj`0 Cyojb` Cerjd CopjfCpe XBcuʘj(Butʘn(B iʘr(Bneʘv(B sʘz( Btyʘ~({Butʘ(Bleʘ(Bodʘ(B yPʘ(B"toʘ( B$omʘ( B&utʘ( B(utʘ(B*osʘ(B,enʘ(B.atusʘ(B0chrejJPC`jLCjNCjPCjRCjT@CjVpC jXCjZ C0051(a *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications"*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb#SolidWorks 2013 Extensibility Type Library*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlb#SldWorks 2013 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb#SolidWorks 2013 Constant type libraryL̎T ThisLibrary0v548ecc62%ThisLibrary,Blattstandards_setzen10y548eccca(,Blattstandards_setzen1R/8ZM'έ3>[LG׵ i-H$H Ascall=DimHendif_IfkisNothingprivateSubThen SolidWorks; VBAWin16~Win32Win64xMacVBA6#VBA7# Blattstandards_setzen3 SldWorks$SwConst ThisLibraryG _Evaluate Blattstandards_setzen1oswAppswSelMgr#%swView~IswAnn swAnnSFSymbol.Model9swDrawPart~ boolstatusgMessage (swDocNONE  (swDocPARTM (swDocASSEMBLYn (swDocDRAWINGV(swDocSDMswAnnotationType_e swCThread swDatumTagswDatumTargetSymXswDisplayDimensionswGTolswNote@> swSFSymbolb swWeldSymbolTswCustomSymbolh swDowelSymYswLeaderswBlock'swCenterMarkSymswTableAnnotationB swCenterLineT"swSFSymbolMaterialRemovalAllowanceswSFSymbolProductionMethodswSFSymbolSamplingLengthswSFSymbolOtherRoughnessValue'swSFSymbolMaximumRoughness-swSFSymbolMinimumRoughnessswSFSymbolRoughnessSpacing@swSFSymbolRoughnessValue1/swSFSymbolRoughnessValue2/swSFSymbolRoughnessValue3/swDetailingSFSymbolLeaderStylet)swDetailingSFSymbolUseDocBentLeaderLengthQ+swDetailingNoteTextFormatswDetailingDimensionTextFormatًswDetailingSectionTextFormateMswDetailingDetailTextFormatswDetailingViewArrowTextFormat"swDetailingSurfaceFinishTextFormat{swDetailingWeldSymbolTextFormats!swDetailingGeneralTableTextFormatLswDetailingBalloonTextFormat swDetailingDetailLabelTextFormat!swDetailingSectionLabelTextFormatwo#swDetailingBillOfMaterialTextFormat swDetailingHoleTableTextFormat"swDetailingRevisionTableTextFormat|swDetailingDatumTextFormat'swDetailingGeometricToleranceTextFormat#swDetailingAuxiliaryLabelTextFormat˭swDetailingTableTextFormat̺swDetailingViewTextFormatIswDetailingAnnotationTextFormat{V$swDetailingTitleBlockTableTextFormatGswDetailingOrthoLabelTextFormat  myTextFormat SetDimensionsғ ExtensionSetUserPreferenceIntegerKswUserPreferenceIntegerValue_e+3swDetailingDimTrailingZeroڱswUserPreferenceOption_esswDetailingDimensionbswDetailingDimTrailingZero_e8swDimRemoveTrailingZeroes!7SetAnsichtsetikettenGetUserPreferenceTextFormateHswUserPreferenceTextFormat_ej%swDetailingSectionLabelNameTextFormat=rBold CharHeightSetUserPreferenceTextFormat~&swDetailingSectionLabelLabelTextFormatc&swDetailingSectionLabelScaleTextFormat#*swDetailingSectionLabelDelimiterTextFormat\OSetUserPreferenceToggleoswUserPreferenceToggle_eU&swDetailingSectionViewLabels_AboveViewfSetSurfSymbolsI sMaxRauheitӟ sMinRauheitAnzAnno1AnzOflXi`bOflFontFehlerbOflNachRechtsFehleri bKeineOflhj\0 Cj^` Cj` Cjb CjdCjfCPCCCCC @CpCC  C C0 C` C C C C j< C j"PCj>CX @ @ @  `Pk GetFirstViewMGetAnnotationCountGetFirstAnnotation2GetType)J SetTextFormat$+GetNext3_$GetSpecificAnnotationGetTextSetTextNachRechtsFehlerA% GetNextViewMsgBoxR vbExclamation vbInformationn(main, Application* ActiveDocڒ vbCritical+}swLineFontTangentEdgesStyleswLineStyles_e`swLineCONTINUOUSJ Workspace3_B_var_bOflNachRechtsFehler: privatesub_B_var_privatesubdXP `0h8 0@   0p @ ( ` HPp (xP   pPp `@ @p P(X @@ : HX @ @ @ & PPX @p @X @@ :6.0V( @ @`( h Px:`@`x @` (H @0 @ @ @  P 8@ @ @ @ @x @` P@H @0 @  @ `` ( @ (@"  x p@"4:6.@" @ @ @ @p @X @"@ @( @ @ @" @" "@"4D6e@" @ "@ @ @ @ @h @P @"8 0!tatio  "X" p(L̎T *\R2*#15f$*\Rffff*1:548ecd4d*\R0*#1*\R2*#0*\R2*#0*\R1*#0*\R1*#3*\R0*#17*\R3*#9d*\R3*#42(*\Rffff*1:548ecd4d\02 V  (X $ R V"(P "X      px " T\0.* *  "L808*  "48, ><8<Zx   O ******************************************************************************! Precondition: Zeichnung geffnet Version 1.0, 20.1.14 P. SachO ******************************************************************************]p] SldWorks.View]0SldWorks.DrawingDoc]`Public Enum DocumentTypes_e]$]$]$]$]$ TangentialeLinien ! .* *! .6-$an's aktuelle SWx-Dokument anklinken 6! D-&wenn keine Zeichnung, Meldung und EndeDas geht nur bei Zeichnungen  Falsche DateiA@|koXL Setzt tangentiale Kanten auf durchgehende Linien mit entfernten Linienenden ! ! 6!%':(setzt tangentiale Kanten auf durchgehendoA 6!..!erste Ansicht=Blattformat .bswView] .!.. .k Keine Ansicht ausgewhltA@x '<'"'>0X " $% .(N<<<<<<<<<<< Objekt erfoderlichHxAttribute VB_Name = "Blattstandards_setzen1" ' *JTangentialeLinienPrecondition: Zeichnung ge ffnet#Vers 1.0, 20.1.14 P. SacheSt ^ Kanten auf durchgehende A; mit Df|er I|Dim swApp As SldW orks. !ViewObject 'c Dra i ngDocboDoltus,B@ea8LPublic Enum umCTyp@es_e C0onst@.NONE0PAR T1ASSEPMBLY2D@RAWING3SDM4 ,swDisplayDEdg. AMswIHidd= .OVisibleAndFo@d1 @1EndMB%rivaSub @DAC()bvalue`Varig=AYu.Ex .@User@enceI(@ger(swVAA_e.sw@e3AStyle,> g`=CONTINUOUS)'jnd  `bWGetFirst'`w$Ans {t= forma {Do While NoLIshX\ a a. Nex If T@~MsgBox "Kein 1sgewphlt`;IfA7@vs20O2`2-J) '*< |krf0oderp`LoDop'sw!  JDaKmainaI!A= ~a#2.Activex! j'an's a ktuel0SW x-Dok a@nklink ,c4 /aa qocx. 'we0nn k-, PMeld!ugdG2Das`ht nur beiGen", vbCr`cal, "Falsche D@oi7x`"&E8 Callr*&,?Em8ainC= r#Ba,.Actives! j'an's @aktuel +S@Wx-Dok{ anklink `&. A* \9kocra( 'we@kb'f, MelduBbd@#E-Dasht nur beien", vbCrcal, "Falsche Diie1x"&2 Call2m*&, T\0.* *  "L80&SetTangentialeKantenqSetDisplayTangentEdges2 swTangentEdgesVisibleAndFontedT3sview" _B_var_sviewvalueK _B_var_Value _B_var_IfP _B_var_Set DisplayIn Systema_B_var_DisplayIn\Display_B_var_Display(swDisplayTangentEdges_e- swTangentEdgesHidden swTangentEdgesVisible diplayinzT "%) $"Q@@PIn\Display_B_var_Display(swDisplayTangentEdges_e- swTangentEdgesHidden swTangentEdgesVisible diplayinzT "%) $v{@ZR@1HH> <%&L/HxRRMEH@1> <<< <(<0<8<@LPLH:<<<<<<<<<<<<<<  h"%%0 @j<C8`0 @<@@ʘ@B ʘDB jJ Cj<Cj"Cj>Cj"0Cpj>Cp00 `P6:.  @ @ @ @p @X p@ @( @ @  *6Dj<Cj"Cj>C@ @` @0 @H @ @x @h @P @8 H   `H8k ++@hu, @ng.  @id20 @le6( @ue:8 @acʘ>B 0ʘBB leʘFB MojLP C/>jN C> jP CngjR CetjT CrojV@ CidjXp CiojZ Cacj\ CRij^ C Fj`0 Cyojb` Cerjd CopjfCpe XBcuʘj(Butʘn(B iʘr(Bneʘv(B sʘz( Btyʘ~({Butʘ(Bleʘ(Bodʘ(B yPʘ(B"toʘ( B$omʘ( B&utʘ( B(utʘ(B*osʘ(B,enʘ(B.atusʘ(B0chrejJPC`jLCjNCjPCjRCjT@CjVpC jXCjZ C0051(j\0 Cj^` Cj` Cjb CjdCjfCPCCCCC @CpCC  C C0 C` C C C C j< C j"PCj>CX @ @ @  `Hgen Falsche Datei@4 0Keine ApbD&0J"\&S lֆTJ:xֆTJ:bD&0J"\&SME(SLSS6"rU@@@xbzxm CrU@@@8PA`qDN0{801A2004-A66C-11D3-A8BD-0000861EBBD6} 0%@x%$%@Hxhh@L̎T $*\Rffff*0v548ecc62`xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D~ ~~~~~~~~~ ~ ~"bJ^|MA 0 a1ap aA ThisLibraryBlattstandards_setzen1Blattstandards_setzenF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  l5C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlbSwConst SolidWorks Aq1='@W8C:\Program FewGetNextView 0Keine Ansicht ausgewhltVBE7.DLL S (~ .SetDisplayTangentEdges2 llQ DDP (0@ ,,0&m"='@W&mQGetType 8Das geht nur bei Zeichnungen Falsche DateiQ0 &&(retTextGetNextView4 Bei mindestens einem Oberflchenzeichen konnte die Schrifthhe nicht auf Blattstandard gesetzt werden JFehler Schrifthhe OberflchenzeichenVBE7.DLLQS (~0 Bei mindestens einem Oberflchenzeichen konnte die Schrift nicht nach rechts versetzt werden $Da steht schon was BKeine OberflchenzerU@@@(8`8a` ba!Q 1Qaa1a1qQlgg^.0X@A@X@g{l8 X@0ggP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpgXRX.0pA@pg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP .0pHPpg.Pg${Gzt?.Pg^ /P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pg{8 p < ggpgpgg g gPx.(H0HPH0g$~jth?.Pg^x/P @.(H0A@H0gpg*.0H HHg(&  g&.H Hgpgpgg*.H HHgqg2.H KHgqgLx/P @.HA@Hg!@p>gggg*.HHHgg*.H HHg(&  g2.H KHZ g*.HH Hg. Hx C0`.  C7. H` C07lHH g2rU@@@@~x  A  Q Q|gg\Fp.@(A@(g*.@H@g(& tg*.@XP `0h8 0@   0p @ ( ` HPp (xP   pPp `@ @p P(X @@ : HX @ @ @ & PPX @p @X @@ :6.0V( @ @`( h Px:P@`x @` (H @0 @ @ @  P 8@ @ @ @ @x @` P@H @0 @  @ `` ( @ (@"  x p@"4:6.@" @ @ @ @p @X @"@ @( @ @ @" @" "@"4D6e@" @ "@ @ @ @ @h @P @"8 0!tatio  "X"pP`L̎T *\R2*#15f$*\Rffff*0y548eccca*\R0*#1*\R2*#0*\R2*#0*\R1*#0*\R1*#3*\R0*#17*\R3*#9d*\R3*#42(*\Rffff*0y548eccca\07 V P (X $ RP V$0"P x" "    0 @  " x T\.*( X* "L88 h "h4p8, ><<Z8@   HxO ******************************************************************************! Precondition: Zeichnung geffnet Version 1.0, 20.1.14 P. SachO ******************************************************************************]p]$SldWorks.SelectionMgr] SldWorks.View] SldWorks.Annotation]SldWorks.SFSymbol]0SldWorks.DrawingDoc]]`]Public Enum DocumentTypes_e]$]$]$]$]$ TangentialeLinien ! .* *! .6-$an's aktuelle SWx-Dokument anklinken 6! D-&wenn keine Zeichnung, Meldung und EndeDas geht nur bei Zeichnungen  Falsche DateiA@|koXL Setzt tangentiale Kanten auf durchgehende Linien mit entfernten Linienenden ! ! 6!%':(setzt tangentiale Kanten auf durchgehendoA 6!..!erste Ansicht=Blattformat .bswView] .!.. .k Keine Ansicht ausgewhltA@x '<'"'>0X " $% .(N<<<<<<<<<<< Objekt erfoderlichHeAttribute VB_Name = "Blattstandards_setzen1" ' *JTangentialeLinienPrecondition: Zeichnung ge ffnet#Vers 1.0, 20.1.14 P. SacheSt ^ Kanten auf durchgehende A; mit Df|er I|Dim swApp As SldW orks. SelMgrObject 'elView 8Ann  otaaH SFSym8bol Dra"ingDocC PartbooltuseAB@eadAHM@essageS!@ng ~Public Enu$m @umuTypes_e `Const@`N(ONE0PART1ASSEMBLY2DRAWING3SDM4A, ,swDisplayDEdg.~swIHidd = .OVisibleAndFo}@d1 E nd&riva@Sub i$!u #i()3valuB0Vari`lah6=,@@.Exoav. User|m enceIgePr(swV! _e.swre Style, `=CONTINUOUS)'nd `hGetFihrst'`$A$ns t=forma Do While NoL)Ish^ a a. Nex3 If T@MsgBox "Kein 1sgewhlt`;IfwA7@v@20O2`2-J) '< krfod erp`Loop'sw! JDaKmainaI!A= "#2.Act8ivex! j'an's aktuel0SWx-Dok anklink ,c4 /aa qocx. 'wek-, Meld!:ugd2Das`ht nur beiGen"@, vbCr`cal, "Fal@sche D@oi7x`"&E8 C8allr*&, *  "L80&(gen Falsche Datei@4 0Keine ApbD&0J"\&S lֆTJ:xֆTJ:bD&0J"\&SME(SLSS6"rU@@@xbzxm CrU@@@8PA`qDN0{801A2004-A66C-11D3-A8BD-0000861EBBD6} 0H@g(&8gL(I@@(@(gg*@ag g{ |D ,@( gg4 Z pU Rg,.8eRg<. ClgZ8II(8g{gg  g{ 828 aS S@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpgXRX.0pA@pg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP .0pHPpg.Pg${Gzt?.Pg^ /P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pg{8 p < ggpgpgg g gPx.(H0HPH0g$~jth?.Pg^x/P @.(H0A@H0gpg*.0H HHg(&  g&.H Hgpgpgg*.H HHgqg2.H KHgqgLx/P @.HA@Hg!@p>gggg*.HHHgg*.H HHg(&  g2.H KHZ g*.HH Hg. Hx C0`.  C7. H` C07lHH g2%@x%$%@Hxhh@L̎T $*\Rffff*0v548ecc62`xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D~ ~~~~~~~~~ "X޽L$A. a1AP aA ThisLibraryBlattstandards_setzen1Blattstandards_setzenF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  l5C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlbSwConst SolidWorks Aq1='@W8C:\Program Files\SolidWorks GetNextView 0Keine Ansicht ausgewhltVBE7.DLL S (~ .SetDisplayTangentEdges2 llQ DDP (0@ &m"='@W&mQGetType 8Das geht nur bei Zeichnungen Falsche DateiQ0GetNext3GetText R N RaSetTextGetNextView4 Bei mindestens einem Oberflchenzeichen konnte die Schrifthhe nicht auf Blattstandard gesetzt werden JFehler Schrifthhe OberflchenzeichenVBE7.DLLQS (~0 Bei mindestens einem Oberflchenzeichen konnte die Schrift nicht nach rechts versetzt werden $Da steht schon was BKeine OberflchenzerU@@@P8`8a`ba!Q 1Qaa1a1qQlgg^.0X@A@X@g{l8 X@0ggP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpgXRX.0pA@pg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP .0pHPpg.Pg${Gzt?.Pg^ /P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pg{8 p < ggpgpgg g gPx.(H0HPH0g$~jth?.Pg^x/P @.(H0A@H0gpg*.0H HHg(&  g&.H Hgpgpgg*.H HHgqg2.H KHgqgLx/P @.HA@Hg!@p>gggg*.HHHgg*.H HHg(&  g2.H KHZ g*.HH Hg. Hx C0`.  C7. H` C07lHH g2rU@@@@~x  A  Q Q|gg\Fp.(@(A8@(g*.(@H@g(& rg*.@H@g(&8gL(I@@(@(gg(@ag g{ |D ,@( gg4 Z pU Rg,.8eR(g<.( ClgZ8II(8g{gg  g{ 828 aS S@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpgXRX.0pA@pg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP .0pHPpg.Pg${Gzt?.Pg^ /P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pg{8 p < ggpgpgg g gPx.(H0HPH0g$~jth?.Pg^x/P @.(H0A@H0gpg*.0H HHg(&  g&.H Hgpgpgg*.H HHgqg2.H KHgqgLx/P @.HA@Hg!@p>gggg*.HHHgg*.H HHg(&  g2.H KHZ g*.HH Hg. Hx C0`.  C7. H` C07lHH g2A@pgP.0pHPpgXRX.0pA@pg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP .0pHPpg.Pg${Gzt?.Pg^ /P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pgP.0pHPpg.Pg${Gzt?.Pg^/P @.0pA@pg{8 p < ggpgpgg g gPx.(H0HPH0g$~jth?.Pg^x/P @.(H0A@H0gpg*.0H HHg(&  g&.H Hgpgpgg*.H HHgqg2.H KHgqgLx/ 6!%. ({Gzt? ( !  6!%': ! 6!%. ({Gzt? ( !  6!%': ! 6!%. ({Gzt? ( !  6!%':o  &setzt Standards fr Oberflchenzeichen]]]] ]8]P]h]''''' ! 4!%.~jth? (#,Schrifthhe fr Oberflchenzeichen auf 3,0mm !  4!%':#setzt die Schrifthhe fr das Blatt' 6!..!erste Ansicht=Blattformat .b .!'((zhlt alle Beschriftungen in der Ansicht  'k .!.0   0! V,/wenn die Beschriftung ein Oberflchensymbol ist  '  0%':D:setzt die Schrifthhe dieses Oflzeichens auf Blattstandard :'k k 0!.0  .!.0 0b 0! V,!wenn's ein Oberflchenzeichen ist 0!.2 2% 2% 2% 2%'  0/versetzt MaxRauheit nach rechts, wenn vorhanden R N\ fgt "Ra" zum Rauheitswert hinzuRa 2%': sMaxRauheit = "Ra" & sMaxRauheitk  2%':Lschreibt Text nach rechts 3 :A@ 2%':Dlscht MaxRauheit links :A@ksMaxRauheit > "" 2%'  0versetzt MinRauheit nach rechts R NRa 2%': sMinRauheit = "Ra" & sMinRauheitkx 2%@"wenn da nicht schon ein Text steht  2%':Pschreibt Text nach rechts 3 :A@ 2%': :A@d  2%':Pschreibt Text nach rechts :A@ 2%': :A@kHksMinRauheit > ""d( :A@k>Not swAnnSFSymbol.GetText(4) = "" Or Not swAnnSFSymbol(7) = ""k 0!.0 swAnn .!..swView eBei mindestens einem Oberflchenzeichen konnte die Schrifthhe nicht auf Blattstandard gesetzt werden %Fehler Schrifthhe OberflchenzeichenA@k \Bei mindestens einem Oberflchenzeichen konnte die Schrift nicht nach rechts versetzt werden Da steht schon wasA@k8 !Keine Oberflchenzeichen gefunden Keine OberflchenzeichenA@ko :'ki ! .* *! .4,$an's aktuelle SWx-Dokument anklinken 4! D,&wenn keine Zeichnung, Meldung und EndeDas geht nur bei Zeichnungen  Falsche DateiA@|k 4.6'Set ModelDocExtension = Model.ExtensionAAAoX Version 1.1 20.1.14 P. SachL Setzt tangentiale Kanten auf durchgehende Linien mit entfernten Linienenden ! ! 4!%':(setzt tangentiale Kanten auf durchgehendoA 6!..!erste Ansicht=Blattformat .bswView] .!.. .k Keine Ansicht ausgewhltA@x '<'"'>0XSet DisplayIn = 1'Dim DisplayIn As Object 'System.Integer $% .(4 (DisplayIn)ԶAttribute VB_Name = "Blattstandards_setzen1" ' n*J l lPrecondition: Zeichnung geffnet#St aufen bestimmEigenschaften!0VersO 1.0, 25.9.12 P. Sachchiebt"i Oberflchenz@.die RauheitsaPngab n 1Whts"Jlle Ans[tj0iketBV5mm Schrifthhe, fÀ Maeert, N1kommanu+n entfernj1 20.1.14iG瀅tiaJKanEdurchge8de Lini38mitCendPI Dim swApp As SldWo0rks.SelMgrObjPect ' el@x@ ViewK  Ann  otaH SFSymbolvA9ModelDocEx@_@<3'L%>G(2(Dra=1ing#Pa rt cboolQtus!Beah"essag'[ 6 Tng Public Enu$m um@TTypes_e `Const=N(ONE0qPART`1qASSEMBLY  DRAWING3SDM@4FOnn;A!,swCThread@CDatupmTag`jrxget B `$isplay&!L= cGT@G= 5 No@= 6K= 7!eWeldN= 8Custom9Dowel[ 1 - LerAfBlock !&C7erMa rk&Tabl~ea&11End"BCSu@rfaceFsh `hText0EAe MaterRemovalAllowanc  '%zu NE ProducAyMetho;2B%'fa?n cnHSampl@hLength 3j 'Prfstke o..V OtherRoughnjPValu4 ' a, hi`r "U@ `Maximum 5 %x. (obsolete)O 4NM6inw5 a Spac0 7{eb_ T 6R1 8* 'keine Funk erkennb\ar//2 9///sR 3 <10:_ V 3Usere/I gerb3wDe8taiA*%?Sty@= 35DTw-ZB@.7g`F Op!q '_ @C'Ee7v tosDANOO EDDINPJISݐ44BAǏGOSq0bGBc1%Defp2P0! 7'ZFormaZl~Fq i#Arrow 4B lJ_Sw|pGener|alw: ?3Bapron?? zL0l*>S?Od illlOf{1o H j1Revi_1 Vc.+1Geome@cМPY #O AuxYary1 f 1? ,  ~onst swDetailingAnnotationTextFormat = 19 Public C TitleBlockTaHble n20nOrthoLabe"l 21 4EnumisplayTangentEdges_e $ sw HipddenwVisiAndFontedؑ"2 End C Dim myVAs ObjectXrivate Sub SDetenss@() 'Eiellu` fr Ma߀`boodlsus6r@aw.Ext.#UserPreferenceIZger(sw Value_e.CTrZero, Op{ C  imR emove es)^'Nachkommanull@en1nen ',>Toggle'=/sCerAj, 0, True$'\ zriS!_R#LeaderStylebameter@_dCBBroken Horiz@alf'Durchmes mit hFeRzahl#etrPS J#E_TRadius?#"A?#V'A @U"/@| }A}chtsetiketa x() x+=|G )4]f&)S`@NEG_!_HilfsaC .Bolad,Char Heigh!0.005 v !byi ,,"~.,gGւ,'1+.+wD++,*, ^j?V*,,b ,ScaYO/+O/+O{LOw!7 wN?+n?+ tÏ Deli`Mcq5SchnittПiyPar>t2yqyng!$View's_Ab FzT von KYbPj0t W?I_3;I? ? #? ? "uE? tt? 7 /X=b.OB/Xr888o#t|XnnB CV0`JatAAAA3/ / / YAAAֿ_?O2$?????·ϋLc ket ?(aKArrow(%oooooo_ t, 0, myTextFormat) Set = swDraw.Extension.GetUserPref@erence(Dsw4_e.etailingAuxaryLaxbel@ .BoldTrue Char@Height0.005 boolstatusYEnd Sub Private BSurfSymbU() 'setzt Standards fr Oberflchenzei Dim sMaxRauheit Asr  in AnzAnnoInteger OfliNb FontFehlerbB[eanNachRechts Keinem= Fals{GF= ÇF= "" sMGDCRModel? AyaceF`inishڸN3Schrifthhe auf 3,0mmP牾3ng _Z di`^das Blatt " O= 02sw0ViewgwFiHrst'e e A`L=fB@Po While0 Not`Ishc* B`ACount 'zhlt al@ Bescungen inL d_ A Ifk> 0 T`ubSZIf2B;B'2!%! i 1 Tyz ` swTypeB SFB 'wen2 rɍsb is`4e5+ 1̯ g_(5,"u FEses s^?b ` j.2aE)57D/N3A ic+= DKZ -Z>>'s`d3pv Hz%nPo rbo, 5vorh|eqPInStr( , "R" 0 "N@ 'fgt0a@" zum s wert POzu?:6A;(3! a"y '"R &i5z? > 4,'Q[eibt 1 z  t9](  0O"`#l t #ksO O IA,_!3Q<6333"@2242qON0 0qN0F0s}? 3:P~a n àchonr_0stehL}W"76 /7/7M.O&j 6`"{KZ Eʏ KK>tOBO O   boolstatus = swAnnSFSymbol.SetText(6, `"")  NachRechtsFehler (tEnd IfZ 'sMinRauheit >.ElseD,9NotG4)"" Or (7E_(+.+N3Loop'Ń View If bOflFont= True Then*MsgBox "Bei mindestens einem Obe rflc@ zei konnte die Schrifthhe n@t auf Blatt@ndard gesetzt werden", vbExclamation%O" P4s?66%5n r´ vDer3Da @Ph@chon was /KVepbBa^gefu@hQInforQ APSub FunzcA_ Qou- Fa lGAT!L1CLE7e Priva I@ [Tangentiale$Ka Ln(Di m valVAs Vari  'DisplayIn @Object 'Sy`/m.Iger  `fg= 1  JModel.Ex^ RUserPreference (swV_e.swL'@f!m$Ed`_Style, 0,} sCONTINUOUS)}5betG! c!kdu rchge`qd 2 sw|bDrawaFirst' U+Ans!s=rF Do `WhileIshing6 aCCTsgewhltT! eDaA{> v2d8+2(1&(<`FA ^&ub maicbKApp(licB.SldWorksc,CB,`.AfveDocj'an's @aktuel+SWx-Dokum@Z anklink! @&Naype DRA0WING"( 'w enn k Znung, Meld ` c$-Dasnpur b&CritlyP] D8ixuAy!& t5p 3418Call!>Surf#E. gZI00@IHH(H0gg{< D DH0H0Hgg K8gggxHD Hid\gg4%Z&pU'Rg,.8 eR(g<.( ClgZ8(I)I(8g{gg((H0g !g "g #g $g{\828 aS S S "a S  S08g{gg((H0g !g "g #g $g{\828 aS S S "a S  S0S S "a S  S0S0