|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
我是一个很菜的菜鸟，不知道怎么处理代码，忘大神们出来帮忙改好，谢谢！
: h6 U$ p2 p0 n0 S% A代码如下：8 N/ {' e9 ~2 X# b0 ^3 g
Dim swApp As SldWorks.SldWorks
1 V+ V8 f7 k# F5 hDim swModel As SldWorks.ModelDoc
! Z+ a; F; y6 y2 nDim Part As Object
, d- e; X& X- v; |' R( J1 {/ DDim swCustPropMgr As SldWorks.CustomPropertyManager+ i6 ?7 v" i7 }- y# |/ F
7 J" i5 S" i( i: t' |
Sub main()
$ A0 x2 D0 Q; _: W% J" t! s$ _: I4 f9 SSet swApp = Application.SldWorks6 d6 i. D( a* Z. q" U0 }
Set swModel = swApp.ActiveDoc
w( B2 M- _7 A# v+ j* ^/ O! VSet Part = swApp.ActiveDoc- K7 W; R3 F( n: V5 b) |) C
Set SelMgr = Part.SelectionManager( e: r6 Y' q; g8 n8 H6 @
swApp.ActiveDoc.ActiveView.FrameState = 1
- ~3 D: I( C) ?& }0 v# aValue = Part.GetActiveConfigurationValue("", "Material") '这无法获取成功8 v& A7 T4 J' c$ _" W4 O# d
'Value = Part.GetCustomInfoValue("", "Material")# t( h, ^0 G# p# Y. K
If Value = "304" Then* j- L( ~$ I, f, R# t) b5 l7 \
Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name)
7 d# R' h" {2 o3 ] swCustPropMgr.Delete ("表面处理") 7 z! {; I( T( k8 f4 Z
swCustPropMgr.Add2 "表面处理", swCustomInfoText, "抛光"
; c' e& a$ Q3 J6 d End If# b, N0 ^2 _: f
End Sub: u8 e- y4 G! C' H h1 p( U# H6 }7 V
( i/ Z8 ]9 \3 ^# Q( ?: |) o8 k- c5 D5 ~ _3 b# I
3 M6 c+ j, `% R) { _8 p |
|
发表于 2019-7-2 22:50:48
楼主