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

floodingrenyi

把装配图自定义属性里面的图号和图名作为新文件名(格式:图号+空格+图名),要是装配图有工程图,连带着一块改名.新装配图要和工程图关联.
- A% Y( {; ~! L1 o5 `7 {. S/ X

青春如此清纯

添加下就可以了

青春如此清纯

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

青春如此清纯

自己用的文件

floodingrenyi

青春如此清纯 发表于 2018-12-8 11:06
7 x3 B/ d+ A8 x# J4 H自己用的文件

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

NC@jiang@nan

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

NC@jiang@nan

6 w1 y- G! _* _4 s

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

% ?3 e5 o* [$ e# r' x5 ]你贴的这个教程页的宏代码，只能说目前你还没碰到问题，如果深究宏代码的话是有问题的，比如
a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
! w5 n6 ]1 T2 @9 H! q7 \If a > 0 Then
6 W$ z8 I8 P& P9 {8 f# I    k = Left(c, a)
6 e& s8 `9 {0 t  i' }8 W    t = Left(LTrim(e), 3)
  _6 L2 y0 W4 A  Y; ^% y6 y这一段，前面并没有定义或者获取这个"e"变量，而这一段突然凭空出现的这个e，如果深究起来应该是会报错的，只是因为你前面有那个if，所以没有跳过了这一段。我觉得 t = Left(LTrim(e), 3) 应该是 t = Left(LTrim(k), 3) 才是正确的代码，获取截取的前半段去除空格后的前三个字母。

飞天鸟

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

秋韵舞-江枫

7 U. b3 s+ S: P$ b! w+ b6 R  R+ S我可以帮你做一个打包功能的.exe工具，功能只选择你要打包的装配体文件和装配体工程图，其余装配体下的零件和工程图均不打包，工具内可选择替换装配体图号和名称的选项，还有你要复制的目标路径。
, d( g+ A& A, r' a: v

floodingrenyi

秋韵舞-江枫 发表于 2018-12-14 16:38
, U% I; O  o' f8 }7 o我可以帮你做一个打包功能的.exe工具，功能只选择你要打包的装配体文件和装配体工程图，其余装配体下的零件 ...

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