SW宏内嵌和快速运行

小人Mτ

最近使用SW出图较多，从网上搜索到图号分离的宏，还有一个通过方程式自动图号分离的方式，方式很简单，过程如下：
1.在零件的属性里面添加宏代码到任意一个属性值中，宏代码内容只有一行，就是更改属性值；
' D- ^2 V* g4 v- k' ^7 b2.在方程式中新建任意一个名字的变量，变量值引用步骤1中的属性名；
3.更新文件；
- s- D0 L- h) a' `
经过分析，实现原理是，当文件更新或重建时，会先更新方程式，然后方程式就会将零件属性里面的宏代码运行。当属性里面的宏代码运行的时候，就将需要的属性值更改完成。附图如下。
7 B3 x% p; O5 `9 @+ r, @宏代码：
7 i2 a# r. v; {, x/ W  j- ~Part.Extension.CustomPropertyManager("").Set("零件代号",Left(Part.GetTitle,InStr(Part.GetTitle," ")))
Part.Extension.CustomPropertyManager("").Set("零件名称",mid(Part.GetTitle,InStr(Part.GetTitle," ")+1,Len(Part.GetTitle)-7-InStr(Part.GetTitle," ")))
" t9 M* G/ ~; V0 B8 Z5 K

注意，文件夹选项里面如果隐藏后缀名需要吧第二行代码的-7去掉。

9 J: }' w& E! i

上述步骤很有意思，也很有扩展性，比如讲宏代码写成msgbox("哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈")就会在更新的时候弹出对话框，再换成其它的宏代码就会有更有意思的事情了。
所以，不要轻易从网上下载东西哦
( H  V( u5 u2 L! Q

/ R4 x8 C  c4 H
5 V4 f) S* v: Q2 O, p
; d$ L- a; ^$ o6 v  {) R7 D


& B" N, Q; o1 Y0 g0 o+ q

墨青zalon

这样也行吗，看起来很简单，我的都是几十行代码的宏，每次需要读取零件属性才能进行图号分离的

renpp0167

我用你的方法试验了一下，并没有起作用啊，更新文件，保存退出再打开，试了好多次也没有生效呢。
不知道问题是出在哪里？没有用过这样的功能，第一次尝试。

凸轮机械手

没用过宏......

小人Mτ

renpp0167 发表于 2018-11-26 08:44
: @3 [4 X9 _- K2 h/ y9 D5 G. V% `6 R我用你的方法试验了一下，并没有起作用啊，更新文件，保存退出再打开，试了好多次也没有生效呢。
) d6 P% o' S, e不知道问 ...

/ Y3 w# B3 P6 P3 i$ @, ^
$ L, D9 |1 ^3 j, P$ ]% v这个文件试试，这是我用的，版本2017
2 a# C& A' f* o" e6 V: g/ z2 w; v* z
7 v0 d( P6 U# w5 |3 C
3 Y) u, N, \# ]0 o' j+ t. z

renpp0167

咦，怪事呢，用你的文件就可以更新。我自己设计的文件就不能自动。我的模板文件有问题？
# a' U5 ]- W4 B! W0 l
  i; a; q) h2 b- s. P, f  K! v补充内容 (2018-12-5 16:10):
; @* }& G$ w2 w: x$ a我上次就是直接复制的你的代码。这次用你的文件打开发现好使，我就把你文件里的代码拷进我的文件里了。结果竟然还是不好使！我要疯了，你的是2018版本吗？

怕瓦落地2011

先收藏了

怕瓦落地2011

此宏装配体无效
2 I7 p+ M4 d* e" R$ e* L! Q

chenglida2018

谢谢楼主

jfcfree

10版的SW能用吗
3 v5 u! I) ?% G: X