|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
我是一个很菜的菜鸟，不知道怎么处理代码，忘大神们出来帮忙改好，谢谢！$ w$ p- E0 h q) C* }8 N7 }
代码如下：
! t3 o0 `. U- G3 \( q! XDim swApp As SldWorks.SldWorks
; h9 ?# |+ g, SDim swModel As SldWorks.ModelDoc8 G% e! g! z) G" u# f$ Q
Dim Part As Object
. y% R: k, f( S& s8 e, sDim swCustPropMgr As SldWorks.CustomPropertyManager. v& A" @/ a; B; z2 o
, T o0 v7 G* d7 C2 Z
Sub main()
+ V9 ~+ W1 K% l, WSet swApp = Application.SldWorks, w6 G( q& {2 J0 [
Set swModel = swApp.ActiveDoc5 ~1 Z- W- C" F; C8 i* R
Set Part = swApp.ActiveDoc
) |( e; D) @$ |" ?3 D& Q. x8 [# d1 v# NSet SelMgr = Part.SelectionManager' `8 i" c0 h$ T6 y) |$ u2 \
swApp.ActiveDoc.ActiveView.FrameState = 19 Y0 N9 P* w' Q# z
Value = Part.GetActiveConfigurationValue("", "Material") '这无法获取成功$ j1 Q9 w8 \8 \" n1 a; E7 g
'Value = Part.GetCustomInfoValue("", "Material"); u% F$ z5 M" v9 G
If Value = "304" Then
9 i$ E( y3 ^( q9 c Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) & ?2 L/ b5 O3 u' i3 e
swCustPropMgr.Delete ("表面处理")
- a3 E! f' z- F* s7 }- a, G5 j+ S swCustPropMgr.Add2 "表面处理", swCustomInfoText, "抛光"
9 I/ v) k+ a! o/ z; _: y9 S, ^0 o End If: b' \5 g3 F: n0 Z; V- g% M
End Sub
C" g/ x6 @6 u# N. |8 s+ A5 u
' Z( R3 T/ z5 }2 K! ]1 T' }* S
4 U! F. ^/ m# ? |
|
发表于 2019-7-2 22:50:48
楼主