|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
我是一个很菜的菜鸟，不知道怎么处理代码，忘大神们出来帮忙改好，谢谢！
1 g) A. ?% M5 {& Z r( z4 a# M代码如下：
( Y5 l; \! F6 A' f' g8 x5 T/ pDim swApp As SldWorks.SldWorks- p5 }. I+ ~" i5 @
Dim swModel As SldWorks.ModelDoc/ W, n6 ]# A, b7 q2 e
Dim Part As Object* n5 Z+ h; h: h1 C6 @& l& _- |
Dim swCustPropMgr As SldWorks.CustomPropertyManager
m; |: f& ?8 b, @ b; a- k- G* C5 P% B: [( {
Sub main()7 Q" ?8 Z. ~4 g! Q1 ]% M
Set swApp = Application.SldWorks
H$ ~4 Y1 b. k) R' t# G. G$ c; uSet swModel = swApp.ActiveDoc, T8 W8 P4 t% S% E
Set Part = swApp.ActiveDoc
) \3 j3 E7 p: Z: R7 S' o! F7 jSet SelMgr = Part.SelectionManager
c! f2 c( ^, H" B, O% M/ ]swApp.ActiveDoc.ActiveView.FrameState = 12 Q/ a% j* N5 c; K% {4 W; E
Value = Part.GetActiveConfigurationValue("", "Material") '这无法获取成功
( d) ?0 f8 _+ j5 N. Z5 @! A'Value = Part.GetCustomInfoValue("", "Material")
}& p2 n, O# [- @$ vIf Value = "304" Then
U' n) P. Q* D Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name)
/ S7 @; d5 D8 Z- S swCustPropMgr.Delete ("表面处理") " T2 w. ^3 a' _' F6 _$ Y0 y
swCustPropMgr.Add2 "表面处理", swCustomInfoText, "抛光"8 K2 G% P0 ` H/ a& E# D' I
End If( m+ ]& [8 U0 R7 V; \
End Sub
( r w+ Q, j+ G+ ]% l" q
u3 {# M" L8 c; Q. D0 Z+ }* F5 J! ^! ^
/ q- z) E0 M" G1 t* D8 s9 A/ k |
|
发表于 2019-7-2 22:50:48
楼主