m6 Y' ]" g; F9 X0 q 但是，每次保存零件前都要更改背景色非常的麻煩，若是不去更改背景色，就一直使用純白色的背景色，眼睛會很疲勞。9 L" t* V% x6 Z$ ~
求教各位老師，能不能在任意背景色下保存的零件，導出到BOM表后的縮略圖仍然是無底色的，要怎么設置呢？ 0 T% {6 b8 ~0 b1 p作者: 做鋼的 時間: 2021-12-3 16:28
所以你可以單獨保存一個裝配文件，專門用來打印bom表的，這份裝配文件的背景色設置成白色。以后有修改就覆蓋這份文件，這不就快了嗎作者: 遠祥 時間: 2021-12-7 18:21
在首選項里面設置一下吧作者: 艾知道人 時間: 2023-3-5 17:43
樓主問題解決了嗎？我也遇到這個麻煩。作者: 艾知道人 時間: 2023-3-6 21:21
我已找到解決辦法，用ilogic，明天有空傳上來作者: 艾知道人 時間: 2023-3-7 11:09
解決縮略圖背景的ILOGIC文件。百度網盤鏈接：https://pan.baidu.com/s/1miOcXiE_5psz5jBtBQCtNg 2 z4 p% u! _3 ^( F% d* Q
提取碼：asdf作者: 艾知道人 時間: 2023-3-7 11:10
樓下的網盤鏈接如失效，請復制以下ILOGIC代碼。1 c( v) d% }, c# u3 M1 a
'thanks for Autodesk rocky God giving me help! The code comes from the official forum of Autodesk in the United States，by Curtis_W & T0 {; L+ K, o+ [+ g! { + Y+ _" B2 ~$ M6 L4 A, K2 C'獲取當前的顏色方案名稱 $ Z/ Z8 W0 H3 `2 UoColorScheme = ThisApplication.ActiveColorScheme.Name D! x" q) t6 }: O" z; e4 s
7 m( N V/ O, }' H- W, R
'獲取當前配色方案背景類型: N c5 J' n9 O- W
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType% H8 S6 J! n. H% s# K b" g" P( e
* v6 {0 B) Y( ?
'更改為演示文稿(白色背景)" t, S) V2 U( j) W d
ThisApplication.ColorSchemes.Item("表達視圖").Activate+ G) y+ ?! ~1 @1 E2 o8 J4 l& \
: [8 Z2 [( a8 P! k0 M'設置為使用一種顏色背景類型 p+ l; y' \+ D- `* u9 C9 R2 QThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType 2 e& S, @; L/ MDim ooDoc=ThisDoc.Document# p& U% @ }& a
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA1 c# G% i9 E8 S. ~
Dim oAsmDoc As AssemblyDocument4 ~$ P8 b8 P. C7 |' e: t: t0 u% Z
oAsmDoc = ThisApplication.ActiveDocument " p: \9 z9 L4 I. IDim oDoc As Document. f. V p. ]$ X# L- `) y: J/ w
Dim oRefFile As FileDescriptor 2 C/ o. A: {; Y+ G9 P3 [1 l% t & M7 H/ s8 a, P5 D) y : k, K3 p% _% UFor Each oDoc In oAsmDoc.AllReferencedDocuments/ j; a8 h- ~6 v
ThisApplication.Documents.Open(oDoc.FullFileName, True) " K/ p4 M& c/ l( C' s5 O 7 V2 r' o! x! _. x For Each oSketch In oDoc.ComponentDefinition​.Sketches2 d& J7 f& [# C% ]2 d3 z& k- ~
oSketch.Visible = False' y8 h" G6 v5 y# S( E+ ~9 I0 K
Next ; o9 |6 m- h& w& u' }7 l ) Q9 e* }# z& ]3 H$ X y '設置工作平面能見度 " Z7 `( F9 B( i& D( M For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes+ f; N8 m8 d$ x( J9 S
oWorkPlane.Visible = False : M6 P! k; |% A( X7 A! d! L! E Next 5 L: I. \# X8 x' _ " l: ?7 g3 k7 D" ?, m6 S3 U, l '設定工作軸能見度 , P/ Z3 | s* v2 [3 h For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes9 U8 m; I* U( e# m; A
oWorkAxis.Visible = False2 b1 G( d! {: s; B' W6 Z/ y
Next % r6 C6 v7 O: |0 I, ~) D 3 D) x1 o0 P& |& Z2 |& ? '設定工作點可見性) }. Q7 D9 u. f z) f
For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints( O7 r: V+ V$ T3 Y
oWorkPoint.Visible = False / V4 \& d8 Y' L7 a8 \9 v' q' C# b Next " w8 E3 H& U9 Z7 u( M, U 7 s- W, p+ X& o" N1 i) X '設置iproperty在保存時使用ISO視圖; N' F% J( W" i( q$ p5 g
oDoc.SetThumbnailSaveOption _$ P/ u4 _- p" a4 Z
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)' b. X! |: \: v1 m4 F# a ]
: ^6 `, t) {' R% p! B8 H5 _ '嘗試保存 6 h# d c1 J6 ?5 l4 Z Try ) ?# Y1 I* x4 p9 B$ r+ m: n oDoc.Save 0 R7 D0 @5 g# l |! c0 k3 }' X! h Catch 0 l; N( @3 b3 j3 u8 ] '捕獲錯誤而不做任何事情 2 V1 i/ S7 A+ b) j$ d' ~ End Try O; `! c6 F2 V
0 P9 v4 W- T) }( P5 S, p
'關閉文件3 R+ P* _2 G, n a; B" ~! a" L9 h
oDoc.Close4 _6 c9 i7 W$ P' g2 g; {
Next * D+ Z- d: B" O) w4 k8 H9 |AA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches- e. B6 v A8 M* z6 B4 C
oSketch.Visible = False' S* u' L' j5 T# C+ v. I8 L! i: T
Next & i" i0 Y1 L1 S6 v% T5 l g( v2 l8 j9 C8 O3 ^! } '設置工作平面能見度 ) |1 a5 t3 T* H' ?" S For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes: d- \! G$ C. S- x* y' `0 t
oWorkPlane.Visible = False4 C4 I9 c8 ^; P, L' O# v6 v& I
Next% b4 y+ G6 P8 X$ G
6 F0 C% F% h4 v4 ?" |6 { '設定工作軸能見度1 W% x3 I& S9 m. ~) J& ?
For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes0 g) F& U$ y& B0 P/ ~, j
oWorkAxis.Visible = False + u% p& h# x9 `# S Next # c( R' H& Z% ?- k / m9 Q8 \4 n7 m0 o4 X
'設定工作點可見性 + ~ F9 E# E) X4 r) y For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints / N% ^6 z$ y, g% ] oWorkPoint.Visible = False3 p+ |" R) P$ U
Next: z7 L0 I& Y' H8 ]/ d' ?7 ]
3 I: Y% K( ~" Z% C) ~" y. F% |
'設置iproperty在保存時使用ISO視圖! `& o" Y9 K% D2 O; F# q/ I
ooDoc.SetThumbnailSaveOption _ : E& i- P, S& Y. H! q0 C (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)3 f# m$ t, a+ P0 i* f0 X: N
) F! d, D+ E$ T, |- j
'嘗試保存# p' C# p# i U9 w5 G8 n
Try# |$ w# y/ k9 N, L& m" _5 K6 B
ooDoc.Save ' A3 Y/ k, _& A& R, ? Catch : }% B& M6 ]" U6 V '捕獲錯誤而不做任何事情4 Z3 _7 z2 Q" @
End Try - U5 D& s7 t9 R+ `5 X' ~! z8 A # {" j* n" q4 _6 c6 w _" n0 ?
'關閉文件, X$ }2 R0 T8 B; e
' ooDoc.Close/ p* B+ v# t2 v1 ]
5 S' ?( f& N! [; }/ R& [' m: Q'改回原來的方案 % p3 ~& s' C: j4 W1 }( e, DThisApplication.ColorSchemes.Item(oColorScheme).Activate 1 |3 b% ?! C* m/ ?, y
8 {/ |9 r; E, F, l. O+ A7 i
'改變回原來的背景地面類型8 S. Y3 U$ k; u: Y" @3 J
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType 7 J4 ` s9 A9 K