樓下的網盤鏈接如失效，請復制以下ILOGIC代碼。
. ~$ n" v9 p. w* Q$ b- T7 s `'thanks for Autodesk rocky God giving me help! The code comes from the official forum of Autodesk in the United States，by Curtis_W- b. Z3 K- e" x2 H& W
) z; B/ B" g$ g+ A" A) E0 d" B+ Z' S'獲取當前的顏色方案名稱
+ c1 I$ j' \) ]' B/ {1 ToColorScheme = ThisApplication.ActiveColorScheme.Name" G* @" D& V0 Q5 h! {7 `$ P
+ [0 U# \5 l( I+ ]- [6 x( F
'獲取當前配色方案背景類型/ B. V, ^2 G5 q( v6 e7 [. U2 B. Y; t
oBackGroundType = ThisApplication.ColorSchemes.BackgroundType
' Y* T* q/ K6 i- q
+ \0 F1 \: w: I'更改為演示文稿(白色背景). { B9 E2 k, M8 j- I
ThisApplication.ColorSchemes.Item("表達視圖").Activate
% B( Y( i: \# n$ z# T7 j- I2 g" H% ^& Q/ F+ n
'設置為使用一種顏色背景類型2 t! Y* X& a2 F% B; d
ThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType - b2 n$ u' h- o8 p' `# q
Dim ooDoc=ThisDoc.Document6 S- u8 s, b9 {: V0 E5 R
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
6 f. |1 j8 Q# t$ B( \( K* G& XDim oAsmDoc As AssemblyDocument2 p6 i7 n, b1 z9 Y
oAsmDoc = ThisApplication.ActiveDocument
" z8 U* P' u J. p! UDim oDoc As Document
5 \" H4 u" }/ a! s' dDim oRefFile As FileDescriptor2 f& v0 x; q% n- k; X# \, m
( ?# j: o- C6 y" d- j5 \ _
1 i) P! b4 Y+ V* z+ C
For Each oDoc In oAsmDoc.AllReferencedDocuments
2 I }6 }/ D/ ~, C2 h ThisApplication.Documents.Open(oDoc.FullFileName, True) 7 s9 m) d- r9 P& A D7 s: q3 U
( V0 q3 `6 N* |* s- S) M; X
For Each oSketch In oDoc.ComponentDefinition​.Sketches% t3 F% s7 x. y: P% f9 E* Y
oSketch.Visible = False
6 O" m, e; y7 P8 X Next
) G, S. S& Q/ k 7 l/ E! M5 m0 Z" F8 h
'設置工作平面能見度- V1 m" @/ a% A( N4 ~# E6 }6 P: t- I& V
For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
8 f3 j4 I+ ^4 S) \" B oWorkPlane.Visible = False
; G/ i% L2 V. L& C0 d/ q( { Next) }! `2 ^- K2 K+ t* p4 G+ j
# d9 {9 V7 k9 o9 R
'設定工作軸能見度
, c$ P% T% z2 f' ~4 m2 [$ G$ Y For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
! ?& p7 j) U0 N/ B6 K oWorkAxis.Visible = False+ Y8 i- w4 J5 e1 w
Next
; j/ l; k' S9 ~9 z
! O$ _8 z. }3 d7 D1 j '設定工作點可見性+ _6 m* X, L, J1 u) A
For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
' e! y# r. n( |* B% x( u oWorkPoint.Visible = False [5 D$ g$ C ]8 o) d" V. P8 t' _
Next& e/ k/ ` N& n7 c/ y7 A
, _ b& z/ |/ J1 Q" I '設置iproperty在保存時使用ISO視圖
9 F( d o3 D2 X7 c2 B0 Q$ G oDoc.SetThumbnailSaveOption _9 B9 d; g2 u3 \( o. \
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)1 D4 ~* |! u0 |/ I1 O3 e
U7 o- L. y8 m. F! c '嘗試保存
. ?: G) Y7 b7 F: k Try
" f: _6 q0 I- H oDoc.Save
7 X, K. O2 [1 p/ a. h7 P Catch $ ]6 A; V8 `1 S: |9 A
'捕獲錯誤而不做任何事情
. d9 C% ]' E( T% P' r2 |, p# N End Try2 C! J5 C) r- q* r/ ]1 B0 Y7 M
% m7 x) v. F. z8 \$ D
'關閉文件0 l: x; p$ P! W* t2 d9 g# U: }' t- M+ N
oDoc.Close; t' q0 g6 ~; i. Z
Next. ?+ q, u: m% s: R; u
AA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches+ ]; U- ]. L5 Z. `; W, }' U
oSketch.Visible = False
5 F# s( b' V# v( Y Next
* V& j- z7 b2 u7 p! L3 ^ 9 c2 Z. e+ L+ V& p
'設置工作平面能見度
( |1 t, o. ]1 a" M8 r For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
4 }5 `# M5 o" ? oWorkPlane.Visible = False
2 o% [8 o5 ^$ t9 B$ S Next2 C# l" x; l; X/ G; \# w
- Y; O2 v) C" z4 ]: i: |
'設定工作軸能見度1 U9 y/ \5 \2 p8 l/ o( [
For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes0 Y7 }. _; x! `
oWorkAxis.Visible = False
! m4 @& a4 c' @& p& u+ p* R6 \ Next: Z( r; s5 i( _' l2 {
4 N* l$ U+ T9 a '設定工作點可見性) L4 h; `) \, _( E5 i- e x
For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
) N- r: E8 n! [) ~ oWorkPoint.Visible = False
8 K. [! D) b* G Next
) E& E/ V$ Q4 h% Z
5 \* k# `0 h. e. U: ?) B$ `: c" U '設置iproperty在保存時使用ISO視圖; {! o5 q4 }) q( ^7 x/ r
ooDoc.SetThumbnailSaveOption _8 c. e8 ?1 O- e/ u# U$ E
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
5 n; E% [. y% J7 P/ s . q9 G O1 P. G
'嘗試保存
' R4 B9 M( `' S* O Try* \ n! j, N! ^' Q/ K
ooDoc.Save2 {: a8 k7 h) Q& a
Catch & K/ B. {: K& _, _
'捕獲錯誤而不做任何事情8 l. n% |, Z( e! w
End Try
2 n# h# y2 S% U. t4 R0 S# H+ h7 { 8 d' |+ P0 c6 s8 ]! F3 Z7 s" @5 J
'關閉文件7 S/ ?: |$ j3 S! ] ]3 W
' ooDoc.Close
" K1 d, C7 q7 M9 c7 k2 Y9 N4 o
4 N4 W X$ l. T4 l- ]1 ?'改回原來的方案
/ a- W4 w# e) ^/ `. O5 YThisApplication.ColorSchemes.Item(oColorScheme).Activate
# a* H! C8 `; V9 Y! C' s% j5 t1 K) l4 G( S+ K3 m
'改變回原來的背景地面類型" I% R3 {+ `' |7 A
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType
& V$ {1 ?" @$ S3 R) y$ r% W |
發表于 2021-12-3 08:52:50
QQ好友和群
QQ空間
