ࡱ>  Root Entry G@#apc;- GThe VBA Project ;- G_VBA_Project ;- G/ !"#$%&-.0Root Entry0@"apc;-0@The VBA Project ;-0@_VBA_Project ;-0@  2 '()*+,13 VBA Project Data"Host Project Items& Host Project Item Names0;-0@VBA Project Signature,   !#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKTMOPQRSxUVWYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}~&L{D98A091D-3A0F-4C3E-B36E-61F62068D488}+VE:\IV8 Daten\VBA Sample Makros\NewPlane.ivbYID="{82485C55-EC88-439D-8CB6-72A98F175EDA}" Module=Modul1 Name="Benutzerprojekt1" HelpContextID="0" VersionCompatible32="393Project_Data_CurVer(  Host Project Item List Data8 VBA;-(;-PROJECTwm PROJECT gModul1X _VBA_PROJECT'$ dir"*222000" CMG="82807937C13BC13BC13BC13B" DPB="CECC358BCD9B189C189C18" GC="1A18E15F2C602C60D3" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Modul1=110, 110, 636, 550, Z Z Modul1Modul16@,rU t__SRP_2N__SRP_3Lg__SRP_0 __SRP_1BOffset=\xFJAʨVBE6.DLL T xDefinitionE6 gJ7sP&0* pHdBenutzerprojekt1L@  Z= ~ ZA %J< 9st dole>stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation/"uаLModul1GLMJduL12) H1|  ,1{! +Sup(Nam *\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{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Programme\Autodesk\Inventor 8\Bin\RxInventor.tlb#Autodesk Inventor Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation ZA а Modul10>41ac1869 Modul1{  +0౪HBr`36+ AsSet Inventor5 VBAWin16~Win32MacVBA6#Projekt1A stdole` Benutzerprojekt1~ Modul1 _EvaluateSup(NewPlaneVoPartDoc PartDocumentThisApplicationyActiveDocument\Part~Plane#OffsetoWP{ WorkPlanejKoCompDefۨ WorkPlanesPAddByNormalToCurve$ oSketchLine2vEndSketchPoint AddByPlaneX _B_var_SetAddByPlaneAndOffsetlInputBox  oPartPlane1aoOcc1V Definition.7Itemz_B_var_Definition_B_var_oCompDefdPlane15oApp ApplikationUoDoc _B_var_oApp5ActiveDokumentDoWp1(ComponentDefinitionLrU $`nrU~| )a aAY /(H%h=X=(Bx6X(<''''''(:HNXX Fhx6X(6T @:8 %h=X =(Bd6X((8 RefPlanRefPlane oPartPlane2aoOcc2W _B_var_oDoc. _B_var_OffsetR%_B_var_RefPlan+< а{VBA Project Data"Host Project Items& Host Project Item Names0;-GVBA Project Signature,   !#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKTMOPQRSxUVWYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}~&L{D98A091D-3A0F-4C3E-B36E-61F62068D488}+VE:\IV8 Daten\VBA Sample Makros\NewPlane.ivbYID="{82485C55-EC88-439D-8CB6-72A98F175EDA}" Module=Modul1 Name="Benutzerprojekt1" HelpContextID="0" VersionCompatible32="393Project_Data_CurVer(  Host Project Item List Data8 VBA;-(;-PROJECTwm PROJECT gModul1X _VBA_PROJECT'$ dir"*222000" CMG="B4B64F2B73C177C177C177C177" DPB="4E4CB5DDD5ED6EEE6EEE6E" GC="E8EA13E414E4141B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Modul1=110, 110, 636, 550, Z Z Modul1Modul16@,rU t__SRP_2N__SRP_3Lg__SRP_0 __SRP_1BOffset=\xFJAʨVBE6.DLL T xDefinitionE6 gJ7sP&0* pHdBenutzerprojekt1L@  Z= ~ ZA %J< 9st dole>stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation/"uаLModul1GLMJduL12) H1|  ,1{! +Sup(Nam *\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{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Programme\Autodesk\Inventor 8\Bin\RxInventor.tlb#Autodesk Inventor Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation ZA а Modul10>41ac1869 Modul1{  +0౪HBr`36+ asSet Inventor5 VBAWin16~Win32MacVBA6#Projekt1A stdole` Benutzerprojekt1~ Modul1 _EvaluateSup(NewPlaneVoPartDoc PartDocumentThisApplicationyActiveDocument\Part~Plane#OffsetoWP{ WorkPlanejKoCompDefۨ WorkPlanesPAddByNormalToCurve$ oSketchLine2vEndSketchPoint AddByPlaneX _B_var_SetAddByPlaneAndOffsetlInputBox  oPartPlane1aoOcc1V Definition.7Itemz_B_var_Definition_B_var_oCompDefdPlane15oApp ApplikationUoDoc _B_var_oApp5ActiveDokumentDoWp1(ComponentDefinitionLrU $`nrU~| )a aAY /(H%h=X=(Bx6X(<''''''(:HNXX Fhx6X(6T @:8 %h=X =(Bd6X((8 RefPlanRefPlane oPartPlane2aoOcc2W _B_var_oDoc. _B_var_OffsetR%_B_var_RefPlan+< а{ а{xME P6  *<<N `TH L \xx4% Vd%0h%  %x0%`&hhH @8 `(( @ h @ ( @  @  @ hX 8x @h hT P `JL @ZA $*\Rffff*0>41ac1869*\R1*#258*\R0*#14*\R1*#53f*\R1*#53e*\R1*#139" . , `  P8  /  h0,`  " @ xhTdx,X(op]]` P!B!.%D.\.Add \ & P!X!.%:.VGeben Sie den Offsetwert ein:$<'&:(X( Eine neue AE soll parallel zur XY-Ebenela .LoApp A RefPlane ist XY-Ebene] L!T.P A]P]H Eingabe des Offsetwertes Erstellung der neuen Ebenert "Of% und einem Offs а{xME P6  *<<H `THh  \xx4% Vd%0hX  %x%h08hH @8 `(( @ h @ ( @  @  @ hX 8x @h hT P `JL @ZA $*\Rffff*0>41ac1869*\R1*#258*\R0*#14*\R1*#53f*\R1*#53e*\R1*#139"   &@ h  /H ,< &6   "h < xhTdx,X(op]]` Z50 mm P!X!.%:.V P!B!.%D.\.AddDim oPartPlane2 As WorkPlanetchLinGeben Sie den Offsetwert ein:$<'&:(X5Set oPartPlane2 = oOcc2.Definition.WorkPlanes.Item(3) Dim oApp As Inventor.ApplikationpaSet oApp = ThisApplication L!T.P A]PaAttribute VB_Name = "Modul1" Public Sub NewPlane() 'Dim oApp As Inv@entor.likationX'SetL= This@c &LDocLParty umRC=J.ActiveDok#GRefKWork H&).DefiniX.s.I`tem(3{}O(ffsh=xputBox("Geben Sie dwert `ein:"rW4p1Lo JCo0mponOAddBylAnd9(l, "50 |mm =2q>]H@|?Qypc` pc` c)`YQ 50 mm &ComponentDefinitionetwert erzeugt werden..%xɱAttribute VB_Name = "Modul1" Public Sub NewPlan@e() ' Eine neue AE soll parallel zur XY-EbeneA\und edm Offsetwert erzeugt den.+Dim oApp As Inventor.likatio"n%Set%= ThiscKDocKPart umQC=%.ActiveD ok' Ref ist qXZWorkq>]H@|?Qypc` pc` c)`YQ 50 mm &ComponentDefinitionhk |lk248.Definif.s.Item(3>gabe deses?s`Singl =putBox("Ge Si&nJdin:"rstellungr|n wAoWp1P=D AddByMAnjd-(M,)'E@ Z= ~ ZA %J< 9st dole>stdole f%K*mrU~~~~~~~k >GgZ  A  `Modul1Benutzerprojekt1F /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  )0 :>Lna hԈ 3C:\Programme\Autodesk\Inventor 8\Bin\RxInventor.tlbInventor !@0FC:\WINNT\System32\stdole2.tlbstdole 1yPNewPlane WorkPlanesItem :Geben Sie den Offsetwert ein: &AddByPlaneAnd