樓下的網盤鏈接如失效，請復制以下ILOGIC代碼。
0 P& O: ?, U: @7 A' i: _'thanks for Autodesk rocky God giving me help! The code comes from the official forum of Autodesk in the United States，by Curtis_W
/ t' b3 Q/ f4 v9 V3 Z; c: p$ D# i: ^) i1 F0 a+ V8 r
'獲取當前的顏色方案名稱4 Z9 P) T* n, l6 y
oColorScheme = ThisApplication.ActiveColorScheme.Name7 q+ \! J$ i; v: g2 ^) P& ]
+ O! x, V0 j6 z
'獲取當前配色方案背景類型7 K5 T* V d1 M9 [5 J' |9 A7 s
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType
0 t4 w G6 g( N/ a) _$ _' A2 i" W& K& m8 k' e* H1 x
'更改為演示文稿(白色背景)
* @' m& ?% n4 @& ~* F, aThisApplication.ColorSchemes.Item("表達視圖").Activate
2 k, M+ ] U- y j) S- p: L/ Q
0 U: g7 T! k1 b! \) U$ ^'設置為使用一種顏色背景類型
. {/ h0 @: L1 j1 f/ i! EThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType $ Y6 H1 H9 @' ~, {% _$ W5 b$ J
Dim ooDoc=ThisDoc.Document3 I3 a9 Y |4 L9 W; {3 \: f
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA) L. \' G' K6 j' ~ {" Z8 Y8 w
Dim oAsmDoc As AssemblyDocument( D2 t2 B$ c# F
oAsmDoc = ThisApplication.ActiveDocument+ z) c8 y/ X9 ]; `8 D5 F
Dim oDoc As Document8 i) _1 x. c8 q" V
Dim oRefFile As FileDescriptor/ Z! U1 J0 K8 _6 g
) }$ @6 [. [. ^' ^ |$ Y
3 V6 s$ C4 U. JFor Each oDoc In oAsmDoc.AllReferencedDocuments5 Q# A3 Q, B5 E0 L
ThisApplication.Documents.Open(oDoc.FullFileName, True)
3 J8 f" w# C! K: M, S " w7 W6 D+ A* ^
For Each oSketch In oDoc.ComponentDefinition​.Sketches0 S2 Q- `# ?3 I7 b* V
oSketch.Visible = False3 u3 t. q4 ^7 M, j
Next; I3 q$ {, ]+ s; G) ]' Y
H0 Y6 j0 o4 I9 Y '設置工作平面能見度
3 j- ]3 r2 w3 s. H. ] For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes' r: U+ @- y2 i/ C7 ^$ j. g
oWorkPlane.Visible = False) Q1 v- _/ w/ [5 A* ~, _
Next( }5 `2 {8 S: F5 S: q
, W2 L9 d! u n. f* F9 M& V9 Y
'設定工作軸能見度/ x- F7 q/ k' ^7 E2 x, |9 s$ P5 E& K! { X
For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
2 _6 x) u7 u5 H, Y* ], J oWorkAxis.Visible = False
( @- U$ B: M1 ~/ n Next
/ b8 z3 c! O: ^5 J6 K6 U! E 5 R3 w+ J Z, x$ [! O( @1 z& ~
'設定工作點可見性
. b; A( H) `% `" D! I For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints2 y+ L" x- | C7 s# u; f
oWorkPoint.Visible = False
0 |7 m) I. {# Y& N& Z& c Next# Q: Q. Y4 u2 y: H
d7 O9 V. k' A2 y '設置iproperty在保存時使用ISO視圖
* O- k* N0 u5 J' \( ` oDoc.SetThumbnailSaveOption _. X. r, G/ k K& z; f, j) K- x
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)5 ]* d" n" H/ L0 P" U; `# F
6 c; F9 k+ V2 }, b
'嘗試保存
! O4 N& W5 `& e. O/ H+ S& {" X: C Try
$ c, g: V% \2 U% q' K) q% G: o oDoc.Save
. U2 k# f' v, ]8 ?# V. R& X$ d Catch 6 n4 ?6 y! {# R9 X
'捕獲錯誤而不做任何事情
( F9 X5 I1 V9 X9 F End Try" }2 e& p- K' y
/ H" B* O0 \* R* h '關閉文件
$ y# C* q) ~9 A" U+ f+ C oDoc.Close
9 L( J: `0 T) }6 B5 U1 S7 @Next
0 K) ?% z2 q' Z5 f- m" o# k: K) HAA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
) ]. l- Y% X" X1 A0 \! a/ Y oSketch.Visible = False6 ^; e, A' A% E% ?/ q
Next6 Y0 E; j3 C& t$ C4 r2 r
: ^, d3 b, N! C: ]1 a0 ~: `! h, ~9 F '設置工作平面能見度1 b3 X0 c' ~. s. \) ]9 F% B& N$ `
For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
. C$ `" F: j8 W5 \! |: _; p% e. R oWorkPlane.Visible = False" d; m7 a+ I1 O% ^) o7 O# k
Next
* v" T# z; i2 X4 ?
# {7 U5 ?, u6 x8 _* R- G6 y '設定工作軸能見度
5 ~! p6 v6 a& u6 t. B& } For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes- X& W& x0 m; A ^
oWorkAxis.Visible = False% T2 G" }' X8 P, i
Next$ @/ M0 `( G9 w8 J, \' _
2 N. l. k, o) H; ^, Z
'設定工作點可見性( [, _5 G' M4 ~& V
For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
) ^- I. c! g4 d. h oWorkPoint.Visible = False# `5 @( E- K; K4 }& M1 q+ |
Next
1 w' O4 B6 A. h
" J0 p. f+ C2 ~2 t9 \ g '設置iproperty在保存時使用ISO視圖 k: {+ U6 r; ~, Q
ooDoc.SetThumbnailSaveOption _
, W% r( n! D( R2 p* u (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)* ]- o7 g5 n6 A' n2 H8 V0 }" }! Q0 d
8 g% k2 m0 c C" w6 w
'嘗試保存
' ]& J) Z- } X Try" g+ O$ g7 u' U& [. P! m* T
ooDoc.Save. D. I- n4 r6 c' z" R- z
Catch
7 S. P9 f5 C0 X$ R( \' u0 o '捕獲錯誤而不做任何事情
. K% C8 `, S: R% Z5 |) d End Try5 w% v- ^' C; m: R
0 r; H5 }4 z! O '關閉文件
K% X# @9 a c2 g7 W& l5 x' ooDoc.Close
% o. l7 `! [* X3 b
' a( g0 J! `" x! n# j'改回原來的方案
% _/ D. w n2 T' U0 YThisApplication.ColorSchemes.Item(oColorScheme).Activate
; z+ B1 g( S" Q' m- b- d2 J
5 r6 e( j$ ~- W' a4 W'改變回原來的背景地面類型
' Q1 ]/ Z# i# Y( H, l5 b! VThisApplication.ColorSchemes.BackgroundType = oBackGroundType
5 [$ U8 `% O5 [- o. w/ F6 z- G |
發表于 2021-12-3 08:52:50
QQ好友和群
QQ空間
