|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
我是一个很菜的菜鸟,不知道怎么处理代码,忘大神们出来帮忙改好,谢谢! N4 `' ~# t: C- R* L2 b
代码如下:! i# s* J7 v1 B) P$ Z: L! T
Dim swApp As SldWorks.SldWorks( h6 f& v; V; @1 X" S4 A) C
Dim swModel As SldWorks.ModelDoc
6 g. R1 L% n; p" K ~5 T+ t0 qDim Part As Object
, K2 V" D4 O- |/ ?3 yDim swCustPropMgr As SldWorks.CustomPropertyManager
; c% q4 C+ F5 s' T# X8 V9 O. j x( u* Y
Sub main()
6 O; ]$ s8 K+ }" D7 f [8 BSet swApp = Application.SldWorks
4 y2 ^: M7 n( PSet swModel = swApp.ActiveDoc
/ J* X# I4 w0 M) H! w3 G' i, V4 N; }Set Part = swApp.ActiveDoc
3 _8 G3 l( x% W2 GSet SelMgr = Part.SelectionManager
2 r1 i9 _* w3 U2 W2 fswApp.ActiveDoc.ActiveView.FrameState = 1
+ ]+ c" _& K' N% J& XValue = Part.GetActiveConfigurationValue("", "Material") '这无法获取成功
* V. v2 r- y) `'Value = Part.GetCustomInfoValue("", "Material")4 J- d3 C# t }; C. o4 n& }. T
If Value = "304" Then
& `3 g0 G) d0 O/ D Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) , S. P! [6 v$ v& |2 j( L
swCustPropMgr.Delete ("表面处理")
+ c, z9 z$ A5 X& Q swCustPropMgr.Add2 "表面处理", swCustomInfoText, "抛光"# K5 T$ P* h% E V
End If
1 w) o0 t- { a4 j2 n3 ]' C, NEnd Sub
; B( r/ E$ ^5 K
# \1 }0 h! n; s' C0 y( g
9 d7 M9 S6 s5 @' q' s; n( e4 ]* a% e+ D
|
|