SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 帮忙优化大神tg000057编写的工程图批量合并DWG文件宏 [打印本页]

作者: Jiajun_16888 时间: 2023-4-30 10:35
标题: 帮忙优化大神tg000057编写的工程图批量合并DWG文件宏
用了下大神编写的宏，如下的地方谁能帮忙优化下，使更好用
1.帮忙合图前所有标注及块或所有图元打散，因为现有更改名称，圆孔异形标注时有时标注值会变，图形没变，如从1.18变到1.17，公差小数点丢失，手工试的话，就是复制图纸到空白的CAD文档都值会变，只有将标注打散才行
2.帮忙将某大神的类似选择文件添加进去，可以多次添加文件或文件夹及子目录内文件，因为我们图纸分布在不同文件夹。
3.将不同图纸依属性合并到不同的CAD文件内，如自定义 Part type 属性里：钣金件，圆件，精密件，普通件，无及没该属性的
4.合并后，清理图档多余块及图层，将文件保存，并在CAD里将合图状况提示，如：合图完成，钣金件*张圆件*张。。。。

合并.zip

（540.09 KB, 下载次数: 73 ）

作者: Jiajun_16888 时间: 2023-4-30 23:11
更新下附件

合并NEW.zip

（479.22 KB, 下载次数: 49 ）

作者: woaixiaoai 时间: 2023-5-2 16:03
顶一下，坐等高手！

作者: lzh2005 时间: 2023-5-5 17:56
SolidWorks机械工程师网，顶一下。

作者: dengchenghui 时间: 2023-9-23 09:20
更新改好了吗

作者: 沉默的人 时间: 2023-9-23 09:26
顶一下，坐等高手！

作者: wetiuer 时间: 2023-9-27 21:10
看了楼主的需求，我有差不多类似的小工具可以实现，先说明不是VBA哈，是VB.NET编写的独立EXE，可以实现以下功能：
1.solidworks工程图导出的DWG\DXF文件中块、标注样式、文字样式、表格样式等都会重命名，防止合并到一个文档中重名。修改文字以及尺寸的显示问题。清理多余的块、标注样式、文字样式等，与CAD中的清理功能相同，以及将图框制作成块，图框总的链接注释为块的增强属性。等等功能
2.将多张DWG\DXF文件合并到一个文件，前提需要自己选择那些文件合并到当前一个文件中，不能像楼主说的通过自定义属性实现，感觉这中适应范围太小。

实现以上功能的前提是要有安装AutoCAD2007，如果感兴趣的，可以去尝试使用，工具MyTools在我的另一个帖子中。

作者: q289100229 时间: 2023-11-14 15:30
这是实现什么作用的宏

作者: q289100229 时间: 2023-11-14 15:32
原贴子在哪里啊，我去看看

作者: zzm5337 时间: 2023-11-23 11:02
很不错，找到组织了！

作者: ZZG379019194 时间: 2023-12-13 13:36

Jiajun_16888 发表于 2023-4-30 23:11
更新下附件

好品数字
顶一下，坐等高手！

作者: Jiajun_16888 时间: 2023-12-14 23:03
AutoCAD 合并图纸使用
1.适合2019及2020,其它版本没试过
2.适合3D标注后,转DWG图后需合并为一张DWG图纸的
3.CAD内使用NETLOAD 加载CADMerge1,输入HBB命令
4.增加外框,可批量打印
5.虚线及CENTER图层自动变颜色
6.可多选文件或文件夹
7.合图速度快,约0.2秒不到合一张图纸
8.图纸都有炸开,请知悉9.仅限私人使用不可做商业用途
仅分享,自己检查好,引起的问题概不负责,请知悉!

: 下载附件保存到相册

2023-12-14 23:01 上传

ACADMerge.zip

（1.4 MB, 下载次数: 60 售价: 100 金币 ）

作者: Jiajun_16888 时间: 2023-12-15 07:49
标题: RE: 帮忙优化大神tg000057编写的工程图批量合并DWG文件宏
Qqdjsjdjjdjdjdjdjdjdjjd

作者: Jiajun_16888 时间: 2023-12-16 23:52
合并图纸已经解决,结束,以解决

作者: 听见天晴 时间: 2023-12-21 11:17
请教一下为什么我没办法使用？
无法加载程序集。错误详细信息: System.IO.FileNotFoundException: 未能加载文件或程序集“accoremgd,
Version=23.0.0.0, Culture=neutral, PublicKeyToken=null”或它的某一个依赖项。系统找不到指定的文件。
文件名:“accoremgd, Version=23.0.0.0, Culture=neutral, PublicKeyToken=null”
在 System.ModuleHandle.ResolveType(RuntimeModule module, Int32 typeToken,
IntPtr* typeInstArgs, Int32 typeInstCount, IntPtr* methodInstArgs, Int32
methodInstCount, ObjectHandleOnStack type)
在 System.ModuleHandle.ResolveTypeHandleInternal(RuntimeModule module, Int32
typeToken, RuntimeTypeHandle[] typeInstantiationContext, RuntimeTypeHandle[]
methodInstantiationContext)
在 System.Reflection.RuntimeModule.ResolveType(Int32 metadataToken, Type[]
genericTypeArguments, Type[] genericMethodArguments)
在
System.Reflection.CustomAttribute.FilterCustomAttributeRecord(CustomAttributeRec
ord caRecord, MetadataImport scope, Assembly& lastAptcaOkAssembly,
RuntimeModule decoratedModule, MetadataToken decoratedToken, RuntimeType
attributeFilterType, Boolean mustBeInheritable, Object[] attributes, IList
derivedAttributes, RuntimeType& attributeType, IRuntimeMethodInfo& ctor,
Boolean& ctorHasParameters, Boolean& isVarArg)
在 System.Reflection.CustomAttribute.GetCustomAttributes(RuntimeModule
decoratedModule, Int32 decoratedMetadataToken, Int32 pcaCount, RuntimeType
attributeFilterType, Boolean mustBeInheritable, IList derivedAttributes,
Boolean isDecoratedTargetSecurityTransparent)
在 System.Reflection.CustomAttribute.GetCustomAttributes(RuntimeMethodInfo
method, RuntimeType caType, Boolean inherit)
在
Autodesk.AutoCAD.ApplicationServices.AutoCADApplicationHolder.Initialize(Assembl
y assembly)
在
Autodesk.AutoCAD.ApplicationServices.ExtensionLoader.ProcessAssembly(Assembly
assembly)
警告: 程序集绑定日志记录被关闭。
要启用程序集绑定失败日志记录，请将注册表值 [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD)设置为 1。
注意: 会有一些与程序集绑定失败日志记录关联的性能损失。
要关闭此功能，请移除注册表值 [HKLM\Software\Microsoft\Fusion!EnableLog]。

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)