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

floodingrenyi

把装配图自定义属性里面的图号和图名作为新文件名(格式:图号+空格+图名),要是装配图有工程图,连带着一块改名.新装配图要和工程图关联.

青春如此清纯

添加下就可以了

青春如此清纯

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

青春如此清纯

自己用的文件

floodingrenyi

青春如此清纯 发表于 2018-12-8 11:06
( a! j9 E: ~, {3 O  O3 C自己用的文件

% j& T7 H7 B% t# _% K) ?我是想把配置里有图名和图号的装配图,运行宏自动另存成"图号 图名".我弄了零件图的宏,怎么改都出错,就是弄不成装配图

NC@jiang@nan

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

NC@jiang@nan

% I. {8 q4 s0 l

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

你贴的这个教程页的宏代码，只能说目前你还没碰到问题，如果深究宏代码的话是有问题的，比如
  h  W  S. K3 k9 J1 M# ta = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
    k = Left(c, a)
0 O+ @; a1 V, ~6 x9 [; \3 Y7 o9 l    t = Left(LTrim(e), 3)
5 f# n) Q4 Q' c1 M! F8 F, @这一段，前面并没有定义或者获取这个"e"变量，而这一段突然凭空出现的这个e，如果深究起来应该是会报错的，只是因为你前面有那个if，所以没有跳过了这一段。我觉得 t = Left(LTrim(e), 3) 应该是 t = Left(LTrim(k), 3) 才是正确的代码，获取截取的前半段去除空格后的前三个字母。

飞天鸟

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

秋韵舞-江枫

! e* Y7 L9 r1 I' @& t+ ~  _0 d
我可以帮你做一个打包功能的.exe工具，功能只选择你要打包的装配体文件和装配体工程图，其余装配体下的零件和工程图均不打包，工具内可选择替换装配体图号和名称的选项，还有你要复制的目标路径。

floodingrenyi

秋韵舞-江枫 发表于 2018-12-14 16:38
" G! a! R& z% X5 s/ f+ V! [/ {我可以帮你做一个打包功能的.exe工具，功能只选择你要打包的装配体文件和装配体工程图，其余装配体下的零件 ...

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