|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
我是一个很菜的菜鸟，不知道怎么处理代码，忘大神们出来帮忙改好，谢谢！" p. z' J+ C$ Z1 C/ k7 M
代码如下：2 I) e+ X( S: ?( I3 j: ^- D F
Dim swApp As SldWorks.SldWorks
6 B9 h, ^" O: Z/ B( o. dDim swModel As SldWorks.ModelDoc
+ J7 S8 o( v( |) SDim Part As Object. {! i% ?' Y8 O0 T$ l
Dim swCustPropMgr As SldWorks.CustomPropertyManager
" R9 [- b3 e1 v& B/ c7 _9 s3 o0 O% v. h
Sub main()
' m( s- x% X' B2 s8 o. bSet swApp = Application.SldWorks9 H1 R x# U9 V: W2 `1 @3 l
Set swModel = swApp.ActiveDoc2 C' S8 Y; g5 N, v* S; _
Set Part = swApp.ActiveDoc
" w! {6 y5 }$ |6 xSet SelMgr = Part.SelectionManager1 @' N5 E" D8 ]1 a
swApp.ActiveDoc.ActiveView.FrameState = 1
) _/ n7 ^2 G; k/ H$ B" ^Value = Part.GetActiveConfigurationValue("", "Material") '这无法获取成功
* C0 @# X/ I0 Q4 J& a'Value = Part.GetCustomInfoValue("", "Material"); L8 J8 T1 U+ G! I
If Value = "304" Then+ O N6 `$ W1 ~
Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name)
( Z) V, @- E0 B/ e& o9 o swCustPropMgr.Delete ("表面处理") ! H- T! r$ e. J6 F9 G8 E2 T
swCustPropMgr.Add2 "表面处理", swCustomInfoText, "抛光") p% W) B& S: j# X, d
End If! I( F! X, }" G) ?5 Q) V1 t9 r9 ]
End Sub* l8 C0 L6 g& p- w3 B
9 v: B1 y+ ~. E. }) x! r3 S- D" I
9 j0 ?6 e# s9 Z* t9 q+ g
3 Z6 p; R( w' d! P8 } |
|
发表于 2019-7-2 22:50:48
楼主