inventor的Fx參數表如何導出到EXCEL中？

雪戀星靈草

欲將inventor中fx參數表中的模型參數及用戶參數的內容導出到Excel表格內使用，有什么辦法可以做到嗎？

遠祥

參數化設置？

雪戀星靈草

遠祥 發表于 2019-5-22 19:26
. S: n7 W" x: _* @! J* V3 @' [參數化設置？

是的，有辦法導入表格中么？

雪戀星靈草

網上搜索到如下方法，暫未驗證，謹慎使用
7 N4 J  E  d8 S: o# g1、VBA編程法--- Sanjay Ramaswamy

8 V) Z+ i3 U. }& I7 |+ q
$ Q: G& V, I) j
+ K4 _: X& a4 J2 Q用法就是新建一個空的Excel表格， 然后再VBA 編輯器里面復制下面的代碼，然后add a reference to “Microsoft Excel 12.0 Object Library”。 運行即可。



Public Sub ExportParameters()

   

: ~4 T2 u6 ^. c  \1 N; H- z8 P" G    Err.Clear
0 [, V/ P: Y4 j* C
    Dim oExcel As Excel.Application
$ \2 C# v# l7 F( ^' c; G( a6 \0 V
    Set oExcel = GetObject(, "Excel.Application")

    If Err <> 0 Then

        MsgBox "Excel must be running"

) J6 u5 n5 R: D, F4 y2 k4 h$ X        Exit Sub

' D, [! t- r4 `. ]    End If
# _: M+ S1 ^" S6 S  r: ]
   
. G3 @3 n! v- J2 J+ l3 g1 g
    Err.Clear
! F, P2 u' Z: c: d" T. G
' |5 b! |+ _$ h3 a0 b! P    Dim oSheet As Excel.WorkSheet
8 [( P8 A0 B7 t2 q' W  }4 i# j
0 O& U% L% ~6 Q    Set oSheet = oExcel.ActiveSheet
+ _5 S! H# f' g; B' ^' ^7 n
    If Err <> 0 Then

, R: U' [, Y' m5 C: F        MsgBox "An empty must be active in Excel"
- y2 b* }+ }0 x9 [3 z2 c( I
        Exit Sub
. U# I& r' G9 O
    End If
% f5 s' z  S4 E: Z1 v
   

    Dim oDoc As Document

    Set oDoc = ThisApplication.ActiveDocument
. K$ g0 @7 p; Z% T& p
   
* w  x9 n& d7 v: I6 n% p
* _$ ~& p2 X5 X    oSheet.Cells(1, 1).Value = "Name"
2 q, O- ~* U5 c0 e1 S* p5 V9 i$ u
    oSheet.Cells(1, 2).Value = "Units"

7 F$ b! W* }) i2 z2 _/ X    oSheet.Cells(1, 3).Value = "Equation"
* B0 d+ C+ D/ C7 c0 c
4 t6 G/ @" d1 K  k0 p' i    oSheet.Cells(1, 4).Value = "Value (cm)"

   

9 N, n: @8 \  Z) v1 g    oSheet.Cells(1, 1).HorizontalAlignment = Excel.xlCenter

    oSheet.Cells(1, 2).HorizontalAlignment = Excel.xlCenter

* v; G( ?) |3 \! t( Q5 _3 y+ L" W    oSheet.Cells(1, 3).HorizontalAlignment = Excel.xlCenter
- u% N* {! s& U* A6 e& N* M" ?( x
* X+ ]" H$ U% ~2 o/ y    oSheet.Cells(1, 4).HorizontalAlignment = Excel.xlCenter
0 v8 P. G# I' i% ~- k
  u. }) h! n( [6 ?7 ^$ {    oSheet.Cells(1, 1).Font.Bold = True

# \3 a' ^5 J/ T8 H; ?+ V    oSheet.Cells(1, 2).Font.Bold = True
" O. ?5 |: n' V# V. P& E9 p  V
    oSheet.Cells(1, 3).Font.Bold = True

& M' i# D) B) b; T& s    oSheet.Cells(1, 4).Font.Bold = True
/ c$ s; J, ]6 f& }  W" S; d
   
( ]0 C$ z8 }* j, N5 q7 {: P. N7 i( c
    oSheet.Cells(3, 1).Value = "Model Parameters"
" W' s8 V( h& S% X- y
    oSheet.Cells(3, 1).Font.Bold = True

   
# o$ P$ j# s  j8 m+ ~4 T, G" t
    Dim i As Long
) C2 S7 O" L; F1 e3 Z7 z
3 J7 f9 H+ b- z+ y    i = 4
/ ~( f1 Z4 o- ^( {
& ]) |8 z  [9 g$ l: B2 Y    Dim oModelParam As ModelParameter

$ ]1 d; p2 c5 e$ q5 ?    For Each oModelParam In oDoc.ComponentDefinition.Parameters.ModelParameters

5 u. j+ i8 W5 n, l0 h3 ?8 v  S& R0 O      

/ X5 B! v) v; Z- V+ S. }  ]        oSheet.Cells(i, 1).Value = oModelParam.Name

        oSheet.Cells(i, 2).Value = oModelParam.Units

        oSheet.Cells(i, 3).Value = oModelParam.Expression
7 H* A9 Q# i$ a% r6 J% F
; G$ ?, A$ A. s) X        oSheet.Cells(i, 4).Value = oModelParam.Value

      
0 h( ^3 ]* s7 k" y7 k
        i = i + 1

    Next
0 o4 q$ M2 E, l
5 @9 Q2 u- P. U   

  u  |7 T; x8 r8 i9 r% K2 P    i = i + 1
" M4 n5 `5 c) T+ M
5 G5 _. u! F# r" J# z    oSheet.Cells(i, 1).Value = "Reference Parameters"

    oSheet.Cells(i, 1).Font.Bold = True

    i = i + 1
. r0 m+ T, L& t
8 Y0 Y3 D) z# x4 R$ e) s! h   

    Dim oRefParam As ReferenceParameter
, x1 z% ^: t5 o1 t0 {
5 T( L0 s+ i8 Q4 n    For Each oRefParam In oDoc.ComponentDefinition.Parameters.ReferenceParameters

      

        oSheet.Cells(i, 1).Value = oRefParam.Name

& O* D1 w9 [+ ~- C3 j' c4 `        oSheet.Cells(i, 2).Value = oRefParam.Units

! M- v$ v* T3 f  m        oSheet.Cells(i, 3).Value = oRefParam.Expression

        oSheet.Cells(i, 4).Value = oRefParam.Value

& x, S* A9 z+ x0 P5 A      
2 [6 F* b4 c9 u" V0 j
. `% e7 E& D* _0 Z6 Z        i = i + 1

0 k: q5 z( e" X5 Z" z* m    Next
+ h. ]; U$ k7 ~
   
7 t/ v  |, q( A( F3 C0 v  L
    i = i + 1

" \8 C! O8 L2 d8 m; w3 o/ C    oSheet.Cells(i, 1).Value = "User Parameters"

# b1 ?0 q$ @& P' z    oSheet.Cells(i, 1).Font.Bold = True
1 o! B, K8 c6 H- {
    i = i + 1

& `" f+ }9 E7 B: o- Z+ q3 _   
6 w/ [* X* j4 z5 q6 _2 |8 G6 Y6 Y
1 ]& Q3 b% W) u    Dim oUserParam As UserParameter
$ U: W) x4 d7 R2 P7 p
    For Each oUserParam In oDoc.ComponentDefinition.Parameters.UserParameters
5 Q, N9 H4 z0 p
6 G! V% D. U% @  {8 d5 X2 |0 f3 F      

# t$ X. d* S! g, }+ `. V        oSheet.Cells(i, 1).Value = oUserParam.Name
% }4 g6 M! K2 j( w
/ w! T4 I3 t6 _7 N$ O) _. N        oSheet.Cells(i, 2).Value = oUserParam.Units
% g. s. z8 e5 [9 V
9 N2 {% U: S9 o. l6 O0 U( C        oSheet.Cells(i, 3).Value = oUserParam.Expression

2 B- O! W9 _- P, y, A        oSheet.Cells(i, 4).Value = oUserParam.Value

: c' D4 p. v, @, ]3 g      
9 o: c' {- X" m+ b* O
        i = i + 1
2 {' n% c# ~  l4 J
    Next
' ?3 E4 N6 M5 l" D9 W/ L, {7 f
   

    Dim oParamTable As ParameterTable
& t( k* b$ q8 [: b- @% \- l
* R+ {4 g" F1 P- ?4 C    For Each oParamTable In oDoc.ComponentDefinition.Parameters.ParameterTables
/ a/ s1 |, x+ p( s
* M4 U1 k/ v; \- T. ^1 \      

        i = i + 1

/ j4 z2 p; S. S) s; e/ X        oSheet.Cells(i, 1).Value = "Table Parameters - " & oParamTable.FileName

        oSheet.Cells(i, 1).Font.Bold = True

        i = i + 1

$ s6 M  d  c2 `- I   
! f. W9 h0 f" l, Q; d
        Dim oTableParam As TableParameter
4 B& K# B8 n$ o/ f* O
        For Each oTableParam In oParamTable.TableParameters
2 @3 a6 h) `: u, o5 k+ u# i5 [6 z
: Q0 s! x6 m4 ^( n+ S           
% F. j9 L) F* g' s# U/ Y# @
, }1 O) l; v" h. p            oSheet.Cells(i, 1).Value = oTableParam.Name

            oSheet.Cells(i, 2).Value = oTableParam.Units
% F5 X7 C3 }9 r
" W5 p& s- w/ p* c# N            oSheet.Cells(i, 3).Value = oTableParam.Expression

            oSheet.Cells(i, 4).Value = oTableParam.Value

           

/ E- T" S: \, x% ?/ I/ Q# e            i = i + 1

        Next
: z1 j9 f- \# t9 _3 `
    Next
/ K4 z) E8 V9 K* G- c2 P' n9 t. A" R
2 A$ \2 v! a. O: Q' K- r9 j   

' A- ~- s* g3 K" [3 [% |    Dim oDerivedParamTable As DerivedParameterTable
) U$ N+ C  k3 k- R1 i
    For Each oDerivedParamTable In oDoc.ComponentDefinition.Parameters.DerivedParameterTables
, U' H, E$ m, b8 }
2 m+ Y5 @) K5 V1 J3 l9 E  }      

6 E1 v5 N9 q  \. L        i = i + 1

) L0 @8 @, E5 C  B1 P. G        oSheet.Cells(i, 1).Value = "Derived Parameters - " & oDerivedParamTable.ReferencedDocumentDescriptor.FullDocumentName

        oSheet.Cells(i, 1).Font.Bold = True
4 x$ q" M$ `# H5 U1 L
* p7 t( K. r# n        i = i + 1
$ v+ |5 |0 f  ?- O  d4 w/ m  A8 d
   

        Dim oDerivedParam As DerivedParameter

        For Each oDerivedParam In oDerivedParamTable.DerivedParameters

           

            oSheet.Cells(i, 1).Value = oDerivedParam.Name

. z$ d( {1 K5 N3 p9 B1 u) D+ C            oSheet.Cells(i, 2).Value = oDerivedParam.Units
; U# F& l: m# T8 ~
            oSheet.Cells(i, 3).Value = oDerivedParam.Expression

; T+ h) J5 f6 ~- o+ t7 h3 S' v            oSheet.Cells(i, 4).Value = oDerivedParam.Value
9 E/ F! A( [3 W+ e0 d' }
           
- B* D; \5 `# \: M
            i = i + 1

1 Y) y/ z6 @' m        Next
" \0 Q  `) U7 i. z. x6 b6 i- _- i
    Next
' n+ D% w3 M- }) X8 C4 Z: y
, A4 z0 F* F7 ~5 p9 \End Sub

0 J+ w3 h7 Z( E7 L



第二個方法--- iLogic方法 ， 感謝xiaodong Liang


0 O( W+ k1 Q9 F3 p  W. z. P. K
. V0 B* ], B, h用法，新建一個test.xlsx在C盤下面，然后復制下面內容到一個規則里面。運行即可。
) T. C# [% x% W  o' [( O4 _


8 T: \( ?" t2 o5 y8 v

5 O, x6 j4 L* y1 C/ a4 N- p 'Open Excel
2 ^8 r# P* j& F  c' z4 Z8 v GoExcel.Open("c:test.xlsx", "Sheet1")

6 {& x8 [! m  L0 V4 u% A 'Title of column
GoExcel.CellValue("c:test.xlsx", "Sheet1", "A1") = "Name"
GoExcel.CellValue("c:test.xlsx", "Sheet1", "B1") = "Units"
GoExcel.CellValue("c:test.xlsx", "Sheet1", "C1") = "Equation"
: T' D) k, M6 D6 T9 g% T7 p( J GoExcel.CellValue("c:test.xlsx", "Sheet1", "D1") = "Value (cm)"

'Model Parameters
Dim oCurrentIndex As Long = 3
GoExcel.CellValue("c:test.xlsx", "Sheet1", "A" & CStr(oCurrentIndex)) = "Model Parameters"

Dim index As Long
, h" D: c0 g( ]; q$ U Dim oIndexStr As String
& D( o3 K0 J: N2 A* _
' V! L$ F- q" e! L0 Q- ^ Dim oModelPs
$ l; M( G. ~* V7 J oModelPs = ThisApplication.Activedocument.ComponentDefinition.Parameters.ModelParameters
" S. q& c' W  C
For index = 1 To oModelPs.Count

3 C1 C6 u6 t7 o0 K1 e  
9 R" Z3 r( q. M6 g! R0 ~  oIndexStr = "A" & CStr(oCurrentIndex + index)
  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oModelPs(index).Name
0 N. M4 R2 X0 R/ W7 M
  oIndexStr = "B" & CStr(oCurrentIndex + index)
  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oModelPs(index).Units
$ q6 S$ T0 ~' ?6 n8 i
1 ?6 k, G" q; T: {$ _. I1 p  oIndexStr = "C" & CStr(oCurrentIndex + index)
  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oModelPs(index).Expression

: i+ d# R& d% R1 W  oIndexStr = "D" & CStr(oCurrentIndex + index)
% J# B! t( W7 e- I: J2 @; }  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oModelPs(index).Value
Next
+ \1 D* U! I5 M6 E
'Reference Parameters
% J" F) w7 c1 P7 ~3 joCurrentIndex = oCurrentIndex + oModelPs.Count + 1
/ {. Z. m4 [! {( k" z" tGoExcel.CellValue("c:test.xlsx", "Sheet1", "A" & CStr(oCurrentIndex) ) = "Reference Parameters"

9 P2 [, {3 q( r! y# d Dim oRefPs
oRefPs = ThisApplication.Activedocument.ComponentDefinition.Parameters.ReferenceParameters

For index = 1 To oRefPs.Count
7 l9 d2 l# y- ?; N, x! r
  ^% n* ]  e) ?( F0 d2 z  oIndexStr = "A" & CStr(oCurrentIndex + index)
  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oRefPs(index).Name
) |7 d6 }, h; k6 D2 K$ [3 ^* ~3 v
   oIndexStr = "B" & CStr(oCurrentIndex + index)
3 o/ T  L9 B( D) ~: Z7 w: J  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oRefPs(index).Units
. U. R* Y) H  q
  oIndexStr = "C" & CStr(oCurrentIndex + index)
1 ^1 s# D2 f3 G" y; K9 X; @  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oRefPs(index).Expression
& [' {* R/ `" i; V- W
6 L4 [4 R. T" h' o  oIndexStr = "D" & CStr(oCurrentIndex + index)
  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oRefPs(index).Value
Next

/ Y* f% u5 r! b1 s; C5 |% ~'User Parameters
# c) M& q5 P& v: coCurrentIndex = oCurrentIndex +  oRefPs.Count + 1
4 ]+ Y$ a3 F0 S' [0 ^# uGoExcel.CellValue("c:test.xlsx", "Sheet1", "A" & CStr(oCurrentIndex) ) = "User Parameters"
1 b& |5 y& F8 {* y3 T
! R3 N, d; e0 y) B& a Dim oUserPs
- ?( [3 E; X: u+ a+ \6 l/ D8 P  loUserPs = ThisApplication.Activedocument.ComponentDefinition.Parameters.UserParameters
7 f: C9 v6 q) r0 Z! d
! p8 ]! F/ H4 E# q  I" ^6 vFor index = 1 To oUserPs.Count
( ?- [3 n* p5 \& w8 B& c
  oIndexStr = "A" & CStr(oCurrentIndex + index)
6 F* o! K: H3 C+ N0 |  L  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oUserPs(index).Name

" s$ N+ m0 H, I( d  oIndexStr = "B" & CStr(oCurrentIndex + index)
  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oUserPs(index).Units

  oIndexStr = "C" & CStr(oCurrentIndex + index)
+ a( [1 q  r, m& @. }- y- s  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oUserPs(index).Expression
5 }7 b) Z# c/ b; D
  oIndexStr = "D" & CStr(oCurrentIndex + index)
  GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oUserPs(index).Value
1 Q6 j7 _: ^( [/ hNext

( x% A4 [8 J7 K" y9 o
'ParameterTables
$ F" }4 i5 X: r" L: o: PoCurrentIndex = oCurrentIndex +oUserPs.Count  + 1
GoExcel.CellValue("c:test.xlsx", "Sheet1", "A" & CStr(oCurrentIndex) ) = "Parameter Table"
, i' u5 `& f% f: Q7 d/ k, ~9 x
1 Y& i9 Z: y1 g( m2 f. O" E: `( LDim oPTables
  j2 p& m( u$ a  F/ yoPTables = ThisApplication.Activedocument.ComponentDefinition.Parameters.ParameterTables
0 B# @5 N6 l0 r" \3 j9 q
For  i = 1 To oPTables.Count
  
9 T! \% Q) m8 j' T* z   Dim oEachPTable
2 o2 B+ D% {' T( |; O/ a1 v1 a   oEachPTable = oPTables(i)
  
   Dim oPTableParas
- ?$ E3 U, v& Q& l$ ?( K. `) A; {   oPTableParas = oEachPTable.TableParameters  
  
   oCurrentIndex = oCurrentIndex + 1
   GoExcel.CellValue("c:test.xlsx", "Sheet1", "A" & CStr(oCurrentIndex) ) = "Table Parameters - " & oEachPTable.FileName
, B: c$ l8 x& }9 G, Z  
$ T) T9 `% ]# H) B; g- e   For index  = 1 To  oPTableParas.Count
   
  Dim oEachP
) B1 Y2 V+ T, w" u# Y  oEachP = oPTableParas(index)

  oIndexStr = "A" & CStr(index + oCurrentIndex)
6 S! s5 I* @5 J2 c2 I3 `     GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oEachP.Name
& @3 W6 `& S' ~0 J
- q% ~  e+ W4 F2 x* _# y$ F  oIndexStr = "B" & CStr(index +oCurrentIndex)
     GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oEachP.Units

     oIndexStr = "C" & CStr(index +oCurrentIndex)
# Y( i! y. o9 J6 e1 w1 q     GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oEachP.Expression

     oIndexStr = "D" & CStr(index + oCurrentIndex)
     GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oEachP.Value   
   Next
  
$ f' H. R, b) F   oCurrentIndex = oCurrentIndex + oPTableParas.Count
  
Next
/ Q( C3 Z# X, W2 x
'Derived Parameter Table
0 Z1 f8 H  m6 g4 r7 X: O$ roCurrentIndex = oCurrentIndex + 1
: g8 Z8 N; P7 Q8 |/ }GoExcel.CellValue("c:test.xlsx", "Sheet1", "A" & CStr(oCurrentIndex) ) = "Derived Parameter Table"
1 ~, q$ k9 L8 d, @
Dim oDTables
3 O# j( L3 k9 w) I" @/ DoDTables = ThisApplication.Activedocument.ComponentDefinition.Parameters.DerivedParameterTables
) S; E3 s# `) |- k. G1 g
For  i = 1 To oDTables.Count
  
( Y8 a: O7 R9 i! `' T; d, {4 d+ V' ]   Dim oEachDTable
9 K/ O8 M6 Z2 a3 e9 @" v  k5 }   oEachDTable = oDTables(i)
- k4 L# ]: N0 f6 N3 p  
   Dim oDTableParas
8 D9 M, {- Z6 h# v6 b1 M) Q   oDTableParas = oEachDTable.DerivedParameters   
! Y% B& i5 M8 o2 ]! ~( x8 F  
8 i0 a" o  E. b   oCurrentIndex = oCurrentIndex + 1
" D) a' g+ T1 D/ D1 |   GoExcel.CellValue("c:test.xlsx", "Sheet1", "A" & CStr(oCurrentIndex) ) = "Table Parameters - " & oEachDTable.ReferencedDocumentDescriptor.FullDocumentName
  
   For index  = 1 To  oDTableParas.Count
1 d# d% X* H5 [; O+ ~   
/ Q9 D2 g- q2 u* x3 }8 _  Dim oEachDP
  oEachDP = oDTableParas(index)

6 G$ q/ X+ w- V, m9 H0 g, P  oIndexStr = "A" & CStr(index + oCurrentIndex)
     GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oEachDP.Name

/ J; d8 q& F/ B* Q, H& k6 _  oIndexStr = "B" & CStr(index +oCurrentIndex)
     GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oEachDP.Units
7 H- l- w* _7 c" B" P
     oIndexStr = "C" & CStr(index +oCurrentIndex)
: M) r9 m- N# }0 v7 v1 E& S4 b     GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oEachDP.Expression
, s: T! [8 l& q. b. O% i9 L, ]
+ u7 e+ _! h% F+ m  A% y     oIndexStr = "D" & CStr(index + oCurrentIndex)
; L5 `/ ~  y0 g6 W) v     GoExcel.CellValue("c:test.xlsx", "Sheet1", oIndexStr) = oEachDP.Value   
   Next
1 }; ?- t& r. ?& V0 x    oCurrentIndex = oCurrentIndex + oDTableParas.Count
3 ^$ J2 Q( o/ b" r. u  x
Next  
  


GoExcel.Save
7 U0 u: Z9 R% mGoExcel.Close