楼下的网盘链接如失效，请复制以下ILOGIC代码。
3 j0 M( B% K; Y( G$ e3 `'thanks for Autodesk rocky God giving me help! The code comes from the official forum of Autodesk in the United States，by Curtis_W
* d% V5 J t+ C; `
# i9 A/ f0 n: [7 a- `'获取当前的颜色方案名称2 ]1 h& D4 x( \+ c. A
oColorScheme = ThisApplication.ActiveColorScheme.Name5 ]" R% v. Y3 E S) g; N
. h, N- q. B( s" c# ^: `" |
'获取当前配色方案背景类型
' T! ^& J: m1 G8 a5 y: z) U) D3 koBackGroundType = ThisApplication.ColorSchemes.BackgroundType) z" X+ R S6 N( V/ K
) U& X. z7 h: E0 E( n W$ C& a* H( c
'更改为演示文稿(白色背景)
9 Z; X. k5 G/ ^9 ^# h' y) UThisApplication.ColorSchemes.Item("表达视图").Activate
. p& I, D7 V, I. J7 ^+ v, V
/ c: X: H- L5 w" Y'设置为使用一种颜色背景类型
+ @2 y' u4 k; q U0 RThisApplication.ColorSchemes.BackgroundType =BackgroundTypeEnum.kOneColorBackgroundType
4 b3 N$ i; w- N* C* b* @; }' JDim ooDoc=ThisDoc.Document
: t' s5 V% j0 F2 `If ooDoc.DocumentType= kPartDocumentObject Then GoTo AA- V* r! H; x5 b$ Y, y, p4 s4 B
Dim oAsmDoc As AssemblyDocument
/ q% E. ~7 ]2 e* {% y9 `1 CoAsmDoc = ThisApplication.ActiveDocument8 P* n# v- X9 p/ x/ U2 ]. I* X
Dim oDoc As Document
/ W" B' R# o5 z, v8 F1 b+ sDim oRefFile As FileDescriptor
, p1 Q' I6 X* \6 _) I1 I7 ]7 @% c# A8 c4 K& e
$ Q% [; E3 A5 T" rFor Each oDoc In oAsmDoc.AllReferencedDocuments
# s2 D% K5 K- M! Y# V ThisApplication.Documents.Open(oDoc.FullFileName, True)
) c; g; ~7 c4 j# Q# Q0 P
9 k* [( Q c' O l5 ] For Each oSketch In oDoc.ComponentDefinition.Sketches
( S p. k/ G: O oSketch.Visible = False% E' d {6 q- O0 L! B
Next
# W* p5 z/ d8 D; a1 r
4 V9 K# M! S L0 N& A {' @: Q/ o '设置工作平面能见度5 @3 T8 q: X' B$ _4 i
For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
v* ]! p6 D9 F; g& R oWorkPlane.Visible = False
1 @! D0 ^7 h+ p \2 c" I Next
- p0 w7 J( N5 b* |
! }$ i1 @: B+ F% K+ n# b' h3 x) ? '设定工作轴能见度
6 m* E* q" I9 [4 k5 j! b) _ For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
/ S' Q* l2 Y9 q x0 W& ` oWorkAxis.Visible = False
# T d+ e9 a% Z9 \ Next
1 P: V+ H4 G! Q: Z ' w9 n6 v. M' j# h7 k6 w
'设定工作点可见性& p1 W& `! Z9 s/ O4 c5 C, ]' l% Y
For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints; G3 |% v7 x. `& h, K) Q; j
oWorkPoint.Visible = False
7 B! c7 I4 {8 K8 b% O, |0 e, t Next
( Q% C: ^8 ?" Y: w A7 O
+ Y4 y) B) x. R) d9 A '设置iproperty在保存时使用ISO视图
6 _6 z c/ ~9 t oDoc.SetThumbnailSaveOption _" O X1 @1 O3 @+ t% Y9 L7 Z
(ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)0 \; O+ X& H! T2 {) K
/ f% F# U" E1 z x/ h0 H
'尝试保存
0 {4 H0 U8 D, n6 ~% m$ y Try
% c7 m# v# K8 u% N7 k oDoc.Save1 q% w2 X: C2 \9 f& J/ _3 G; u
Catch
8 ]3 X% Z9 N/ Y# H8 C% p '捕获错误而不做任何事情# z h9 P# ^* A4 J! U
End Try
" {, {+ W/ Q* ?
& p5 o4 a# r2 ~5 ?# D8 z '关闭文件
4 w; W: Q7 k, m Q, d oDoc.Close
$ X: ?) ?1 l0 h$ t; UNext- @: P' A8 Q$ ~* q
AA:For Each oSketch In ooDoc.ComponentDefinition.Sketches3 g) C+ G$ q3 `6 M
oSketch.Visible = False5 B, w- W T& N( f _# x
Next/ d2 Q* L) W4 K. \' ^0 a! C4 [. A6 _
$ P8 v% _3 `& v1 Q. L5 d
'设置工作平面能见度
' [& p& D7 ~5 e7 G' G6 j, C! B For Each oWorkPlane In ooDoc.ComponentDefinition.WorkPlanes0 S$ Q: V; X' e/ B* p
oWorkPlane.Visible = False
, s( ]# j5 U0 b Next5 D6 s; `# X. ^
% [3 p! k# B# g
'设定工作轴能见度5 b. \. Z. B8 o# B9 m" l
For Each oWorkAxis In ooDoc.ComponentDefinition.WorkAxes$ m1 B8 c" T# X4 y9 a; i
oWorkAxis.Visible = False0 ]! u. z. B6 C. ?3 b
Next& m0 V# v% ^) ~# E
. @8 B9 J: I( z+ k) j '设定工作点可见性
n8 f6 h; h) t0 M% p: [) r For Each oWorkPoint In ooDoc.ComponentDefinition.WorkPoints
2 G6 h$ B1 r' b- ~. L. a$ l6 c oWorkPoint.Visible = False
+ }1 u0 x+ s+ m* v Next
- w) `9 V. ?2 u) M3 N) v
. K! V2 M* J5 N! \' n '设置iproperty在保存时使用ISO视图% W4 Q# }$ R. b* e0 f
ooDoc.SetThumbnailSaveOption _
; X, K) r3 I8 b (ThumbnailSaveOptionEnum.kActiveComponentIsoViewOnSave)* G7 _ W$ Y" {: B* f
! Z0 b1 p& G- D4 c p '尝试保存# b# w9 ^# N7 o' ~* U M# c
Try
/ y; U! H2 Y. O: V5 G1 S; t& t ooDoc.Save
Q7 [( ^+ l/ D: p5 y Catch 5 b: v* ~2 U5 J9 Y
'捕获错误而不做任何事情. {3 \! a% C! a' K5 U/ _9 D. L
End Try: e o/ z3 m- |) C y! ~1 ?( O
5 z0 w6 \) o: R
'关闭文件. T. u# w( S4 K" G8 F
' ooDoc.Close
8 D: i' g% l' F" U! t7 T
7 V2 U! j& E" v! |4 F1 Q: y'改回原来的方案9 n& ] E* i; |, `
ThisApplication.ColorSchemes.Item(oColorScheme).Activate , Q0 e/ N+ c' j+ p' t: K4 `9 L4 r
- \3 r. I, O, a' e8 o4 p f( I'改变回原来的背景地面类型
6 |, d+ ~5 N/ S8 @, N* Z, U* TThisApplication.ColorSchemes.BackgroundType = oBackGroundType& v9 J% ~7 A% z6 j1 v
|
发表于 2021-12-3 08:52:50
