哪位仁兄有"装配图另存"宏,奖励100三维币

floodingrenyi

把装配图自定义属性里面的图号和图名作为新文件名(格式:图号+空格+图名),要是装配图有工程图,连带着一块改名.新装配图要和工程图关联.
7 d7 O/ y9 }- y) E8 C! x

青春如此清纯

添加下就可以了

青春如此清纯

很好用 添加下 就行了  添加教程https://jingyan.baidu.com/article/63acb44aded44661fdc17e75.html

青春如此清纯

自己用的文件

floodingrenyi

青春如此清纯 发表于 2018-12-8 11:06
0 Y5 [1 Q+ d) f$ Z3 S自己用的文件

我是想把配置里有图名和图号的装配图,运行宏自动另存成"图号 图名".我弄了零件图的宏,怎么改都出错,就是弄不成装配图

NC@jiang@nan

装配图要另存为，还要保留关联关系，那估计得用SW自带的打包功能了，而用打包功能则可能把标准件什么的全打进压缩包里。
在三维网论坛混得这么多年，还真的没看到有人讨论过这种思路。

NC@jiang@nan

青春如此清纯 发表于 2018-12-8 11:06
很好用 添加下 就行了  添加教程https://jingyan.baidu.com/article/63acb44aded44661fdc17e75.html

- A. h$ g( l6 |) I. m$ m- x; `你贴的这个教程页的宏代码，只能说目前你还没碰到问题，如果深究宏代码的话是有问题的，比如
) G6 v1 a  S" B; D$ Da = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
) R0 F" b8 T4 H! |4 z$ tIf a > 0 Then
    k = Left(c, a)
; O$ v# {) p. b; F    t = Left(LTrim(e), 3)
; B" o5 {. O. M& B; T9 F" k- N这一段，前面并没有定义或者获取这个"e"变量，而这一段突然凭空出现的这个e，如果深究起来应该是会报错的，只是因为你前面有那个if，所以没有跳过了这一段。我觉得 t = Left(LTrim(e), 3) 应该是 t = Left(LTrim(k), 3) 才是正确的代码，获取截取的前半段去除空格后的前三个字母。
/ y4 S- t5 B8 M' \! C+ x

飞天鸟

我通常是反过来，另存新名称，然后宏将新名称分解出图号与说明写入自定义属性中。

秋韵舞-江枫

8 v* m+ w0 u/ b& \# `
0 v/ \: a. |# R6 X7 y我可以帮你做一个打包功能的.exe工具，功能只选择你要打包的装配体文件和装配体工程图，其余装配体下的零件和工程图均不打包，工具内可选择替换装配体图号和名称的选项，还有你要复制的目标路径。

floodingrenyi

秋韵舞-江枫 发表于 2018-12-14 16:38
" W; b$ N3 G, W$ n& ?' L, R, r我可以帮你做一个打包功能的.exe工具，功能只选择你要打包的装配体文件和装配体工程图，其余装配体下的零件 ...

搞了好久还买了二次开发的书都没找到合适的办法。最后装了个SW插件外挂，人家软件里面有个功能是“另存零件时候把工程图也另存一份”，这样子暂时解决了这个问题。