樓下的網盤鏈接如失效，請復制以下ILOGIC代碼。
0 w% P( Y( J! L/ E( s* w, @'thanks for Autodesk rocky God giving me help! The code comes from the official forum of Autodesk in the United States，by Curtis_W; ^7 r( z: C) [7 ^( q# J3 @
- W# v4 b3 F7 J: p$ ^" _- p'獲取當前的顏色方案名稱
! n3 k& _9 _+ b6 ]1 V6 ~oColorScheme = ThisApplication.ActiveColorScheme.Name
! ], R& Q6 {8 R; t; _ K ^2 y' J% W9 q, b
'獲取當前配色方案背景類型
* y- [6 S8 a! roBackGroundType = ThisApplication.ColorSchemes.BackgroundType
- [. l$ I& G, f( r4 {; m9 W0 Z* E" k8 G9 A, r$ a' y) M. ?
'更改為演示文稿(白色背景)
1 v( g( B A5 S! V8 |/ O* [/ s0 AThisApplication.ColorSchemes.Item("表達視圖").Activate
! r/ S3 L8 @9 J1 {9 s: Y, L/ ?4 V0 n6 x7 b3 l6 Z6 D
'設置為使用一種顏色背景類型
! M0 F9 p/ `6 s1 R* B; @ThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType ; R; o# e/ o! Y
Dim ooDoc=ThisDoc.Document' U6 D4 m4 I0 P! X
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
+ r7 n! Q2 E t: d3 K! _8 `3 r9 o, IDim oAsmDoc As AssemblyDocument
0 Z0 o; r( Y: R9 X m8 h: t6 uoAsmDoc = ThisApplication.ActiveDocument; b! D' |, f% D
Dim oDoc As Document0 @! p5 @6 ?5 U2 m6 N0 X: [1 `: E: L
Dim oRefFile As FileDescriptor
( J. n) ]. o6 `' D! K6 j; i9 V% l: B9 F- N: A8 J8 \
" U: L( h$ q r3 r" e/ CFor Each oDoc In oAsmDoc.AllReferencedDocuments& |( b) }/ U! J" l+ R: l! d# P0 ^8 e
ThisApplication.Documents.Open(oDoc.FullFileName, True) * J0 l. ], E: e% V$ u4 n
! E% n; n: J! Q- q( ` For Each oSketch In oDoc.ComponentDefinition​.Sketches* w+ |5 I% q# G7 b4 y" F d
oSketch.Visible = False
# @! F, s) X0 ?' \ Next
' O2 x3 Z7 R8 h, r% O
- [: F m Q8 V5 F' N '設置工作平面能見度
4 s+ \6 U7 c* W' k For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes$ W4 v' }: Y0 s- I- t9 h
oWorkPlane.Visible = False
( z [, l b3 z Next
9 a3 [' H. Y( B6 b1 A: ^: r , B Y" d1 a4 i9 w" @2 _, N' E: ^
'設定工作軸能見度1 D- O. q$ \4 V' {; g% R* M
For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
8 v% V% X: e2 e8 d- ~- P1 {! A oWorkAxis.Visible = False
7 R( E5 D+ t# `& X+ u& u Next
1 y+ R6 B/ F, k% ]7 |9 h , |* B4 ^/ X. y* @6 t6 a) |2 \
'設定工作點可見性
2 q8 P2 s; R8 Q" v' P For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints- Q% A6 g: C; b+ }8 L
oWorkPoint.Visible = False5 s! l& [9 |0 T! |2 g' m# @4 N9 v$ ^
Next
) I3 R: B) c0 S. k- z: w8 U' I+ F2 O/ N! l) `, B" B# r
'設置iproperty在保存時使用ISO視圖- `7 o; [" n; x! C
oDoc.SetThumbnailSaveOption _
) z( e% v" l: N$ o7 ^* f% j (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)
* d3 l" d- j$ j0 B3 h* D7 Y + @- B. s* c6 M1 q. f) p
'嘗試保存( i( Z- `( |- u
Try
m6 e3 v: E# C" p! B z oDoc.Save9 {; U. |2 ~) ` }2 X8 `" x9 }* g- j) Y
Catch ; t/ [$ S# o( m
'捕獲錯誤而不做任何事情9 V( L) d( \! W
End Try1 i& H! y4 [% w: ]: O: H" R* W
- O: J4 T$ Z: F" C2 Z( v '關閉文件
2 Q- t+ `) c5 {) L oDoc.Close- _& V7 c* u% ?1 U; m2 M
Next
4 D9 F- ?! {' Y5 Z1 l! N, cAA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
5 i( J5 n* h8 s- h oSketch.Visible = False. ~6 X4 j0 C: Z9 p* r6 ?. \
Next! c" u- b0 E. P0 b0 S# C
6 V7 T! |! a: @
'設置工作平面能見度4 W$ j4 M4 \7 V6 c" d& \# @$ N
For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes% I. T7 p- G( k) o! e2 D7 {. I
oWorkPlane.Visible = False
4 J$ h0 J5 {+ g9 b4 j Next+ D! Z! L" k( D. U
8 K( m7 ^, Y( v/ A! c0 G, F) B- l '設定工作軸能見度
9 o, G% T1 x6 X/ a- C For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
6 F$ H7 Z3 N8 {3 ~) X oWorkAxis.Visible = False
+ N+ w, X( A0 _ Next
5 x; d0 m- K/ ? ! W% y) h8 I2 T, d1 ^( E
'設定工作點可見性0 Q! d g5 J* f, C7 U
For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
; @* H" v5 s& L" Q4 ~1 w oWorkPoint.Visible = False
: y/ T& d1 ~8 r Next O0 ?+ h5 S" L% j+ K
8 z+ v5 f( h1 i, K1 Z; w# k '設置iproperty在保存時使用ISO視圖$ G( M- p% U2 \, y' o- H4 c; @
ooDoc.SetThumbnailSaveOption _
8 N% ~3 @3 ~! s' R: p4 D, _$ { (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)4 U/ [: z2 I/ y) r9 \: I/ \% _' s: ^
. ^ E5 a4 ?0 R) Q% f2 ` '嘗試保存% p/ ^8 X- K/ V" h
Try
7 E/ W1 }+ @8 a; \% o! w ooDoc.Save
" v. [, X$ |& d% p6 s2 C Catch
* c/ {! @) J- J2 m6 Y( }& u; a$ ` '捕獲錯誤而不做任何事情
4 r9 p) }+ l# W* |6 X6 Y End Try
% ?9 v, T) w. f( N
8 H/ w% g$ x. _, ]; r W% E0 @0 N '關閉文件
, e! q6 U6 O! U' ooDoc.Close& y2 J# ~4 y+ ?: {) m; o, e
; C7 u. P+ d0 ~& F) }+ i2 z3 H4 f: A. j* p
'改回原來的方案
3 G5 Z% k. v. N |7 YThisApplication.ColorSchemes.Item(oColorScheme).Activate - K. v+ s$ s% X- u1 c% S
& I+ n9 _6 F: C$ T' K9 B) Q'改變回原來的背景地面類型' B+ {. [8 L+ V9 P# n; n- Z
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType+ l" N+ q8 e6 _/ W4 U
|
發表于 2021-12-3 08:52:50
QQ好友和群
QQ空間
