SW宏內(nèi)嵌和快速運(yùn)行

小人Mτ

最近使用SW出圖較多,，從網(wǎng)上搜索到圖號(hào)分離的宏,，還有一個(gè)通過方程式自動(dòng)圖號(hào)分離的方式，方式很簡(jiǎn)單,，過程如下：
% V7 ]* r1 v9 N3 S. D1.在零件的屬性里面添加宏代碼到任意一個(gè)屬性值中,，宏代碼內(nèi)容只有一行，就是更改屬性值,；
2.在方程式中新建任意一個(gè)名字的變量,，變量值引用步驟1中的屬性名；
3.更新文件,；
( b+ u8 |9 w5 A: W5 ]1 }
經(jīng)過分析,，實(shí)現(xiàn)原理是，當(dāng)文件更新或重建時(shí),，會(huì)先更新方程式,，然后方程式就會(huì)將零件屬性里面的宏代碼運(yùn)行。當(dāng)屬性里面的宏代碼運(yùn)行的時(shí)候,，就將需要的屬性值更改完成,。附圖如下。
宏代碼：
Part.Extension.CustomPropertyManager("").Set("零件代號(hào)",Left(Part.GetTitle,InStr(Part.GetTitle," ")))
1 V& Y* v% Z6 v5 \% kPart.Extension.CustomPropertyManager("").Set("零件名稱",mid(Part.GetTitle,InStr(Part.GetTitle," ")+1,Len(Part.GetTitle)-7-InStr(Part.GetTitle," ")))


注意,，文件夾選項(xiàng)里面如果隱藏后綴名需要吧第二行代碼的-7去掉,。
; s' D6 K! e& A7 A
" K$ a2 g1 Y$ l
. R# X- q# @( e2 m% e
) i/ I* H2 k0 @1 J, e' @1 D上述步驟很有意思，也很有擴(kuò)展性,，比如講宏代碼寫成msgbox("哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈")就會(huì)在更新的時(shí)候彈出對(duì)話框,，再換成其它的宏代碼就會(huì)有更有意思的事情了。
所以,，不要輕易從網(wǎng)上下載東西哦
  ~6 ?3 d( V' ?7 G
9 w5 U: l" i% K6 D6 \7 D3 V  T



; s2 c1 F/ q7 C0 I7 w( w


% J/ b% ?, E, B

墨青zalon

這樣也行嗎,，看起來很簡(jiǎn)單，我的都是幾十行代碼的宏,，每次需要讀取零件屬性才能進(jìn)行圖號(hào)分離的

renpp0167

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

凸輪機(jī)械手

沒用過宏......

小人Mτ

renpp0167 發(fā)表于 2018-11-26 08:44
) U4 w4 T$ s3 Y0 e我用你的方法試驗(yàn)了一下,，并沒有起作用啊，更新文件,，保存退出再打開,，試了好多次也沒有生效呢。
不知道問 ...

+ \4 j* m' A; U) E) @4 F" D! `- n1 b. M
這個(gè)文件試試,，這是我用的,，版本2017
. f# M2 ^; u' r, B! t5 w: p
& j# [+ U4 P' [% z
: P7 M0 F; e: y' F% d5 s' ?

renpp0167

咦，怪事呢,，用你的文件就可以更新,。我自己設(shè)計(jì)的文件就不能自動(dòng)。我的模板文件有問題,？
' \1 E7 {! n/ q2 }8 P% \$ Z! d
9 W# n4 b( H% @4 k( G: F4 S, X3 P補(bǔ)充內(nèi)容 (2018-12-5 16:10):
# D4 P" X; p2 P( R9 y# g7 y- I我上次就是直接復(fù)制的你的代碼。這次用你的文件打開發(fā)現(xiàn)好使,，我就把你文件里的代碼拷進(jìn)我的文件里了,。結(jié)果竟然還是不好使！我要瘋了,，你的是2018版本嗎,？

怕瓦落地2011

先收藏了

怕瓦落地2011

此宏裝配體無效

chenglida2018

謝謝樓主

jfcfree

10版的SW能用嗎