inventor BOM表縮略圖

智周·未來

      用inventor自帶的BOM表導出的物料BOM表，里面有一欄是零件的縮略圖，縮略圖的背景色是零件最后一次保存的底色，在實際打印出來后，有淺灰色的底色，零件的縮略圖會相對模糊，在最后一次保存前將背景色調成純白色再保存，打印出來的縮略圖就沒有了底色了，零件圖會顯得很清晰。
1 E$ \/ V2 c! Q: W& G
/ |. N' K2 Y% V, \. X$ Y     但是，每次保存零件前都要更改背景色非常的麻煩，若是不去更改背景色，就一直使用純白色的背景色，眼睛會很疲勞。
     求教各位老師，能不能在任意背景色下保存的零件，導出到BOM表后的縮略圖仍然是無底色的，要怎么設置呢？

做鋼的

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

遠祥

在首選項里面設置一下吧

艾知道人

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

艾知道人

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

艾知道人

解決縮略圖背景的ILOGIC文件。百度網盤鏈接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg
0 {4 f3 M: W' O0 H提取碼：asdf

艾知道人

樓下的網盤鏈接如失效，請復制以下ILOGIC代碼。
0 w% P( Y( J! L/ E( s* w, @'thanks for Autodesk rocky God giving me help!    The code comes from the official forum of Autodesk in the United States，by Curtis_W

- W# v4 b3 F7 J: p$ ^" _- p'獲取當前的顏色方案名稱
! n3 k& _9 _+ b6 ]1 V6 ~oColorScheme = ThisApplication.ActiveColorScheme.Name
! ], R& Q6 {8 R; t; _
'獲取當前配色方案背景類型
* y- [6 S8 a! roBackGroundType = ThisApplication.ColorSchemes.BackgroundType
- [. l$ I& G, f( r4 {; m9 W0 Z* E
'更改為演示文稿(白色背景)
1 v( g( B  A5 S! V8 |/ O* [/ s0 AThisApplication.ColorSchemes.Item("表達視圖").Activate
! r/ S3 L8 @9 J1 {9 s: Y, L
'設置為使用一種顏色背景類型
! M0 F9 p/ `6 s1 R* B; @ThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
Dim ooDoc=ThisDoc.Document
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
+ r7 n! Q2 E  t: d3 K! _8 `3 r9 o, IDim oAsmDoc As AssemblyDocument
0 Z0 o; r( Y: R9 X  m8 h: t6 uoAsmDoc = ThisApplication.ActiveDocument
Dim oDoc As Document
Dim oRefFile As FileDescriptor
( J. n) ]. o6 `' D

" U: L( h$ q  r3 r" e/ CFor Each oDoc In oAsmDoc.AllReferencedDocuments
        ThisApplication.Documents.Open(oDoc.FullFileName, True)  
        
! E% n; n: J! Q- q( `        For Each oSketch In oDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
# @! F, s) X0 ?' \        Next
' O2 x3 Z7 R8 h, r% O        
- [: F  m  Q8 V5 F' N        '設置工作平面能見度
4 s+ \6 U7 c* W' k        For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
( z  [, l  b3 z        Next
9 a3 [' H. Y( B6 b1 A: ^: r        
        '設定工作軸能見度
        For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
8 v% V% X: e2 e8 d- ~- P1 {! A        oWorkAxis.Visible = False
7 R( E5 D+ t# `& X+ u& u        Next
1 y+ R6 B/ F, k% ]7 |9 h        
        '設定工作點可見性
2 q8 P2 s; R8 Q" v' P        For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
        Next
) I3 R: B) c0 S. k- z: w
        '設置iproperty在保存時使用ISO視圖
        oDoc.SetThumbnailSaveOption _
) z( e% v" l: N$ o7 ^* f% j        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
* d3 l" d- j$ j0 B3 h* D7 Y        
        '嘗試保存
        Try
  m6 e3 v: E# C" p! B  z        oDoc.Save
        Catch
        '捕獲錯誤而不做任何事情
        End Try
        
- O: J4 T$ Z: F" C2 Z( v        '關閉文件
2 Q- t+ `) c5 {) L        oDoc.Close
Next
4 D9 F- ?! {' Y5 Z1 l! N, cAA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
5 i( J5 n* h8 s- h                oSketch.Visible = False
        Next
        
        '設置工作平面能見度
        For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
4 J$ h0 J5 {+ g9 b4 j        Next
        
8 K( m7 ^, Y( v/ A! c0 G, F) B- l        '設定工作軸能見度
9 o, G% T1 x6 X/ a- C        For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
6 F$ H7 Z3 N8 {3 ~) X        oWorkAxis.Visible = False
+ N+ w, X( A0 _        Next
5 x; d0 m- K/ ?        
        '設定工作點可見性
        For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
; @* H" v5 s& L" Q4 ~1 w        oWorkPoint.Visible = False
: y/ T& d1 ~8 r        Next

8 z+ v5 f( h1 i, K1 Z; w# k        '設置iproperty在保存時使用ISO視圖
        ooDoc.SetThumbnailSaveOption _
8 N% ~3 @3 ~! s' R: p4 D, _$ {        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
. ^  E5 a4 ?0 R) Q% f2 `        '嘗試保存
        Try
7 E/ W1 }+ @8 a; \% o! w        ooDoc.Save
" v. [, X$ |& d% p6 s2 C        Catch
* c/ {! @) J- J2 m6 Y( }& u; a$ `        '捕獲錯誤而不做任何事情
4 r9 p) }+ l# W* |6 X6 Y        End Try
% ?9 v, T) w. f( N        
8 H/ w% g$ x. _, ]; r  W% E0 @0 N        '關閉文件
, e! q6 U6 O! U'        ooDoc.Close

'改回原來的方案
3 G5 Z% k. v. N  |7 YThisApplication.ColorSchemes.Item(oColorScheme).Activate

& I+ n9 _6 F: C$ T' K9 B) Q'改變回原來的背景地面類型
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType