SW宏內嵌和快速運行

小人Mτ

最近使用SW出圖較多，從網上搜索到圖號分離的宏，還有一個通過方程式自動圖號分離的方式，方式很簡單，過程如下：
1.在零件的屬性里面添加宏代碼到任意一個屬性值中，宏代碼內容只有一行，就是更改屬性值；
" f! o5 g+ a, G  X2.在方程式中新建任意一個名字的變量，變量值引用步驟1中的屬性名；
3.更新文件；

# C. S- E5 h0 V0 n& \經過分析，實現原理是，當文件更新或重建時，會先更新方程式，然后方程式就會將零件屬性里面的宏代碼運行。當屬性里面的宏代碼運行的時候，就將需要的屬性值更改完成。附圖如下。
宏代碼：
Part.Extension.CustomPropertyManager("").Set("零件代號",Left(Part.GetTitle,InStr(Part.GetTitle," ")))
6 w6 V: u8 o* J2 B/ O6 s( o% t- OPart.Extension.CustomPropertyManager("").Set("零件名稱",mid(Part.GetTitle,InStr(Part.GetTitle," ")+1,Len(Part.GetTitle)-7-InStr(Part.GetTitle," ")))

) C6 n+ U2 m0 o& j, a; o
' Z# z; i( \2 [% W# ?# x! \/ |注意，文件夾選項里面如果隱藏后綴名需要吧第二行代碼的-7去掉。

  H- K, |! V9 _! l# `& R) W
/ Q" N; I8 l/ u% ?
5 Q/ \% K1 h1 E上述步驟很有意思，也很有擴展性，比如講宏代碼寫成msgbox("哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈")就會在更新的時候彈出對話框，再換成其它的宏代碼就會有更有意思的事情了。
. q; e& T* J# D所以，不要輕易從網上下載東西哦
( Y# [/ [/ r6 V6 ?& D! u
0 j+ c3 @6 D: F# M- Z+ p
0 @/ d5 N* _( G8 B8 h5 L, f

; J& X, X% B/ C! P
/ x1 h- a; K, Z) I$ S7 T
# ^0 @' T4 A5 C. ]5 q) \. i
8 J# j8 `8 ?. I- J

墨青zalon

這樣也行嗎，看起來很簡單，我的都是幾十行代碼的宏，每次需要讀取零件屬性才能進行圖號分離的

renpp0167

我用你的方法試驗了一下，并沒有起作用啊，更新文件，保存退出再打開，試了好多次也沒有生效呢。
不知道問題是出在哪里？沒有用過這樣的功能，第一次嘗試。

凸輪機械手

沒用過宏......

小人Mτ

renpp0167 發表于 2018-11-26 08:44
  ]' c8 e9 A! p/ j  b, P6 _9 j我用你的方法試驗了一下，并沒有起作用啊，更新文件，保存退出再打開，試了好多次也沒有生效呢。
不知道問 ...

6 @3 b* ]: |9 \: h* m) B9 M8 Z
這個文件試試，這是我用的，版本2017
6 r# }( F' R! ~7 N
7 i4 y" a9 H1 X( d/ F

renpp0167

咦，怪事呢，用你的文件就可以更新。我自己設計的文件就不能自動。我的模板文件有問題？

: P% N8 m+ F9 b$ Y. a補充內容 (2018-12-5 16:10):
4 ^! Y" ^" `0 a! o我上次就是直接復制的你的代碼。這次用你的文件打開發現好使，我就把你文件里的代碼拷進我的文件里了。結果竟然還是不好使！我要瘋了，你的是2018版本嗎？

怕瓦落地2011

先收藏了

怕瓦落地2011

此宏裝配體無效

chenglida2018

謝謝樓主

jfcfree

10版的SW能用嗎