solidworks 宏另存及提取属性命令

蓝血刺猬 · 发表于 2016-12-13 10:58:08

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

一直在用宏，把文件另存为IGS文件，但外发的IGS文件来加上材质，每次都是另存后再改名，太麻烦了，试了几次改宏，都提取不出来材质，哪位大神能帮帮忙啊

Dim swApp As Object
Dim Part As Object
Dim Filename As String
Dim Material As String
Dim No As Integer
Dim Nom As Integer
Dim Title As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Filename = Part.GetPathName()
Materiala = swModel2.GetCustomInfoNames()
No = Len(Filename)
Nom = Len(Material)
Filename = Left(Filename, No - 7)
Material = Left(Material, Nom)
Part.SaveAs2 Filename & "-" & Material & ".IGS", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swmodel.Save '保存文件
swApp.CloseDoc Title
'X = MsgBox("输出IGS文件在SW工程图同一文件夹", 0)
End Sub

这个materiala，试了几次都提取不出来

qiminger · 发表于 2016-12-13 13:55:07

materiala = swModel.GetCustomInfoNames()
这一句好象是取属性名称数组

先写一个材料的自定义属性名与值
再取出来运用。
如下本人方法：

Dim swApp As Object$ d, p" k1 v+ y! |2 p
Dim Part As Object. h' V4 q: D/ G) ^
Dim swModel As Object1 r$ d8 A5 c6 \
+ [/ {, G6 V7 X: l) e
Dim Filename As String
% M, ]9 {1 B" l, @4 J0 ?
'Dim Material As String
% E+ f0 ?4 p: r) M% C
'Dim No As Integer
+ x' k& M3 _: L8 E6 w8 k6 b' u* |
'Dim Nom As Integer: y% Q% e) n3 Q- G6 M; P! x2 Q- [4 n
Dim Title As String% [" t' X: x4 e8 S! p+ ^
Sub main()
$ K) B" h* p" V0 V* N
Set swApp = Application.SldWorks/ _* z/ R U! u
Set swModel = swApp.ActiveDoc
. V- u6 N' K3 N N
, ~ R g5 q* o( a8 Q3 ~- e% y |
'Set swApp = Application.SldWorks' D+ A9 D- G- I+ i2 B
Set Part = swApp.ActiveDoc4 c4 _; x; _; X
Filename = Part.GetPathName()/ u# Y. A& }) \
'materiala = swModel.GetCustomInfoNames()
; { E1 d& m0 Z2 e0 z0 y5 G; A
No = Len(Filename)
1 n% m5 `; G( M9 H2 Y7 Y. s( w
'Nom = Len(Material)
$ n% y3 Q- v) I
. z3 [! P+ K- O( |
Filename = Left(Filename, No - 7)& G# O/ h8 [" q3 V' P1 j6 ]
'Material = Left(Material, Nom)
/ v6 d8 R+ u( ]" v1 L
'Part.SaveAs2 Filename & "-" & Material & ".IGS", 0, True, False$ H( I' X8 q7 b
Part.SaveAs2 Filename & "-" & QsxZh & ".IGS", 0, True, False+ U3 W( c0 w; D
Title = Part.GetTitle
. k1 D! l, T/ @- p% j
Set Part = Nothing
, L" g+ T! s' N8 G
swModel.Save '保存文件
1 j/ C# L% u$ O- g6 H4 s! T' l# C
swApp.CloseDoc Title7 G3 F$ W b( p$ h
'X = MsgBox("输出IGS文件在SW工程图同一文件夹", 0)3 e$ p; |0 J2 o* m$ Z! y7 D3 w
End Sub. n3 l$ o) A$ x8 {* ~$ a3 O+ K
+ ?5 N6 e, p9 W2 k' i
Private Function QsxZh() As String '取属性值
% a ` Q. `" [. s& ?0 D& F9 L
$ C$ ~( I( b" N
Dim retval() As String '自定义属性集合4 D; ?3 x* r: y
Dim i As Integer, V; r0 r) ^4 O
Dim Ming As String '属性名
7 l1 n# d9 [& l) m. N M) |" D1 R- r
Dim Zdysxz As String '自定义值
5 \6 i; `. T3 l" U5 {- Y
Dim blnretval As String- W! ^9 G# x% }) e( [5 t1 f' }, \
Dim XrZh As String '写入值
. J3 ^5 R. _: M& t6 c
$ w' O# w0 l$ Q [6 u
XrZh = Chr(34) & "SW-Material@" & "part" & ".sldprt" & Chr(34)9 j& s% i7 p' ^/ ^$ C V6 p! E1 ^
blnretval = Part.AddCustomInfo3("", "temp", swCustomInfoText, XrZh) '写入自定义属性临时名称与值, d: g$ r6 l# |* W( v# X; s7 N
retval = Part.GetCustomInfoNames2("") '读出自定义属性名称集合7 G5 Y- m2 z) S( f& z5 _/ r/ r
For i = 0 To UBound(retval)4 m& n/ a& a5 p& e; _/ o3 s
Zdysxz = Part.GetCustomInfoValue("", retval(i)) '读出自定义值
. U3 b9 P- k# Q1 ]
QsxZh = Zdysxz% U; f" O6 A% ]1 }3 d; ^' u4 u
Next
$ u s: {# [ E$ @8 B1 }0 b5 [1 c
6 Y$ |8 ~8 c, |& k2 ` M8 d
blnretval = Part.DeleteCustomInfo2("", "temp") '删除自定义属性临时名称# n E. j& F1 S i
+ N! u5 N; a6 i+ f3 r
End Function% h: B3 t/ a5 g8 m: d) x9 i

复制代码

另存IGS.rar (11.82 KB, 下载次数: 22)

xiatian11 · 发表于 2016-12-15 10:49:45

谢谢分享

		自动登录	找回密码
密码			注册

通知

[求助] solidworks 宏另存及提取属性命令

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块

通知

[求助] solidworks 宏 另存及提取属性命令

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块

[求助] solidworks 宏另存及提取属性命令