|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
我是一个很菜的菜鸟，不知道怎么处理代码，忘大神们出来帮忙改好，谢谢！
: L1 ^9 G) `7 ~, O4 F3 ~$ G5 k代码如下：
. P% D3 F, e7 o. Y5 aDim swApp As SldWorks.SldWorks
& W- t$ }( t! v& TDim swModel As SldWorks.ModelDoc1 M2 L! g+ g# S5 P) [5 r
Dim Part As Object D: q2 G+ N5 J; o1 E5 F4 W* p
Dim swCustPropMgr As SldWorks.CustomPropertyManager
+ r7 Y9 g! U( Z) x
2 R2 R) Z3 u$ J/ G( _- k3 a' RSub main()/ y# ^" o% @2 B" J0 Q
Set swApp = Application.SldWorks
4 S5 H5 o8 }2 g; oSet swModel = swApp.ActiveDoc
, C8 V1 z: V. ~9 n3 e0 q3 P7 }Set Part = swApp.ActiveDoc
+ C! q8 ?) D4 o$ v1 G, }, CSet SelMgr = Part.SelectionManager
/ `) C; E) v) t9 }4 }# m9 AswApp.ActiveDoc.ActiveView.FrameState = 1
: X5 `2 Y6 H8 bValue = Part.GetActiveConfigurationValue("", "Material") '这无法获取成功
2 c: g- ^) Y/ G N; ^'Value = Part.GetCustomInfoValue("", "Material")+ F4 ]( ?1 B# n4 O! o6 d& P) ~
If Value = "304" Then6 |) u( H: ?* O7 s
Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) 0 g" L$ A) ]' ?, b* p
swCustPropMgr.Delete ("表面处理")
* V# K+ Z# k0 b( ~ swCustPropMgr.Add2 "表面处理", swCustomInfoText, "抛光"; ]2 N5 }3 B8 r! E. x, k& R
End If
# v0 ~; R! K3 x4 QEnd Sub
9 I5 W3 d# i B* k o& g) C; p
, h4 g Q2 J* |2 [5 o) Z0 C' O( b9 X1 X' q
! ^: f( p/ s# p6 C+ [$ D/ x' n0 I
|
|
发表于 2019-7-2 22:50:48
楼主