inventor BOM表縮略圖

智周·未來

      用inventor自帶的BOM表導出的物料BOM表,，里面有一欄是零件的縮略圖,，縮略圖的背景色是零件最后一次保存的底色,，在實際打印出來后,，有淺灰色的底色,，零件的縮略圖會相對模糊,，在最后一次保存前將背景色調(diào)成純白色再保存,，打印出來的縮略圖就沒有了底色了,，零件圖會顯得很清晰。
; L4 H" Y$ I" F
     但是,，每次保存零件前都要更改背景色非常的麻煩,，若是不去更改背景色，就一直使用純白色的背景色,，眼睛會很疲勞,。
     求教各位老師，能不能在任意背景色下保存的零件,，導出到BOM表后的縮略圖仍然是無底色的,，要怎么設置呢？
5 M  Q3 Q) F3 L. W! p$ x

做鋼的

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

遠祥

在首選項里面設置一下吧

艾知道人

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

艾知道人

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

艾知道人

解決縮略圖背景的ILOGIC文件,。百度網(wǎng)盤鏈接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg
提取碼：asdf

艾知道人

樓下的網(wǎng)盤鏈接如失效，請復制以下ILOGIC代碼,。
'thanks for Autodesk rocky God giving me help!    The code comes from the official forum of Autodesk in the United States,，by Curtis_W

'獲取當前的顏色方案名稱
  J2 ]1 g) S# W; h8 X: noColorScheme = ThisApplication.ActiveColorScheme.Name
0 F$ x1 x+ r; j  E
1 F* v8 s! l9 U9 Q, X+ M" w: E'獲取當前配色方案背景類型
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType

'更改為演示文稿(白色背景)
ThisApplication.ColorSchemes.Item("表達視圖").Activate

3 C, t8 z( R8 g, L1 s4 Z3 @'設置為使用一種顏色背景類型
5 L2 d) L! p9 Q! bThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
2 z$ W$ X: y. n" n. k0 {Dim ooDoc=ThisDoc.Document
4 d& Q- Q' L+ u) H9 |* SIf ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
Dim oAsmDoc As AssemblyDocument
' x) s, B5 ?5 `1 uoAsmDoc = ThisApplication.ActiveDocument
1 X& K; @+ ?( E9 p+ F: J# S2 Y! q8 b* MDim oDoc As Document
Dim oRefFile As FileDescriptor
! V, z( R( f" {) [) j4 t# f
, a- k! ]) Q# i4 F
For Each oDoc In oAsmDoc.AllReferencedDocuments
        ThisApplication.Documents.Open(oDoc.FullFileName, True)  
        
        For Each oSketch In oDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
        Next
/ U- x# F2 e2 V4 M$ V        
+ {) G% i, A( P) H" t& C9 Q        '設置工作平面能見度
        For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
3 d# t, W, q. r/ U- c6 _        oWorkPlane.Visible = False
        Next
        
9 d* X$ g5 U6 n: S) X6 x        '設定工作軸能見度
        For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
, x/ L) B/ W  O  B& K' B        oWorkAxis.Visible = False
! T, J3 r, v* p! o        Next
4 o' D; e0 Y" D        
$ I( f) }+ u5 @1 c        '設定工作點可見性
        For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
        Next

        '設置iproperty在保存時使用ISO視圖
: L8 n2 o; E0 u( r3 t+ X        oDoc.SetThumbnailSaveOption _
        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
" i, u2 z1 B- F        '嘗試保存
        Try
        oDoc.Save
        Catch
        '捕獲錯誤而不做任何事情
        End Try
        
        '關閉文件
        oDoc.Close
Next
) D6 q& d  A4 L  MAA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
7 a9 v5 f/ {2 B1 h9 s                oSketch.Visible = False
! a' b  @  B4 O: ~! s# w4 Z        Next
        
        '設置工作平面能見度
        For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
2 d9 T/ E/ q6 A& v$ G        Next
; y. I* e: [& D* c3 Z        
/ P  x+ m# w% k6 Z+ I        '設定工作軸能見度
8 B6 T, L" ?* F8 j        For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
        oWorkAxis.Visible = False
2 y) g  |% v' ~+ ]* H# J        Next
        
+ i  B4 d' U4 L: u% B4 D$ e9 B* s        '設定工作點可見性
: s% X: k: n8 l. b+ _        For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
        Next
0 J$ s7 ^; `; x9 U
        '設置iproperty在保存時使用ISO視圖
3 H' {, M7 K7 j* [7 j; i8 }$ y) v        ooDoc.SetThumbnailSaveOption _
4 u4 ?8 R- ]  i) ?        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
% p0 f# }% ~  s$ p- B" R        
8 s( Y& L) h3 b5 v        '嘗試保存
: Q7 c# l8 @  J( S        Try
; y/ [( z* y# ^7 Q. ^        ooDoc.Save
2 G1 j' R, g! [4 X8 e  J! K5 p$ s        Catch
        '捕獲錯誤而不做任何事情
        End Try
3 }4 g, z# Q$ o3 ?6 I        
        '關閉文件
'        ooDoc.Close

/ i8 A% v" M" f* c'改回原來的方案
ThisApplication.ColorSchemes.Item(oColorScheme).Activate
- U9 ^7 R; c: f* q
$ d4 P; \( k. L9 C, r9 T'改變回原來的背景地面類型
+ ?, g) K2 s3 {( X8 M6 ^5 bThisApplication.ColorSchemes.BackgroundType = oBackGroundType