inventor BOM表缩略图

智周·未来

用inventor自带的BOM表导出的物料BOM表，里面有一栏是零件的缩略图，缩略图的背景色是零件最后一次保存的底色，在实际打印出来后，有浅灰色的底色，零件的缩略图会相对模糊，在最后一次保存前将背景色调成纯白色再保存，打印出来的缩略图就没有了底色了，零件图会显得很清晰。

* [- U1 h# K5 j$ A' Q但是，每次保存零件前都要更改背景色非常的麻烦，若是不去更改背景色，就一直使用纯白色的背景色，眼睛会很疲劳。
) u7 v2 x5 J# u6 ~求教各位老师，能不能在任意背景色下保存的零件，导出到BOM表后的缩略图仍然是无底色的，要怎么设置呢？
; ]. I. o x% g

做钢的

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

远祥

在首选项里面设置一下吧

艾知道人

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

艾知道人

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

艾知道人

解决缩略图背景的ILOGIC文件。百度网盘链接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg
9 r4 B5 ?7 X" D1 c! M提取码：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

'获取当前的颜色方案名称
) U+ f/ y1 o) g% @2 {3 E: ]9 o; JoColorScheme = ThisApplication.ActiveColorScheme.Name

3 w7 S1 b( I; S'获取当前配色方案背景类型
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType

p- \3 U; W% M: }% I'更改为演示文稿(白色背景)
ThisApplication.ColorSchemes.Item("表达视图").Activate
# @7 ~, x1 f! G* u
'设置为使用一种颜色背景类型
. X- I/ |- d6 I6 GThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
7 A3 ~; R- B3 s, G- r1 TDim ooDoc=ThisDoc.Document
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
Dim oDoc As Document
Dim oRefFile As FileDescriptor
: ]7 `6 T( l' e/ W5 u

For Each oDoc In oAsmDoc.AllReferencedDocuments
; z4 r" L$ x! n9 _: L* \3 IThisApplication.Documents.Open(oDoc.FullFileName, True)
7 F2 ]$ W# [% x! j0 n
! j" F9 b9 s/ n) c _! h" t+ KFor Each oSketch In oDoc.ComponentDefinition.Sketches
$ F4 \* [5 D9 O$ N! KoSketch.Visible = False
3 r" P5 I9 a/ k$ cNext
# W/ l% m/ G- y$ b; V; F) [7 v! j
+ a4 A6 y1 }% J# Z' d) t H'设置工作平面能见度
For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
oWorkPlane.Visible = False
* I7 o. i4 S7 @0 o3 e7 ~Next
$ o7 c' B" ~9 ~$ K1 P
* q# P+ [7 \/ @% l3 U'设定工作轴能见度
& _: C0 W" A$ lFor Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
% t2 W! U) Q( ?! { ]0 v+ QoWorkAxis.Visible = False
Next
# m# _# ^. f! R0 j" R6 j) D4 K
5 l' f1 P# c, d/ B% L# e# b( S'设定工作点可见性
% m0 F! C" K0 K5 e. K4 |, {1 \For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
# q3 R; J. b/ i; `# o" ~oWorkPoint.Visible = False
_7 r7 @; B5 g5 ~7 ~Next

" p9 ]% f& Z, i, w- c" b6 f'设置iproperty在保存时使用ISO视图
oDoc.SetThumbnailSaveOption _
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)

2 L) d) h: ]$ V8 [- B; w x8 G'尝试保存
5 _4 [0 L- J& S1 K- Q: JTry
, [9 F5 P( d1 s# _. Y0 KoDoc.Save
Catch
7 E: C5 n9 M: y0 y5 `; K+ h) y9 C'捕获错误而不做任何事情
End Try
% y( n P8 E1 P u ~8 E
'关闭文件
5 H2 I; [5 U0 Y" D0 M+ a+ ]oDoc.Close
# X) d0 G# F- D1 @( @Next
AA:For Each oSketch In ooDoc.ComponentDefinition.Sketches
oSketch.Visible = False
Next
9 ^& l* L) Z. s# Z) [ X
'设置工作平面能见度
For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
, I* h8 |, o5 ?) d. X: CoWorkPlane.Visible = False
Next

'设定工作轴能见度
2 z4 x" I* t5 f1 l( I* l h2 \For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
$ D0 Q; ~' U6 z% Y roWorkAxis.Visible = False
Next
1 K9 s% d6 t. D1 |5 L: P1 u
'设定工作点可见性
For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
% f0 j' B' w4 X8 N, {/ i& a: FoWorkPoint.Visible = False
' U' O' C @: H/ `% Y5 [8 ~Next

'设置iproperty在保存时使用ISO视图
ooDoc.SetThumbnailSaveOption _
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)

/ y. U0 r1 z8 D5 y$ A'尝试保存
1 C K, _% f1 dTry
ooDoc.Save
( u* U( q* q- |# c8 ` X! w$ g* fCatch
'捕获错误而不做任何事情
End Try
( h: G5 u& V( [; D8 c
'关闭文件
' ooDoc.Close

'改回原来的方案
ThisApplication.ColorSchemes.Item(oColorScheme).Activate

'改变回原来的背景地面类型
% P* g/ ?, s: r) o- ?3 }ThisApplication.ColorSchemes.BackgroundType = oBackGroundType
9 M. X B0 v- s7 q) Q. Z; s) u* s