楼下的网盘链接如失效，请复制以下ILOGIC代码。
# ^ @: M, c+ n3 u5 p8 P& b'thanks for Autodesk rocky God giving me help! The code comes from the official forum of Autodesk in the United States，by Curtis_W
$ Q% c% j h9 x- a) P* g) L" P
, X' Q( r" |3 n0 `- k'获取当前的颜色方案名称' T9 F Q+ o3 i2 \- U s" c5 [
oColorScheme = ThisApplication.ActiveColorScheme.Name
1 Y' ~$ U. T9 m- a# D; K; J9 d& o# i1 H; N5 f* j+ `
'获取当前配色方案背景类型
% U: U6 l h- q6 I3 uoBackGroundType = ThisApplication.ColorSchemes.BackgroundType
" C' D/ t9 I, Z) J6 A9 J% K( P, G- a- r3 u
'更改为演示文稿(白色背景)0 P. A! o& z) i% a6 n7 a n
ThisApplication.ColorSchemes.Item("表达视图").Activate
; U( `) w. W9 m" Q0 q. }
k* D" V7 ]: V* W. g8 C'设置为使用一种颜色背景类型
) T% ]! d* {; S2 w4 L3 b1 `1 CThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
7 o" f+ B. s2 F2 Z) b- x' rDim ooDoc=ThisDoc.Document
" [, b! W6 G; s; d6 ^If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA5 y# t* b; }; X% ^% [
Dim oAsmDoc As AssemblyDocument7 A7 c. M6 `2 O) e/ }) K. {
oAsmDoc = ThisApplication.ActiveDocument) w( w# q+ L# c) Y" M* u* E" O
Dim oDoc As Document
. i. J) Y4 p0 U/ s! | J4 oDim oRefFile As FileDescriptor; _# ^: O% E; h
3 p+ c }+ p0 N1 }$ J J
8 a8 m# x9 @6 X1 g; G) t
For Each oDoc In oAsmDoc.AllReferencedDocuments7 o8 b1 u/ ^& S. E
ThisApplication.Documents.Open(oDoc.FullFileName, True) * X/ |2 F1 n$ {$ u( l& X
; W' C. x% A; P% M
For Each oSketch In oDoc.ComponentDefinition​.Sketches5 O# N0 R3 X+ D: w+ r- S, f. H
oSketch.Visible = False! }2 o7 a- z# g: \2 c
Next
3 V& y6 x# D. x3 o! K
$ e# Y- h, {4 a# p '设置工作平面能见度* R* d6 X% E, B
For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
0 S+ m1 O7 Q* B8 E3 B* M! Z4 a$ h2 n oWorkPlane.Visible = False
% |( Z- V7 i1 I1 M Next* u7 F) I: O2 c* \+ i
- V" m1 h' P* g( D+ V5 R '设定工作轴能见度
. o5 X3 ~3 ]$ D& v: U For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes/ y' t9 ^1 z) V& q% W/ |; T
oWorkAxis.Visible = False. v- J4 Y/ W5 ~) q/ ^5 W
Next* [# j; X% v4 M" H
- E& S& Q0 x0 e
'设定工作点可见性* h, {. \+ ~) D
For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
8 i% `8 b/ |/ C" n5 U7 c oWorkPoint.Visible = False
7 c# x, D8 I j4 ]. o" g Next
0 I) l4 E/ x6 q! ]8 M. r7 Y0 @! e" X s& ^3 G, ^- Y- M6 t
'设置iproperty在保存时使用ISO视图' A/ F. T4 J) m
oDoc.SetThumbnailSaveOption _
( H3 o3 s7 x0 }! l (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)5 R6 q1 V5 y0 e6 [3 d5 U
6 W9 B7 f' A4 f8 \( y; Z '尝试保存
5 J3 U0 M. H7 h8 b. O% { Try7 f+ `9 F/ u; j, y* h
oDoc.Save* L' z0 ]7 [" Q0 G; f9 h
Catch , |7 W7 k7 f8 v" s
'捕获错误而不做任何事情
8 l1 }3 G8 Z5 h4 D; p End Try/ d( K. G V) i8 s, C2 f! t) ]( Y
7 Y2 z- _' E3 }
'关闭文件 g d' o! B* D' P/ [
oDoc.Close. ^, U3 X0 E t6 F9 U' B
Next9 j6 k9 J3 N: }* A6 n$ S
AA:For Each oSketch In ooDoc.ComponentDefinition​.Sketches
) z' e. z4 ?7 D' Q$ C9 d oSketch.Visible = False
& z8 a+ ~- Y& Y$ N Next9 I* F% s) r* V! {6 @3 J8 B9 V
% ]9 R* G$ g9 i+ p) o '设置工作平面能见度
- w( ^& _( s- W For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes x {9 K6 e2 Z
oWorkPlane.Visible = False
4 n9 U' T" b, B1 ^4 d+ d$ o Next" P0 v) _+ K8 Y" B* v7 \
, E9 ~- Y9 R% M& ^! }
'设定工作轴能见度8 }3 ?) i) j/ `0 ^7 J% Z
For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes* x' B5 b7 W6 c
oWorkAxis.Visible = False
# O4 o( _% o; y$ X( Q4 [9 N- W8 ` Next
, c7 n* k/ m0 D; X j$ ?6 P* M" i- T( L3 X& H; q5 k8 e
'设定工作点可见性
9 g) C% f- y3 b2 K For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints' F6 l! {; a* t# e1 D9 h1 j/ G
oWorkPoint.Visible = False
3 Q0 Z2 n, \8 j( J2 p' W, u9 ~7 } Next
2 S7 u5 |5 O% W7 }1 i# X }5 i
" b% c1 m. V1 C7 B6 A: m( ^, q '设置iproperty在保存时使用ISO视图
" [) Q* e0 C r. N% G ooDoc.SetThumbnailSaveOption _ q) T2 ]! s1 M. x( {7 [
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)7 \0 t6 ]) a1 X& u/ B. i+ m
7 X: m! k i* f: x9 e: } '尝试保存
8 |$ U; E2 y" C- s4 y [ Try d& ^, J0 N: G, b" _
ooDoc.Save
, G) S3 j% \' ~6 m0 ]5 b Catch
9 \0 V/ R' T, M/ {* O* d '捕获错误而不做任何事情% \: v# B: [4 i4 E
End Try
; w" Y1 O0 ^, l4 ]- x7 k% O & n. O, t8 W+ A5 N
'关闭文件2 p( E5 e! ], ?+ O8 t7 D9 f
' ooDoc.Close. }$ m; C" E0 z
- B# M- @3 t0 F' t1 b
'改回原来的方案
6 M+ {2 Q' E Y1 Z1 i N/ KThisApplication.ColorSchemes.Item(oColorScheme).Activate 6 M; n9 O( g) `2 _" M
5 V' |9 _+ L+ s! h4 ~* Q- J
'改变回原来的背景地面类型6 G) X& M' N3 Y: {6 q- Q) ]" S& W
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType
5 X* U" D, D: Z5 y2 T3 N H |
发表于 2021-12-3 08:52:50
