inventor BOM表缩略图

智周·未来

用inventor自带的BOM表导出的物料BOM表，里面有一栏是零件的缩略图，缩略图的背景色是零件最后一次保存的底色，在实际打印出来后，有浅灰色的底色，零件的缩略图会相对模糊，在最后一次保存前将背景色调成纯白色再保存，打印出来的缩略图就没有了底色了，零件图会显得很清晰。
; f& w" ~: N- Q; z) |: r+ N
但是，每次保存零件前都要更改背景色非常的麻烦，若是不去更改背景色，就一直使用纯白色的背景色，眼睛会很疲劳。
求教各位老师，能不能在任意背景色下保存的零件，导出到BOM表后的缩略图仍然是无底色的，要怎么设置呢？

艾知道人

楼下的网盘链接如失效，请复制以下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
; R! z* x W. k2 V0 q! C& y
- f W! r% j9 @: g/ Y8 i4 p'获取当前的颜色方案名称
oColorScheme = ThisApplication.ActiveColorScheme.Name
7 A9 j& S6 ?( |7 G! q
'获取当前配色方案背景类型
* V0 d( v/ W9 X) @oBackGroundType = ThisApplication.ColorSchemes.BackgroundType

'更改为演示文稿(白色背景)
I. u# e# A' ~+ C2 @7 M8 d O' MThisApplication.ColorSchemes.Item("表达视图").Activate

'设置为使用一种颜色背景类型
ThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
, B% v2 `5 s6 h! F/ [3 v; vDim ooDoc=ThisDoc.Document
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
$ w+ C+ I1 E" g6 g8 |5 j5 E1 XDim oDoc As Document
Dim oRefFile As FileDescriptor

& j e! P" m3 w8 c6 l+ \
8 c! _" @6 Q$ i) k( ^For Each oDoc In oAsmDoc.AllReferencedDocuments
) Y S- `+ U# Y0 c7 W; yThisApplication.Documents.Open(oDoc.FullFileName, True)
: w/ m5 L2 V$ [) S+ Z2 l
For Each oSketch In oDoc.ComponentDefinition.Sketches
oSketch.Visible = False
- N" w& u( T) A& s. rNext

$ `: |2 I K! ^! F3 S% u8 Q$ Y6 Z'设置工作平面能见度
1 Z/ b* u$ V& V1 Z: {+ eFor Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
# f0 g s/ M$ K# f: c, j! b2 {$ {oWorkPlane.Visible = False
Next
% |9 q9 L% q+ _( n2 Y# o( o
& D9 g3 P2 t; E'设定工作轴能见度
For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
oWorkAxis.Visible = False
Next

'设定工作点可见性
& k+ J- T) P4 ^; \1 F, RFor Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
oWorkPoint.Visible = False
* _2 S/ ]# x' H7 f( iNext
5 X8 {9 u& K: }. Z( E/ N
5 X9 v* e4 g* @( T- Y'设置iproperty在保存时使用ISO视图
# O4 S5 n: Z0 S7 k2 OoDoc.SetThumbnailSaveOption _
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)

'尝试保存
Try
: p$ q6 i4 l5 O! j. BoDoc.Save
, I7 K) O9 w' V! HCatch
'捕获错误而不做任何事情
% ~; U' ]1 e3 U) L0 gEnd Try
% K( o$ K( v( H5 t, v& o8 N
'关闭文件
oDoc.Close
4 ^+ B7 Z6 H' R ]Next
1 U( }* M1 ~" {$ _% rAA:For Each oSketch In ooDoc.ComponentDefinition.Sketches
oSketch.Visible = False
9 c- o. A7 q. r- ~# \) sNext
1 a- F/ q+ C1 X3 H% C* q
'设置工作平面能见度
For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
3 ], C. } E: doWorkPlane.Visible = False
8 C5 @7 X/ j3 u! m4 v( V7 mNext

2 F" E7 K" L' M( o'设定工作轴能见度
2 B& @" b {1 C. V* F1 t3 sFor Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
* _6 b: \2 L; F RoWorkAxis.Visible = False
Next

& _3 k+ S5 t, z- T" n x'设定工作点可见性
For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
& D! [3 U9 W+ f0 Q& s$ s* p5 @oWorkPoint.Visible = False
Next
, D9 W/ D, q+ g: x" [
'设置iproperty在保存时使用ISO视图
, v3 ~4 J% M# {4 OooDoc.SetThumbnailSaveOption _
' M3 o$ D" N" m(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
& o, C1 ^) ]3 c2 O
+ o3 l5 H# y3 J- D" r'尝试保存
* s+ }- t+ S4 T& ^/ ^Try
ooDoc.Save
Catch
5 @' @' g5 g# j, r- B# ]5 U$ t% M'捕获错误而不做任何事情
End Try

, G1 P1 ~' _4 r0 g0 i'关闭文件
' ooDoc.Close
9 N/ d6 P% t# ~: g/ U( N+ x- W7 l- f
'改回原来的方案
ThisApplication.ColorSchemes.Item(oColorScheme).Activate

'改变回原来的背景地面类型
" M* j' p& ^4 D1 k: tThisApplication.ColorSchemes.BackgroundType = oBackGroundType
% v8 m, h3 u* U2 v3 M

艾知道人

解决缩略图背景的ILOGIC文件。百度网盘链接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg
提取码：asdf

艾知道人

我已找到解决办法，用ilogic，明天有空传上来

艾知道人

楼主问题解决了吗？我也遇到这个麻烦。

远祥

在首选项里面设置一下吧

做钢的

所以你可以单独保存一个装配文件，专门用来打印bom表的，这份装配文件的背景色设置成白色。以后有修改就覆盖这份文件，这不就快了吗