ࡱ> Root Entry0@#apc[0The VBA Project [0_VBA_Project [0*# !")$%&'(+,Root Entryg@apc[gThe VBA Project [g_VBA_Project [g Host Project Item Names0 paP0fVBA Project Data"Host Project Items&4VBA Project Signature,   !"#$%&'()*+,-./012345789:;<=>?@ABCDE{ 1 ThisLibrary*{1 5{2 L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{03 L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{3 ";{4 $={@5 &&L{801A0000-A66C-11D3-A8BD-0000861EBBD6} ID="{85EC2813-70D8-432E-9890-AA2C39CCB747}" Document=ThisLibrary/&H00000000 Name="massenmittelpunkte_dauerh" HelpContextID="0" VersionCompatible32="393222000" CMG="C8CA1FA523A523A523A523" DPB="EEEC39E5792D9E2E9E2E9E" GC="1416C3CBCFF0D0F0D00F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C ThisLibraryThisLibraryThisLibrary#cP0fProject_Data_CurVer(  Host Project Item List Data8VBA0^0^PROJECTwm&PROJECT _VBA_PROJECT*ThisLibrary6dirLProject Item Data$ Control List Data$P0fP0fReqControl List Data*P0fP0f6@,JH0* pHdmassenmittelpunkte_dauerDh8@  =  \? J J<9s@tdole>stdol@e h%^*\G{00020430-C 0046}#2.0#0#D:\WINDOWS\System32\e2.tlb#OLE Automation0{A ThisLibra`ryGJisLibray 2#H1% ,@ReqControl List Data*H Control_Data_CurVer(G Control List Data$F(" +am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#D:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#D:\Programme\SolidWorks2003\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#D:\WINDOWS\System32\stdole2.tlb#OLE Automation \? ThisLibrary033fd85cdfThisLibrary% m6JZQj`  % SolidWorks;VBAWin16~Win32MacVBA6#Projekt1Astdole` VBAProject2Kmassenmittelpunkte_dauerhU ThisLibraryG _Evaluate< #xME (SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}8(%HxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2bHost Project Item Names0 pa0VBA Project Data">Host Project Items&4VBA Project Signature, I K !"#$%&'()*+,-./0123456789:;<=>@ABCDEFGHNJOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy{|}~{; ThisLibrary*{P< 5{= L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{= L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{`> ";{? $={? &&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}ZN:\SWMacros\Massenmittelpunkt daID="{85EC2813-70D8-432E-9890-AA2C39CCB747}" Document=ThisLibrary/&H00000000 Module=massenmittelpunkte_dauerh1 Name="massenmittelpunkte_dauerh" HelpContextID="0" VersionCompatible32="393222000" CMG="2F2DF81F08212725272527252725" DPB="4A489D04B905B905B9" GC="6567B225D641D741D7BE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C massenmittelpunkte_dauerh1=0@xxuerhaft anzeigen\massenmittelpunkte dauerhaft anzeigen.swp assenmittelpunkte_dauerh16@,ThisLibrary#c0Project_Data_CurVer( M Host Project Item List Data8LVBA0^0^PROJECTwmwPROJECT _VBA_PROJECT% ThisLibraryz, 0, 0, 0, C ThisLibraryThisLibrarymassenmittelpunkte_dauerh1mJ0* pHdmassenmittelpunkte_dauerDh8@  =  \? J J<9s@tdole>stdol@e h%^*\G{00020430-C 0046}#2.0#0#D:\WINDOWS\System32\e2.tlb#OLE Automation0{A ThisLibra`ryGJisLibray 2#H1% ,@ReqControl List Data* Control_Data_CurVer( Control List Data$(massenmittelpunkte_dauerh16?U dirProject Item Data$ Control List Data$00ReqControl List Data*00"J+11G4mGsNenmPtepuk*_ae.h1Ay12v9 9!9*\G{000204EF-0am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#D:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#D:\Programme\SolidWorks2003\swvba.tlb#SolidWorks Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#D:\WINDOWS\System32\stdole2.tlb#OLE Automation \? ThisLibrary033fd85cdfThisLibrary%4massenmittelpunkte_dauerh1043fd85ce04massenmittelpunkte_dauerh1  @ m6JZQj`f aB)O-#t( SolidWorks;VBAWin16~Win32MacVBA6#Projekt1Astdole` VBAProject2Kmassenmittelpunkte_dauerhU ThisLibraryG _EvaluateModul1massenmittelpunkte_dauerh1swAppModelDoc PointSketchjstatus+main, CreateObject ActiveDocڒMassPropn:GetMassProperties2Insert3DSketch2NzGetActiveSketch2 SetAddToDB2% CreatePoint25wNow% EditRebuildH $% ) N HP J H 80 h Fp , * N @h  " $  $8 6P (.   ,0B`   G ********************************************************************** B * Makro ermittelt im aktiven Dokument (sollte Baugruppe oder PartC * sein) den Massenmittelpunkt und erzeugt in einer 3D-Skizze einenA * Punkt, der dem entspricht. Dies ist NICHT assoziativ, deswegen1 * wird auch als Name Datum und Uhrzeit angegeben *? * 12.12.2001 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)& * http://solidworks.cad.deP# * http://swtools.cad.deG **********************************************************************: zunchst mal ein paar Deklarartionen die gebraucht werden]]]0]H]`xSldWorks.Application$(. !*. die Masseeigenschaften holen $ %.',0 und einen neuen 3D-Skizze mit genau einem Punkt! (dem Masse-Mittelpunkt) erzeugen B@0 !2." B@4$,$,$, %6. ? B@4? B@0?& und dem Sketch noch einen Namen geben?Massemittelpunkt 8dd.mm.yyyy hh:mm:ss$  "(?? B@:??o@8pAttribute VB_Name = "massenmittelpunkte_dauerh1"` ' *B Makro erlt im aktiven Dokument (sollBaugruppe oder PartDsein) d3M und^zeug\n ):3D-SkizTzen"Pt,%#rm 12.2001 Stefan Berlitz~.b@idworks.cadP.de) http://`wtoolB *!?** zunchOmal[ paar D eklarpionndie gebrNt wer @sDswApp As Obj,ec|MlDocPoi 0SketdLstfsLongASub main(T TSet = Create!("SldWBa'licat]2" E (=.eischaftDholAAProp.GetertY2(3D 'iVneuǼZnauBm _0(demr-M)dhF/.Ins3D#,2 (8Tru!R $/= ?)#!D.AddToDBn C;H 22(!(0)&,A&(12)# F@vEE&gA&dno@MnnZ&C.aeC " & Format$(Now, "dd .mm.y hh:mm:ssLEditRebuildc EYZ#xME (xME` ~1` Ma`  pu`" af`$ &SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}8(%HxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2b