ࡱ> Root EntryP>~@0apc/6 yP>~The VBA Project /6 yP>~_VBA_Project /6 yP>~& !"#$%'869:;<=>?@A5Root Entryp* )y0apc/6 yp* )yThe VBA Project /6 yp* )y_VBA_Project /6 yp* )y  ) 7(*+,-./0123456CHost Project Item Names0 /6 yp* )yVBA Project Data"Host Project Items&4VBA Project Signature, H  !"#$%&'(*+,-./023456789:;<=>?@ABCDEFGJKLMNOPQRSTUVWXYZ[\]^_`abcdnfhijklmoqrstuvwxyz{|}~{>ThisLibrary*{0?5{?L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{1 L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{P2";{3$={3&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}(PO:\gruppen\3DCAD\Verwaltung\MakrID="{154F4E9A-60BF-4775-B22F-9992C7BD0CCB}" Document=ThisLibrary/&H00000000 Module=tt1 Name="tt" HelpContextID="0" VersionCompatible32="393222000" CMG="B9BBBCC4C0C4C0C4C0C4C0" DPB="565453C46DFC0BFD0BFD0B" GC="F3F1F66B926C926C6D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C tt1=44, 46, 823, 437, Z 7, Z sLibraryo\tt.swp , ?LO4ԫ,`!0s'H{g4>ThisLibrary/6 yp* )yProject_Data_CurVer( I Host Project Item List Data8VBA/6 y/6 yPROJECTwm2PROJECT _VBA_PROJECT1 ThisLibraryThisLibraryThisLibrarytt1tt16@rU t0* pH"dtt4@Z= b K*mrU~~~~~~~l Zsw3A3~&K  A pdir)Project Item Data$ Control List Data$p* )yp* )yReqControl List Data*p* )yp* )y__SRP_1FReqControl List Data* Control_Data_CurVer( Control List Data$(tt1p __SRP_2g__SRP_3ek__SRP_0DC:\bilder\test.JPGSaveAs4 ֱ0* pH"dtt4@Z= b n@ %J< rst dole>2stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^SldWorks>BdWFrksGy oG83A33D31-27C5-11CE-BFD4G400513BB 57}#bGProgramme\Soli3\sldw7K> 2003 Type Librar::"3 ThisGh iVLbray 2HB1n`B,QB "B+Btt1Gttq1@2O O!Hcam *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Programme\SolidWorks\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#b.0#0#C:\Programme\SolidWorks\sldworks.tlb#SldWorks 2003 Type LHost Project Item Names0 /6 yP>~VBA Project Data"Host Project Items&4VBA Project Signature, H  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGJKLMNOPQRTUVWXYZ[\]^_`abcdnfhijklmopqrstuvwxyz{|}~{0ThisLibrary*{5{L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{";{$={&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}.\O:\gruppen\3DCAD\Verwaltung\MakrID="{154F4E9A-60BF-4775-B22F-9992C7BD0CCB}" Document=ThisLibrary/&H00000000 Module=RotateIt1 HelpFile="" Name="RotateIt" HelpContextID="0" VersionCompatible32="393222000" CMG="B7B5B29CFEE420E820E820E820E8" DPB="DDDFD8C2D8E9D9E9D9E9" GC="030106202D212D21D2" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C RotateIt1=44, 46, 823, 437, Z o\RotateIt.swp 6@var_SetUserPreferenceDoubleValue& _B_var_retvalv _B_var_constgrot _B_var_rotsteps incrementIrotationepi^ _B_var_piVPIpigneuen  _B_var_neuen5WertK6 errechnenSaveAs4errorswarningsDas _B_var_Das? _B_var_errorsI_B_var_warningsThisLibrary/6 yP>~Project_Data_CurVer( Host Project Item List Data8IVBA/6 y/6 yPROJECTwmDPROJECT _VBA_PROJECT) ThisLibraryThisLibraryThisLibraryRotateIt1RotateIt1@rU t0* pH"dtt4@Z= b 0* pHdRotateIt,@ Z= n F@Z %J< rst dole>stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^mSldWorks> SBdWFrkjsGy oG8,dirProject Item Data$ Control List Data$P>~P>~ReqControl List Data*P>~P>~__SRP_1FControl_Data_CurVer( Control List Data$(Control List Data$(RotateIt1Sa __SRP_2g__SRP_3ekReqControl List Data* 3A33D31-27C5-11C@E-BFD4G400513BB57}#bGProgramme\Soli3\sldw7K> 2003 Type L`ibrar::3 ThisGhiVLbraQy 2QHB1nڰB,B ("B+B 1GUNt@ t@sI@v1! 2 O O !C lVBA am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Programme\SolidWorks\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#b.0#0#C:\Programme\SolidWorks\sldworks.tlb#SldWorks 2003 Type Library F@Z3ThisLibrary0=40b87f39ThisLibraryRotateIt12Z40c1c746RotateIt1  @ ?LO4ԫ,`!0s'H{g4>EL. as"const=dimTForxLongTo SolidWorks;VBAWin16~Win32MacVBA6#Projekt1Astdole` VBAProject3KttM_ ThisLibraryG _EvaluateModul1tt1swAppPart~ boolstatusg longstatusW AnnotationsGtol DatumTag"6 FeatureDataFeature!> Component"main, Application*SldWorks$ ActiveDocڒViewRotateplusyViewRotYPlusNinetyi`_B_var_i  _B_var_forjL Workspace3diimCd _B_var_diimvalueK notForgetretval;GetUserPreferenceDoubleValueuserPreferenceValueswViewRotationArrowKeys_B_var_swViewRotationArrowKeys SetUserPreferenceDoubleValue?_B_var_userPreferenceValue: _B_var_value#_B_RotateItyO RotateIt1zT4$VBA6#Projekt1A 3xME(<< <<P(X*O%n! @X @ @`<z@R$B`Jp 0`@ @l E`hh@jhB`ibrary n@3ThisLibrary0=40b87f39ThisLibrarytt10<40b87eb4tt1  @CJx. as"const=dimTForxLongTo SolidWorks; VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject3K ttM_ ThisLibraryG _EvaluateModul1 tt1swAppPart~ boolstatusg longstatusW AnnotationsGtol DatumTag"6 FeatureDataFeature!> Component"(main, Application*(SldWorks$ ActiveDocڒViewRotateplusyViewRotYPlusNinetyi`_B_var_i  _B_var_forjL Workspace3diimCd _B_var_diimvalueK notForgetretval;GetUserPreferenceDoubleValueuserPreferenceValueswViewRotationArrowKeys_B_var_swViewRotationArrowKeys SetUserPreferenceDoubleValue?_B_var_userPreferenceValue: _B_var_value#_B_var_SetUserPreferenceDoubleValue& _B_var_retvalv _B_var_constgrot _B_var_rotsteps incrementIrotationepi^ _B_var_piVPIpigneuen  _B_var_neuen5WertK6 errechnenSaveAs4errorswarningsDas _B_var_Das? _B_var_errorsI_B_var_warningsTrU  $`nrU~|  qI))D\$ 8Q\_WL45L(<$%_LBtp5LhHn! @th (<$%h@_L  zH b _-:<%(%(%d@`@_ zx (<$%p@_L a( 4$ 3xME (> L<(P0X*O%n! @X @ @`<z@R$B`Jp 0`H @l E`hh@jhB`|dh`~`h@\ @L @< `@fHBh80X n@$*\Rffff*0<40b87eb4*\R1*#3*\R1*#0& V :  V "` X  < ` hx " (8 x  ` $P x $(< ,  O ******************************************************************************D] < f\LOKAL B@8wx588\ < - mac] R %N'J clemeO ******************************************************************************1]0]X3 Macro1.swb - macro recorded on 09/12/03 by clemens 2!4.5 !6. R h %V'L]PoH@]$#*aus SolidWorks\samples\appComm\swconst.bas]hh]H  R J %V'Lrt!neuen Wert errechnen (in Radiant)]n! @8neuen Wert setzen j f l'hvoreingestellten Wert holen%voreingestellten Wert zurckschreibenpSchleifete]Das Dokument als JPG speichernr\teDas Modell um increment drehen]C:\bilder\bild <.JPG | ~ B@zonpӲAttribute VB_Name = "tt1" ' *JMacro1.s@wb - m recorded on 09/12/03 by clemensQDim swApp As Obj ect  Part SubSin() BiBytenotForge Doubl in cr` errors"Long"warning ConstSViewRota tionAwKeys36 'aus SolidWorks\samples\appComm\swc".ba'r$ 0 'Htep72Epi .14159MA?S9M= Olic$.Sl@K @P=W.Act@iveDocqvore8estellten We@[holen QGetUserPrefere nc@WValu0e(swREi'n eu@Zechn(in Rad0iantf= C/ &@@* =`/ 180,setzA*retvlal@FB.E), F A,Schle,if@ ]1 To# 'Das ModM um dreRh$ ].De plusyDokut als JPG spe`icher]SaveAs4 "C:\bilde"r" && ".", 0B X, V Next iv