|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
我是一个很菜的菜鸟，不知道怎么处理代码，忘大神们出来帮忙改好，谢谢！6 y$ _" Y$ B* j0 y
代码如下：: r- W* T- y" E3 Z0 y
Dim swApp As SldWorks.SldWorks! c% S7 S. Y6 I! m) V1 f
Dim swModel As SldWorks.ModelDoc
* i( u# V4 ^( `& t$ H) ]* nDim Part As Object
. F' Y, U. D# @8 b6 J* ^% wDim swCustPropMgr As SldWorks.CustomPropertyManager
: c0 u3 z4 S0 q, ~5 h; }+ m/ y/ [+ K3 I; I& v) R: V3 z/ z9 z
Sub main()
' x) p7 j& l$ Q4 D' YSet swApp = Application.SldWorks! U3 Z/ i) [3 P
Set swModel = swApp.ActiveDoc! j( s* C7 m3 ?" j% l
Set Part = swApp.ActiveDoc4 f0 v" B" F% ^2 S, D
Set SelMgr = Part.SelectionManager
1 N1 b1 }4 F4 s$ X" ?5 ]# NswApp.ActiveDoc.ActiveView.FrameState = 1
1 ]: {: G' `* `6 o$ pValue = Part.GetActiveConfigurationValue("", "Material") '这无法获取成功
( ?2 O& J. S7 C4 C7 A1 ['Value = Part.GetCustomInfoValue("", "Material")
$ S% d0 E# Q# |$ n7 ~. M4 t9 l( |, WIf Value = "304" Then# X, V9 ^4 h8 w, }, k; N9 g
Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) ) c8 s" x' a. [
swCustPropMgr.Delete ("表面处理")
! I4 N+ H6 \: ~( D swCustPropMgr.Add2 "表面处理", swCustomInfoText, "抛光"
( X M1 A; a4 x/ Y7 k$ M) s/ t. | End If
& |/ T! N/ u( W1 v& EEnd Sub
+ J. u- f$ w+ }" M) b# `2 W/ _$ p; R2 j$ m, U, h8 p" u
: m9 p/ S* b7 t. O& [- @
5 z f% a2 g4 Z# f |
|
发表于 2019-7-2 22:50:48
楼主