ࡱ> Root Entry3|apccn3|The VBA Project cn3|_VBA_Project cn3| %&'()+,-.3456Root EntryP7"+apccnP7"+The VBA Project cnP7"+_VBA_Project cnP7"+   #!"$/012VBA Project Data"Host Project Items& Host Project Item Names0cnP7"+VBA Project Signature,   !"#$%&'()*+,-./012345678JLMNOPQRSV&L{D98A091D-3A0F-4C3E-B36E-61F62068D488}4hC:\Programme\Autodesk\Inventor 8\Bin\Macros\Prop.ivbYID="{87C70403-29B8-4371-9005-08849B2A140C}" Module=Module1 HelpFile="" Name="Prop" HelpContextID="0" VersionCompatible32="3Project_Data_CurVer(  Host Project Item List Data8 VBAcnWPROJECTwm PROJECT eModule1_VBA_PROJECTdir$93222000" CMG="CBC9B3827286728672867286" DPB="8E8CF6C77A493C4A3C4A3C" GC="515329CA2ACA2A35" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 29, 654, 626, , Module1Module16@,rU t__SRP_2KX__SRP_3Ig__SRP_0{__SRP_1 BᧆA J< rstdole>stdole h%^*\G{0002043 0* pH"dDProp<@j= B ᧆA J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\Syst@em32\Se2.tlb#OLE AutomatXion`p& Module1GLduQN1 2QH1  ,4[_!+yam *\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:\WINDOWS\System32\Stdole2.tlb#OLE Automation  ᧆA&Module16k4188ea48Module1[_  ZӆWIUp`%)`)NameorthenInventor5VBAWin16~Win32MacVBA6#Propjstdole`Module1b _Evaluate GetUsrPropڧres oApplication Application* GetObjectzoDocDocumentjActiveDocument\ oPropsets  PropertySetsoPropSetv PropertySetItemzoPropValueK PropertyIdPPropId|AddrdbldickeK _B_var_dickewBreitea_B_var_Property _B_var_IfP _B_var_BreiteyDeletexbk\ergd<  ZӆWIUp( &[_xMEP<< <&<*< (<<<@ `@:=P%( tpd%  is % $ntor% (( S % . doc%`@ a do`0X x  O`8xts cHd XxX(pd T @D p(4 @$ @O 2 p( @ H( Ė0 p `VBA Project Data"Host Project Items& Host Project Item Names0cnp2|VBA Project Signature,   !"$%&')*+,-./0123456789:;<=>?@ABCDEFGHTJLMNOPQRSVU&L{D98A091D-3A0F-4C3E-B36E-61F62068D488}4hC:\Programme\Autodesk\Inventor 8\Bin\Macros\Prop.ivbYID="{87C70403-29B8-4371-9005-08849B2A140C}" Module=Module1 HelpFile="" Name="Prop" HelpContextID="0" VersionCompatible32="3Project_Data_CurVer(  Host Project Item List Data8 VBAcnWPROJECTwm PROJECT eModule1*_VBA_PROJECT(dir#"93222000" CMG="ECEE94896C7C707C707C707C70" DPB="DBD9A3BE93BF93BF93" GC="CAC8B2AFA0B0A0B05F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 29, 654, 626, , Module1Module16@,rU t__SRP_2KX__SRP_3Ig__SRP_0{__SRP_1 BᧆA J< rstdole>stdole h%^*\G{0002043K*mrU~~~~~~m :vDGf&MFy A  `yModule1PropF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  y0 :>Lna hԈ 3C:\Programme\Autodesk\Inventor 8\Bin\RxInventor.tlbInventor  y@0FC:\WINDOWS\System32\Stdole2.tlbstdole aP GetUsrProp  (Inventor.Applicationpc` pc` \sn`Y .User Defined Properties\sn`Y\sn`Y dbl Dicke Breite Lnge  x VBE6.DLL r x0* pH"dDProp<@j= B ᧆA J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\Syst@em32\Se2.tlb#OLE AutomatXion`p& Module1GLduQN1 2QH1-" ,4[_*!+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{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Programme\Autodesk\Inventor 8\Bin\RxInventor.tlb#Autode`#' )Nameorthen Inventor5 VBAWin16~Win32MacVBA6# Propjstdole` Module1b _Evaluate (GetUsrPropڧres oApplication Application* GetObjectzoDocDocumentjActiveDocument\ oPropsets  PropertySetsoPropSetv PropertySetItemzoPropValueK PropertyIdPPropId|AddrdbldickeK _B_var_dickewBreitea_B_var_Property _B_var_IfP _B_var_BreiteyDelerU $`n1GLduQN1 2QrU~|  ) yAi8+:DN44'T$  $t6T4$taT 5T aT5T:d%T5TlaT`1 5TaT l 0 l  0l  0l  0 #lxFdT:D 4`1x6T4 lxFd%:%8H0  x tTtex<  &[_4$kx; " ( &8 .@ 0p&+ . ( (  08hp DP, >8@ &Px  (     6#h  ,  (     ]@ Declare the Application objectt]X( Obtain the Inventor Application object.8* This assumes Inventor is already running.Inventor.Application$.sk Inventor Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\Stdole2.tlb#OLE Automation  ᧆA&Module16n4188ea5bModule1[_ ZӆWIUp`%)`)NameOrThen Inventor5 VBAWin16~Win32MacVBA6# Propjstdole` Module1b _Evaluate (GetUsrPropڧres oApplication Application* GetObjectzoDocDocumentjActiveDocument\ oPropsets  PropertySetsoPropSetv PropertySetItemzoPropValueK PropertyIdPPropId|AddrdbldickeK _B_var_dickewBreitea_B_var_Property _B_var_IfP _B_var_BreiteyDelerU $`n1GLduQN1 2QrU~|  ) yAi8+:DN44'T$  $t6T4$taT 5T aT5T:d%T5TlaT`1 5TaT l 0 l  0l  0l  0 #lxFdT:D 4`1x6T4 lxFd%:%w8H0  x tTtexbk\ergd<  4$kx&[_xMEP)( (&(*( (6 <P `H>>%( tpd%  is % $ntor% (( S % . doc%`@ a do`0X x  O`8xts cHd Xx(XT @D 8(4 @$ @O O 2X@ @ X H( Ė0 p `@ᧆA$*\Rffff*6n4188ea5b*\R1*#139*\R1*#13b*\R1*#161*\R1*#163*\R1*#165*\R0*#14? " ( &8 .@ 0p&+ . ( (  08hp D8, >8@ &Px  (     $#h   ,       ( Set a reference to the active document.! This assumes a document is open.]x !".* Obtain the PropertySets collection object] !&.$!Delcare new User Defined PropertyAdd new Propertype]User Defined Properties $%,.(7 Iterate through all the Properties in the current set.] . (p Obtain the Name of the Property] .!'! Obtain the Value of the Property] .!0'0& Obtain the PropertyId of the Property 8dbl (B@6o`Xxp 8 0 x '8kx Dicke Breite Lnge dblk .B@FFDim PropertyId As LongPropertyId = oProp.PropId= Get a reference to the "User Defined Properties" PropertySetAttribute VB_Name = "Module1" Sub GetUsrProp()L'Delcare new User Defined Ferty Dim dbl As SLngpPclrthe Application object6o ?Invento r.MObta8in L$U. ' This assumes ,lready runningSet A=OP(, "G " a reference toNactiv e doc?ntHa IopenoDoc_O =R.A1 }ЁSs coll@]_ sets  .Cf A"Qies"F&D@ !  A+.Item&(Vh E' rathrough alli@$ ĕcury@rt @Ed I% For Each oI(aBof |BD;.'Y' Vaplue @VarianAe If "z" ien#".ete#Enpd IfcDicke" OrA BreitKLng Th =B& #& " x /"A1Id3#'a.#Lo" E$AIdNex)^Addbe B$}@.A@"  a L$U. ' This assumes ,lready running,PSet =pOaP(, "G" |' a re@ferencsoNactive Hdoc?ntHa IopenDocO =R.A1 }ertySs collsets;  .Af  PB"Design Trac k[ Dies"A'AT =o!,.Item("UserfinedIIBi A]@ Declare the Application objectt]X( Obtain the Inventor Application object.8* This assumes Inventor is already running.Inventor.Application$.( Set a reference to the active document.! This assumes a document is open.]x !".* Obtain the PropertySets collection object] !&.$!Delcare new User Defined PropertyAdd new Propertype]User Defined Properties $%,.(7 Iterate through all the Properties in the current set.] . (p Obtain the Name of the Property] .!'! Obtain the Value of the Property] .!0'0& Obtain the PropertyId of the Property 8dbl (B@6o`Xxp 8 0 x '8kxk Lnge dblk .B@FFDim PropertyId As LongPropertyId = oProp.PropId= Get a reference to the "User Defined Properties" PropertySet 8 0'8e Dicke BreiteAttribute VB_Name = "Module1" Sub GetUsrProp()L'Delcare new User Defined Ferty Dim dbl As SLngpPclrthe Application object6o ?Invento r.MObta8in L$U. ' This assumes ,lready runningSet A=OP(, "G " a reference toNactiv e doc?ntHa IopenoDoc_O =R.A1 }ЁSs coll@]_ sets  .Cf A"Qies"F&D@ !  A+.Item&(Vh E' rathrough alli@$ ĕcury@rt @Ed I% For Each oI(aBof |BD;.'Y' Vaplue @VarianAe If "z" ien#".ete#Enpd IfcDicke" OrA Breit@ThE A=& & " x `A Lng COA (7Id)'4@*Loa" *AId Nex`/"eAdd¨e *@G.A!g a@ .User Defined Prope