inventor BOM表縮略圖

智周·未來

      用inventor自帶的BOM表導出的物料BOM表，里面有一欄是零件的縮略圖，縮略圖的背景色是零件最后一次保存的底色，在實際打印出來后，有淺灰色的底色，零件的縮略圖會相對模糊，在最后一次保存前將背景色調成純白色再保存，打印出來的縮略圖就沒有了底色了，零件圖會顯得很清晰。
- ]" _* n& W# D5 @& u( z
9 a, j' Y+ C: w' I$ k     但是，每次保存零件前都要更改背景色非常的麻煩，若是不去更改背景色，就一直使用純白色的背景色，眼睛會很疲勞。
     求教各位老師，能不能在任意背景色下保存的零件，導出到BOM表后的縮略圖仍然是無底色的，要怎么設置呢？

做鋼的

所以你可以單獨保存一個裝配文件，專門用來打印bom表的，這份裝配文件的背景色設置成白色。以后有修改就覆蓋這份文件，這不就快了嗎

遠祥

在首選項里面設置一下吧

艾知道人

樓主問題解決了嗎？我也遇到這個麻煩。

艾知道人

我已找到解決辦法，用ilogic，明天有空傳上來

艾知道人

解決縮略圖背景的ILOGIC文件。百度網盤鏈接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg
, g% k% P9 J/ N& @7 z提取碼：asdf

艾知道人

樓下的網盤鏈接如失效，請復制以下ILOGIC代碼。
0 P& O: ?, U: @7 A' i: _'thanks for Autodesk rocky God giving me help!    The code comes from the official forum of Autodesk in the United States，by Curtis_W
/ t' b3 Q/ f4 v9 V3 Z; c
'獲取當前的顏色方案名稱
oColorScheme = ThisApplication.ActiveColorScheme.Name

'獲取當前配色方案背景類型
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType
0 t4 w  G6 g( N/ a) _$ _' A
'更改為演示文稿(白色背景)
* @' m& ?% n4 @& ~* F, aThisApplication.ColorSchemes.Item("表達視圖").Activate
2 k, M+ ]  U- y  j) S- p: L/ Q
0 U: g7 T! k1 b! \) U$ ^'設置為使用一種顏色背景類型
. {/ h0 @: L1 j1 f/ i! EThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
Dim ooDoc=ThisDoc.Document
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
Dim oDoc As Document
Dim oRefFile As FileDescriptor


3 V6 s$ C4 U. JFor Each oDoc In oAsmDoc.AllReferencedDocuments
        ThisApplication.Documents.Open(oDoc.FullFileName, True)  
3 J8 f" w# C! K: M, S        
        For Each oSketch In oDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
        Next
        
  H0 Y6 j0 o4 I9 Y        '設置工作平面能見度
3 j- ]3 r2 w3 s. H. ]        For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
        Next
        
        '設定工作軸能見度
        For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
2 _6 x) u7 u5 H, Y* ], J        oWorkAxis.Visible = False
( @- U$ B: M1 ~/ n        Next
/ b8 z3 c! O: ^5 J6 K6 U! E        
        '設定工作點可見性
. b; A( H) `% `" D! I        For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
0 |7 m) I. {# Y& N& Z& c        Next

  d7 O9 V. k' A2 y        '設置iproperty在保存時使用ISO視圖
* O- k* N0 u5 J' \( `        oDoc.SetThumbnailSaveOption _
        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
        '嘗試保存
! O4 N& W5 `& e. O/ H+ S& {" X: C        Try
$ c, g: V% \2 U% q' K) q% G: o        oDoc.Save
. U2 k# f' v, ]8 ?# V. R& X$ d        Catch
        '捕獲錯誤而不做任何事情
( F9 X5 I1 V9 X9 F        End Try
        
/ H" B* O0 \* R* h        '關閉文件
$ y# C* q) ~9 A" U+ f+ C        oDoc.Close
9 L( J: `0 T) }6 B5 U1 S7 @Next
0 K) ?% z2 q' Z5 f- m" o# k: K) HAA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
) ]. l- Y% X" X1 A0 \! a/ Y                oSketch.Visible = False
        Next
        
: ^, d3 b, N! C: ]1 a0 ~: `! h, ~9 F        '設置工作平面能見度
        For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
. C$ `" F: j8 W5 \! |: _; p% e. R        oWorkPlane.Visible = False
        Next
* v" T# z; i2 X4 ?        
# {7 U5 ?, u6 x8 _* R- G6 y        '設定工作軸能見度
5 ~! p6 v6 a& u6 t. B& }        For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
        oWorkAxis.Visible = False
        Next
        
        '設定工作點可見性
        For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
) ^- I. c! g4 d. h        oWorkPoint.Visible = False
        Next
1 w' O4 B6 A. h
" J0 p. f+ C2 ~2 t9 \  g        '設置iproperty在保存時使用ISO視圖
        ooDoc.SetThumbnailSaveOption _
, W% r( n! D( R2 p* u        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
        '嘗試保存
' ]& J) Z- }  X        Try
        ooDoc.Save
        Catch
7 S. P9 f5 C0 X$ R( \' u0 o        '捕獲錯誤而不做任何事情
. K% C8 `, S: R% Z5 |) d        End Try
        
0 r; H5 }4 z! O        '關閉文件
  K% X# @9 a  c2 g7 W& l5 x'        ooDoc.Close
% o. l7 `! [* X3 b
' a( g0 J! `" x! n# j'改回原來的方案
% _/ D. w  n2 T' U0 YThisApplication.ColorSchemes.Item(oColorScheme).Activate
; z+ B1 g( S" Q' m- b- d2 J
5 r6 e( j$ ~- W' a4 W'改變回原來的背景地面類型
' Q1 ]/ Z# i# Y( H, l5 b! VThisApplication.ColorSchemes.BackgroundType = oBackGroundType
5 [$ U8 `% O5 [- o. w/ F6 z- G