inventor BOM表縮略圖

智周·未來

      用inventor自帶的BOM表導(dǎo)出的物料BOM表，里面有一欄是零件的縮略圖，縮略圖的背景色是零件最后一次保存的底色，在實際打印出來后，有淺灰色的底色，零件的縮略圖會相對模糊，在最后一次保存前將背景色調(diào)成純白色再保存，打印出來的縮略圖就沒有了底色了，零件圖會顯得很清晰。

     但是，每次保存零件前都要更改背景色非常的麻煩，若是不去更改背景色，就一直使用純白色的背景色，眼睛會很疲勞。
     求教各位老師，能不能在任意背景色下保存的零件，導(dǎo)出到BOM表后的縮略圖仍然是無底色的，要怎么設(shè)置呢？
3 O, Y) i: [. {8 T

做鋼的

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

遠(yuǎn)祥

在首選項里面設(shè)置一下吧

艾知道人

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

艾知道人

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

艾知道人

解決縮略圖背景的ILOGIC文件。百度網(wǎng)盤鏈接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg
4 d2 @4 r. g: _- \/ G8 B' @提取碼：asdf

艾知道人

樓下的網(wǎng)盤鏈接如失效，請復(fù)制以下ILOGIC代碼。
' M' ?7 S  h/ @% m" m# |8 t'thanks for Autodesk rocky God giving me help!    The code comes from the official forum of Autodesk in the United States，by Curtis_W
2 i: \" r" w/ p
- \8 s* C( X& K'獲取當(dāng)前的顏色方案名稱
5 j7 ]2 L, a% xoColorScheme = ThisApplication.ActiveColorScheme.Name
9 N5 ]" P- D7 I
'獲取當(dāng)前配色方案背景類型
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType

'更改為演示文稿(白色背景)
/ ]9 A1 u3 o& o8 d" c0 nThisApplication.ColorSchemes.Item("表達(dá)視圖").Activate

'設(shè)置為使用一種顏色背景類型
ThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
Dim ooDoc=ThisDoc.Document
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
0 \! h5 ?4 T5 R7 d& E8 ZDim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
1 j9 G) c% t( f8 `# O/ A! v  EDim oDoc As Document
- \6 p4 j  a4 c: y# f: LDim oRefFile As FileDescriptor

% |; w- C- O. S4 q% r
For Each oDoc In oAsmDoc.AllReferencedDocuments
        ThisApplication.Documents.Open(oDoc.FullFileName, True)  
! M( N9 m  R1 s2 q/ p3 p5 L        
8 p7 w8 S# T& C/ x- i( A        For Each oSketch In oDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
& U( Q; t: h3 }) c" H( n        Next
8 g% e9 c$ }" i' Y5 Y        
        '設(shè)置工作平面能見度
        For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
- z/ ?- S' N+ n+ {        Next
        
        '設(shè)定工作軸能見度
        For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
        oWorkAxis.Visible = False
3 a: j9 t' T3 V2 ?        Next
        
! |5 R1 @$ [3 i; ?        '設(shè)定工作點可見性
+ h$ {/ l  O/ r/ H        For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
7 C; U$ a) ]  L/ X# {5 j4 T: _" J, ~        Next
' _* i8 ], o/ {. _, N  \
' @* [, V( J) j9 X8 ]2 T6 ?3 a' S* P        '設(shè)置iproperty在保存時使用ISO視圖
5 _+ E4 X/ N6 f2 N8 D        oDoc.SetThumbnailSaveOption _
+ _- Y$ g# f" V: o/ k+ S        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
) D; q7 a) ^  A1 v, G% i6 }        
, }4 C: g( P. W3 _6 T+ `" z, q        '嘗試保存
        Try
        oDoc.Save
$ W7 }/ O& d. {$ j5 L" y& n( k- R        Catch
3 n; l/ C# R" f. I6 l4 U        '捕獲錯誤而不做任何事情
' L. H4 d: d' z8 \        End Try
        
/ S# w- }; N  q) y        '關(guān)閉文件
        oDoc.Close
Next
AA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
. @+ t* V+ h) l) A4 M: ^        Next
2 K, f  C9 q5 ]7 H3 c. ~/ L        
& x/ ~1 O7 a% Y$ T  p        '設(shè)置工作平面能見度
8 [0 ?; p* u& P  d7 f! C; U5 u        For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
, [# f4 \" X8 [" U" }2 p        oWorkPlane.Visible = False
        Next
        
& C: c8 ?5 N) @/ ?4 z, X3 D3 K        '設(shè)定工作軸能見度
        For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
: c7 ]( W1 I8 ^3 {! Q        oWorkAxis.Visible = False
        Next
  L# _2 H  ~2 E        
5 D/ ?9 m" Y. }7 s) ^5 I& o8 G        '設(shè)定工作點可見性
3 ?  ^/ ^9 w6 `& a5 r        For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
- ~7 ^" w' R0 U6 Q5 U        Next

        '設(shè)置iproperty在保存時使用ISO視圖
; b8 L' S6 H7 E1 L* R5 X! E        ooDoc.SetThumbnailSaveOption _
        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
1 L/ i' a: H2 X; n- |5 m        '嘗試保存
        Try
        ooDoc.Save
5 N7 z" Q- {" Q  p% x        Catch
        '捕獲錯誤而不做任何事情
1 o+ i5 x7 g  u* B; n; X3 i, Z        End Try
! z5 J8 C2 J  j4 p$ N        
% G" t/ L  H9 T! i        '關(guān)閉文件
$ x( ]$ G9 C- [, s. |'        ooDoc.Close
2 G' ^. H! \( ?5 v1 z$ m
'改回原來的方案
ThisApplication.ColorSchemes.Item(oColorScheme).Activate
* T( u, W- R- ~! j- p8 y8 s' h
6 j' w& B0 G( Z'改變回原來的背景地面類型
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType
6 ?6 Z1 @+ H! s0 O6 o