楼下的网盘链接如失效，请复制以下ILOGIC代码。
6 p( { r* y6 X H: Y2 s7 `'thanks for Autodesk rocky God giving me help! The code comes from the official forum of Autodesk in the United States，by Curtis_W i2 r4 x, N t1 y/ Y
3 H# r W3 l% @$ P) P1 U
'获取当前的颜色方案名称
% O* Q F$ E; d- C2 u' E6 m7 yoColorScheme = ThisApplication.ActiveColorScheme.Name
! v9 I+ |7 I- d3 C3 [; Q0 _+ e5 n- F( N
'获取当前配色方案背景类型
0 u4 A# G- v' [! I$ ZoBackGroundType = ThisApplication.ColorSchemes.BackgroundType
1 [) n' m4 }2 l1 c& o* a: E! w
2 f- C9 M: y% J- H/ c# | c'更改为演示文稿(白色背景)
. R7 v; d! \( t- L8 v4 |; K9 eThisApplication.ColorSchemes.Item("表达视图").Activate
* p2 P& o- [, P# [% p3 |. P. s# @. @" h/ V# b, O6 ?2 q
'设置为使用一种颜色背景类型
' |- X1 E O5 p5 l* uThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType ( [% ?5 g* |( E
Dim ooDoc=ThisDoc.Document+ K# p( e _; V/ `1 i ]: E7 {
If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA
" k1 b$ _- o, S7 H+ vDim oAsmDoc As AssemblyDocument9 x: E# S7 \; Y0 _; K; L, g4 y
oAsmDoc = ThisApplication.ActiveDocument
$ l4 z! ^ k- Z8 h5 `* ?6 QDim oDoc As Document
8 |% X r! }5 K% f/ d# b) ~4 cDim oRefFile As FileDescriptor4 y5 q$ t! h1 T
4 A, U3 ?" p( I- Z9 S: l: k. g2 w; o$ q
For Each oDoc In oAsmDoc.AllReferencedDocuments
9 j4 y) p- q( x5 t5 _/ D ThisApplication.Documents.Open(oDoc.FullFileName, True) ; h" W3 n Z. P( v
$ e3 ^; E7 E* Q- c. | For Each oSketch In oDoc.ComponentDefinition.Sketches/ W! J. ^. g0 o9 Z) B4 F
oSketch.Visible = False
* v4 C# T/ p- `' N6 V! Y, E Next
; Z6 ~, e7 o1 m* _; D: k. j1 _( P
) G! ]# ?# ?5 l6 v '设置工作平面能见度8 ], ~( a2 o6 K! ~
For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
8 u( I, u V# C4 Z! P oWorkPlane.Visible = False
4 [8 _. y6 Q C2 a2 P- F M! u7 k Next* Z. A- n) m; a# U: [ d
" z2 ~. L* f8 N1 V$ |9 A4 h '设定工作轴能见度( |2 V+ |; i* q- ~7 s4 A
For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
* F/ j% L* n. T/ @ oWorkAxis.Visible = False
, p8 |' X) O8 k! V" Y Next" |6 [- _& O( s1 F9 S: m/ X' P( v
) g5 _, p8 o& V0 ^- h
'设定工作点可见性
+ d4 p2 d/ S* d- X( V2 J! @7 ` For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
/ X f; ^) |7 R8 M9 x oWorkPoint.Visible = False) ]0 O- N6 r" [, c# g* i+ g
Next
+ R' V$ k: v6 p; e- L2 e- C# z8 E' \
'设置iproperty在保存时使用ISO视图8 u" E2 X" ~" o+ m
oDoc.SetThumbnailSaveOption _ o( r' b6 o3 D9 M
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)7 S, w( N6 J1 x0 q" L" b5 f
$ ~$ `7 [7 r1 W$ j S '尝试保存3 t# W2 _8 M$ G
Try
5 a& t0 Y% n5 ^$ _7 ~) S5 o oDoc.Save
0 K! t& j O. [2 h# l+ w Catch
% ]$ `+ D( o% U/ W '捕获错误而不做任何事情' u& x( t1 K/ _/ p" }- E
End Try* \4 M( \8 I* l! ^$ ^" |, p0 t
) P/ n" | z- K+ b% s E '关闭文件, w( X9 K( w: C3 W1 }# i8 p
oDoc.Close% I, C4 a2 W$ d6 }# s: H3 J& F
Next7 `. u6 _- x& E
AA:For Each oSketch In ooDoc.ComponentDefinition.Sketches. i" o( k/ M' J; Z3 Z5 z, X6 r/ H
oSketch.Visible = False# i% q+ i; o7 f
Next' C2 N" D& U9 D2 v; C
) e# g L$ f8 a0 k' Q4 h8 W) d/ Q" H
'设置工作平面能见度6 K& ]! z- f4 I" b' C- I
For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes
4 d. k B; _( n# H- K- P oWorkPlane.Visible = False
- u9 W+ j, o7 r1 M8 x* U! j- } Next
# l. v8 ^- \; ]
" M, _0 i/ l# Y- [( ^4 K! f '设定工作轴能见度
g+ t9 e2 a( ^7 i% M For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes
5 S, E, L( O4 ~7 W1 l oWorkAxis.Visible = False! a, R. _8 C; G, T; o
Next9 l/ z6 T. Y( C* I
. D) j/ c6 k% p, u; ~2 O
'设定工作点可见性/ z: U$ ?' l9 o
For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints" C* [7 e1 T# }, s7 \' y5 i4 x! a: k
oWorkPoint.Visible = False
4 _1 H. Q% K) A( p- E3 R Next
6 f) U0 U0 S2 b/ K% q
2 F" [; t/ n1 X7 o( t4 F '设置iproperty在保存时使用ISO视图$ F/ S" x5 }! E# u% R
ooDoc.SetThumbnailSaveOption _
% \, Z5 c0 t$ P4 J (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)5 U: N9 l, }: ]8 Y
3 s6 \, w& D+ P0 z
'尝试保存; J" @* A" u" u9 ~* _$ p
Try
9 d1 v9 S5 Q" O1 B7 M0 g; F ooDoc.Save
$ ?) {* q: _# x5 l4 u( a3 u+ ` Catch
. W$ Q7 n6 s/ T& ?( {( B5 L '捕获错误而不做任何事情+ ^* Q5 c5 ?5 G5 Y F' o0 n
End Try! S6 I- n8 ^; I
, L% J; |2 y% \ '关闭文件$ q- \; a1 z* u/ [
' ooDoc.Close
?) S, \0 s. D# N3 a' l
, J( x' l+ M, `; P) K+ \4 g'改回原来的方案
- Q2 U; S2 Q; U$ x8 M& q. p0 ?ThisApplication.ColorSchemes.Item(oColorScheme).Activate
* } X8 m& Y2 F: l% b# M) F
0 b+ N$ G( V0 r5 A0 i'改变回原来的背景地面类型9 {0 @; d8 K0 N. f, X7 k! A
ThisApplication.ColorSchemes.BackgroundType = oBackGroundType
, Z+ c; w) t! X* R4 [ |
发表于 2021-12-3 08:52:50
