inventor BOM表縮略圖

智周·未來

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

     但是，每次保存零件前都要更改背景色非常的麻煩,，若是不去更改背景色,，就一直使用純白色的背景色，眼睛會很疲勞,。
, p& P% X' e+ L" H& b, k     求教各位老師,，能不能在任意背景色下保存的零件，導出到BOM表后的縮略圖仍然是無底色的,，要怎么設置呢,？
8 D7 ~, t- X$ H! X! A

做鋼的

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

遠祥

在首選項里面設置一下吧

艾知道人

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

艾知道人

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

艾知道人

解決縮略圖背景的ILOGIC文件,。百度網(wǎng)盤鏈接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg
3 E$ h8 V) M3 @( I2 W; b提取碼：asdf

艾知道人

樓下的網(wǎng)盤鏈接如失效，請復制以下ILOGIC代碼,。
: d$ T/ `' u/ i" z2 Y% D* l8 j9 `'thanks for Autodesk rocky God giving me help!    The code comes from the official forum of Autodesk in the United States,，by Curtis_W
; c; U% N; z* N5 c" B5 M+ v8 Z8 h
'獲取當前的顏色方案名稱
( k# F# J3 s7 n* a0 C7 @5 U- |oColorScheme = ThisApplication.ActiveColorScheme.Name

0 |7 [- b1 q% S8 C'獲取當前配色方案背景類型
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType

7 i7 b8 }0 @/ n' K6 m'更改為演示文稿(白色背景)
ThisApplication.ColorSchemes.Item("表達視圖").Activate
, c% L8 T4 D0 ^7 v8 A# U# ?
$ Y+ `, d* u( y; L; K( n, Z$ l. W'設置為使用一種顏色背景類型
2 ~4 B1 Z0 S+ Q1 z1 \9 NThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
1 F- u' C! `( ?4 G9 dDim ooDoc=ThisDoc.Document
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
3 d3 `7 \( L9 e: l* c/ gDim oDoc As Document
Dim oRefFile As FileDescriptor


For Each oDoc In oAsmDoc.AllReferencedDocuments
        ThisApplication.Documents.Open(oDoc.FullFileName, True)  
        
: }6 {" j6 B. @  W        For Each oSketch In oDoc.ComponentDefinition​.Sketches
; j* s* h0 P1 ]1 z7 I                oSketch.Visible = False
( _; v6 p7 x; X* t1 {! z) G4 d. [        Next
        
, |+ A3 b2 s" m' j: i        '設置工作平面能見度
        For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
, L- _% q7 n% n0 F        oWorkPlane.Visible = False
        Next
        
. s: R% A2 ~& Q) v( g3 |        '設定工作軸能見度
2 u! D+ m' x3 ]3 ~) {- X3 K        For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
        oWorkAxis.Visible = False
/ a, H6 J9 ^. K; F        Next
        
        '設定工作點可見性
        For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = False
/ Z, U6 H6 c( r; d/ G        Next
# P. w, L1 W- e, Y2 E' p
0 ^! T6 j9 }9 T! ]/ B' n6 s9 e) Z        '設置iproperty在保存時使用ISO視圖
" `9 V3 p8 _+ T- E- V        oDoc.SetThumbnailSaveOption _
        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
2 b; B2 h* l' ~! V  Z) H' q        
        '嘗試保存
: s! o( w' x  D( `9 ]* s( T+ h        Try
4 h) Z( l% t2 C$ g        oDoc.Save
; Z, X5 k; C) H        Catch
# O! _* r6 N# k5 a5 c- d        '捕獲錯誤而不做任何事情
        End Try
, a& E2 |9 `% h" w6 {1 j/ ?        
1 p- ]& {- y, }  q+ |/ e: ]6 A0 B& |/ Y        '關(guān)閉文件
1 n4 m0 k7 j5 k; f+ m        oDoc.Close
Next
0 a6 M. J; w6 Q' q- W  W/ hAA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
1 r# m: o: h( F                oSketch.Visible = False
        Next
        
4 }3 E6 }% e, a3 D" E* l        '設置工作平面能見度
" ?, d2 V0 A1 I( t) S, b        For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
& \. f7 O  P2 d6 X& p        oWorkPlane.Visible = False
& V1 g. z9 i* @( U5 F        Next
        
        '設定工作軸能見度
        For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
        oWorkAxis.Visible = False
) i3 |/ x9 f7 ~        Next
        
# D8 O4 f( p2 Y* B7 u; n) U        '設定工作點可見性
( h4 {' ?! K$ U        For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
/ K; k- M* U( \, u        oWorkPoint.Visible = False
& I) d! ?8 c- t$ Y- J        Next

7 ~& a: U9 d7 B  b# P        '設置iproperty在保存時使用ISO視圖
        ooDoc.SetThumbnailSaveOption _
) ]5 _' }' F, ~; e' \: y! G, ~% b9 k7 L        (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
        
/ F- D( |; @; n0 F$ z1 I        '嘗試保存
        Try
) y/ |4 h. J/ ?        ooDoc.Save
        Catch
        '捕獲錯誤而不做任何事情
- U. Y$ S# S5 W0 L        End Try
        
4 B+ J$ _% O7 t# E2 t        '關(guān)閉文件
4 n) I7 r0 j$ \5 T4 C3 V'        ooDoc.Close

'改回原來的方案
ThisApplication.ColorSchemes.Item(oColorScheme).Activate
5 O- |) c" q( {
! V5 ]5 P' O6 M* A9 K/ m6 V2 E'改變回原來的背景地面類型
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType