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

floodingrenyi

把装配图自定义属性里面的图号和图名作为新文件名(格式:图号+空格+图名),要是装配图有工程图,连带着一块改名.新装配图要和工程图关联.
: i  {4 b( r' ?, C: ]0 I' b

青春如此清纯

添加下就可以了

青春如此清纯

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

青春如此清纯

自己用的文件

floodingrenyi

青春如此清纯 发表于 2018-12-8 11:06
自己用的文件

( I5 w* A, r+ E' @7 K$ D8 E我是想把配置里有图名和图号的装配图,运行宏自动另存成"图号 图名".我弄了零件图的宏,怎么改都出错,就是弄不成装配图

NC@jiang@nan

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

NC@jiang@nan

/ O# d8 A* Y, |- ]8 d

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

5 d1 \. `, x* b+ V7 h你贴的这个教程页的宏代码，只能说目前你还没碰到问题，如果深究宏代码的话是有问题的，比如
a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
% D/ W- e- p% }8 _9 ?7 GIf a > 0 Then
    k = Left(c, a)
. r: A! J7 W1 z  |# X$ V& k    t = Left(LTrim(e), 3)
  @  p- E% u- P, r$ h这一段，前面并没有定义或者获取这个"e"变量，而这一段突然凭空出现的这个e，如果深究起来应该是会报错的，只是因为你前面有那个if，所以没有跳过了这一段。我觉得 t = Left(LTrim(e), 3) 应该是 t = Left(LTrim(k), 3) 才是正确的代码，获取截取的前半段去除空格后的前三个字母。
: E$ X2 y  c2 O: M; G, y3 d% L/ ?

飞天鸟

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

秋韵舞-江枫

4 r5 y0 J$ q3 ~; N我可以帮你做一个打包功能的.exe工具，功能只选择你要打包的装配体文件和装配体工程图，其余装配体下的零件和工程图均不打包，工具内可选择替换装配体图号和名称的选项，还有你要复制的目标路径。

floodingrenyi

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

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