inventor BOM表縮略圖

智周·未來

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

     但是，每次保存零件前都要更改背景色非常的麻煩，若是不去更改背景色，就一直使用純白色的背景色，眼睛會很疲勞。
; y1 S  h# K! l3 y9 ~, K! i9 \     求教各位老師，能不能在任意背景色下保存的零件，導出到BOM表后的縮略圖仍然是無底色的，要怎么設置呢？

做鋼的

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

遠祥

在首選項里面設置一下吧

艾知道人

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

艾知道人

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

艾知道人

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

艾知道人

樓下的網盤鏈接如失效，請復制以下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

6 H* Y' }$ S# [: j'獲取當前的顏色方案名稱
6 I8 h, N. m7 Q- foColorScheme = ThisApplication.ActiveColorScheme.Name
( V7 [% D7 ^5 D0 I# k1 q: s+ E
+ D! Q$ o* h/ I4 F/ d'獲取當前配色方案背景類型
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType
& g2 W* e* w  b7 C/ a( {3 L7 v7 W
'更改為演示文稿(白色背景)
ThisApplication.ColorSchemes.Item("表達視圖").Activate
8 e! m. K* A6 S
1 m6 [7 {' `" ?, c2 o8 N) W'設置為使用一種顏色背景類型
) e/ }, A; ]1 p5 `; wThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
Dim ooDoc=ThisDoc.Document
/ N* h: B) A" s: w' ]. K# |If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
Dim oDoc As Document
Dim oRefFile As FileDescriptor

$ {! n# J- F( L
8 f+ ?$ Y2 P5 a5 R! XFor Each oDoc In oAsmDoc.AllReferencedDocuments
% V2 s6 ]7 Q" R% V4 P        ThisApplication.Documents.Open(oDoc.FullFileName, True)  
        
        For Each oSketch In oDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
2 }5 G% U& K; R$ x8 ^) Z3 d6 K        Next
1 n5 u9 ?! Q, r        
        '設置工作平面能見度
# p  J; c1 w; c2 @# M4 M+ i' a        For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
/ s3 a6 K2 `' ~5 Z$ Z3 t        Next
        
        '設定工作軸能見度
        For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
3 e! p4 s# b+ R# K' p; i        oWorkAxis.Visible = False
        Next
8 R2 D7 ~0 J" x, V: f& e0 W, K; J: R        
        '設定工作點可見性
        For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
        Next
: x& N4 K% x: \2 ]+ f6 v# v; m
- V7 D! J1 X0 d        '設置iproperty在保存時使用ISO視圖
        oDoc.SetThumbnailSaveOption _
* O  j5 |; {/ @- f        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
# A4 F, s9 V" D6 S4 b        '嘗試保存
        Try
! x8 I0 v' L& {: w% d6 F1 n- S! a. [5 Y        oDoc.Save
7 C6 g* X7 u1 B% F0 C7 ~$ o        Catch
3 r. |% A3 I) H+ q        '捕獲錯誤而不做任何事情
        End Try
        
1 s- ?" S7 m, U' m; e7 u7 j3 _# C        '關閉文件
/ k3 O3 {5 @7 x8 l/ w' `4 B8 g        oDoc.Close
Next
8 _6 k3 _% A0 _AA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
                oSketch.Visible = False
  Q7 l8 N$ L8 g        Next
$ w. U5 C8 i! M% F0 k* j! \        
        '設置工作平面能見度
. _; D& f  Q- y, C. ?* A$ Y3 K/ o( X        For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = False
        Next
        
% t+ F! A. E, h" a+ N  q        '設定工作軸能見度
& G, c' T, }. M/ W+ c        For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
        oWorkAxis.Visible = False
        Next
        
        '設定工作點可見性
        For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
: N! U2 r* U  v        oWorkPoint.Visible = False
  J/ F2 ?& Z! k0 [* }7 {        Next
3 i& u+ ^5 t, \8 J4 p& i4 e
7 v2 L$ ?* V$ d3 K9 ~) _, P' M        '設置iproperty在保存時使用ISO視圖
* A, T$ w. `( u' k        ooDoc.SetThumbnailSaveOption _
2 w2 n; u4 }6 g& ]" s5 n' B        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
- ~0 z; j8 P& T- s; i        '嘗試保存
        Try
        ooDoc.Save
6 F5 w( y2 u  a  `. f        Catch
        '捕獲錯誤而不做任何事情
        End Try
% g7 n; y/ x! n: @+ {# o: N        
' R) N9 Y: L* y& k3 e, e        '關閉文件
# a  f& l  X4 _! ~2 I! p# v'        ooDoc.Close
% j4 y( ?8 }& I  _& E% X) X
" \" B2 [  t& _5 M* r' h3 ]& C( U- E'改回原來的方案
ThisApplication.ColorSchemes.Item(oColorScheme).Activate

'改變回原來的背景地面類型
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType