inventor BOM表縮略圖

智周·未來

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

: _! j8 o6 S6 F& w     但是，每次保存零件前都要更改背景色非常的麻煩，若是不去更改背景色，就一直使用純白色的背景色，眼睛會很疲勞。
     求教各位老師，能不能在任意背景色下保存的零件，導出到BOM表后的縮略圖仍然是無底色的，要怎么設置呢？

做鋼的

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

遠祥

在首選項里面設置一下吧

艾知道人

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

艾知道人

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

艾知道人

解決縮略圖背景的ILOGIC文件。百度網盤鏈接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg
0 J5 g: {7 Z* R! G) d9 O* j2 j6 y( N提取碼：asdf

艾知道人

樓下的網盤鏈接如失效，請復制以下ILOGIC代碼。
; C( c1 y. S+ y5 J8 R'thanks for Autodesk rocky God giving me help!    The code comes from the official forum of Autodesk in the United States，by Curtis_W
4 }# Q) g. ?; {; t; V( p  Y
'獲取當前的顏色方案名稱
# B  h4 U6 ~. F- M+ j) koColorScheme = ThisApplication.ActiveColorScheme.Name

/ s  d) {# }) a9 J0 q7 j'獲取當前配色方案背景類型
; I( B6 D0 s1 M' U2 Q: T3 d6 AoBackGroundType = ThisApplication.ColorSchemes.BackgroundType

1 S; g5 w" }' |: V" v1 y: o'更改為演示文稿(白色背景)
ThisApplication.ColorSchemes.Item("表達視圖").Activate
' D5 \% R) n$ ]; i- B1 T% [
( ?; b# N  _& y/ ]6 j'設置為使用一種顏色背景類型
* M, c0 H, _7 m! {( CThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
Dim ooDoc=ThisDoc.Document
6 ^) N* o  K. g! d. o- K0 {0 U5 rIf ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
8 m3 I' n6 K+ y& J5 _: d3 aDim oAsmDoc As AssemblyDocument
( A- B# N& J* {. woAsmDoc = ThisApplication.ActiveDocument
; O! x4 X7 f* n9 `. qDim oDoc As Document
Dim oRefFile As FileDescriptor
( U1 }) o# H, [) P" s* g8 N: r% h: g( g

For Each oDoc In oAsmDoc.AllReferencedDocuments
        ThisApplication.Documents.Open(oDoc.FullFileName, True)  
" N; p9 g) ^& Q6 X        
# m0 R: h) X1 z! V  _/ ]1 a$ e        For Each oSketch In oDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
        Next
) C/ t. K/ v! a  p  j- A        
' E0 m2 Z2 w: Y- S3 u) ~. y        '設置工作平面能見度
7 `% S2 P0 `1 G' O# x        For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
5 i* _; T/ Z2 Y  M        Next
        
        '設定工作軸能見度
        For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
        oWorkAxis.Visible = False
, S# S; C" q; v        Next
        
        '設定工作點可見性
        For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
$ f. D3 V4 P# _1 N# G& Q        Next
* c9 [. i2 x4 e3 E7 Y
* L- m1 K( s4 j6 D0 U        '設置iproperty在保存時使用ISO視圖
        oDoc.SetThumbnailSaveOption _
, Q: k! Q* X* [) H        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
) f; f9 a) O- q7 }& M4 C$ Y        
        '嘗試保存
        Try
        oDoc.Save
/ U" D3 Q& |" W. M5 V2 @        Catch
        '捕獲錯誤而不做任何事情
        End Try
        
/ r. Z9 ~+ t0 V$ _  F        '關閉文件
% U4 Z1 C# D6 ~. H        oDoc.Close
9 D8 ?3 f; i2 N* h+ k7 A# ZNext
AA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
: R; A' Q7 d+ I. `- U; V        Next
        
& k7 L7 V* p  Y" e/ Y        '設置工作平面能見度
        For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
        Next
$ @2 I, ~# r5 o3 b' ?        
* B+ N6 z- Q( w4 \- g        '設定工作軸能見度
        For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
! W6 ?1 p7 H7 \3 C4 Z        oWorkAxis.Visible = False
        Next
        
        '設定工作點可見性
+ l6 ^2 m" A/ O- F( h1 s) ^        For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
        Next
& _/ s4 y# S* s! d- @( |4 j
        '設置iproperty在保存時使用ISO視圖
        ooDoc.SetThumbnailSaveOption _
        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
* F) E( p+ @' o" f7 ^/ y        '嘗試保存
8 L( N7 i+ a# }' G  o2 ]        Try
        ooDoc.Save
        Catch
, z4 l8 \( E' Z        '捕獲錯誤而不做任何事情
        End Try
8 [3 V9 ?: |4 p9 d% X8 m& h        
        '關閉文件
0 V+ s  @- b. u( o* s5 I'        ooDoc.Close
* }8 h4 a1 t/ W6 e/ {2 g5 n8 R
'改回原來的方案
) w4 ^( S- N6 ~3 M/ YThisApplication.ColorSchemes.Item(oColorScheme).Activate
/ w& W5 f/ N* e% Y0 s: S+ ^
'改變回原來的背景地面類型
5 B2 I3 u" d; r. [+ Z& n2 |ThisApplication.ColorSchemes.BackgroundType = oBackGroundType
. @7 x4 L: t/ ?, E5 u