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

floodingrenyi

把装配图自定义属性里面的图号和图名作为新文件名(格式:图号+空格+图名),要是装配图有工程图,连带着一块改名.新装配图要和工程图关联.
- L  |& O* T$ l8 O; O5 X

青春如此清纯

添加下就可以了

青春如此清纯

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

青春如此清纯

自己用的文件

floodingrenyi

青春如此清纯 发表于 2018-12-8 11:06
; S; n- o3 }% p( s" E$ W自己用的文件

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

NC@jiang@nan

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

NC@jiang@nan

) j" U! N% V6 k/ ~- z/ b

青春如此清纯 发表于 2018-12-8 11:06
5 _% d) u2 u+ z4 B/ i3 {  W3 ?很好用 添加下 就行了  添加教程https://jingyan.baidu.com/article/63acb44aded44661fdc17e75.html

你贴的这个教程页的宏代码，只能说目前你还没碰到问题，如果深究宏代码的话是有问题的，比如
a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
6 h# b1 d" l+ w8 T/ X2 d8 FIf a > 0 Then
- {( E- ^: B: X, b* j    k = Left(c, a)
    t = Left(LTrim(e), 3)
6 C( u1 q) L& n' x0 E3 F这一段，前面并没有定义或者获取这个"e"变量，而这一段突然凭空出现的这个e，如果深究起来应该是会报错的，只是因为你前面有那个if，所以没有跳过了这一段。我觉得 t = Left(LTrim(e), 3) 应该是 t = Left(LTrim(k), 3) 才是正确的代码，获取截取的前半段去除空格后的前三个字母。

飞天鸟

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

秋韵舞-江枫

( y+ e4 X  }& |
我可以帮你做一个打包功能的.exe工具，功能只选择你要打包的装配体文件和装配体工程图，其余装配体下的零件和工程图均不打包，工具内可选择替换装配体图号和名称的选项，还有你要复制的目标路径。

floodingrenyi

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

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