帮忙优化大神tg000057编写的工程图批量合并DWG文件宏

Jiajun_16888

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

Jiajun_16888

更新下附件

woaixiaoai

顶一下，坐等高手！

lzh2005

SolidWorks机械工程师网，顶一下。

dengchenghui

   经典案例图书

更新  改好了吗

沉默的人

顶一下，坐等高手！

wetiuer

   经典案例图书

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

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

q289100229

这是实现什么作用的宏

q289100229

原贴子在哪里啊，我去看看

zzm5337

很不错，找到组织了！

ZZG379019194

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

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

Jiajun_16888

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

Jiajun_16888

Qqdjsjdjjdjdjdjdjdjdjjd

Jiajun_16888

合并图纸已经解决,结束,以解决

听见天晴

加入QQ群
参与讨论和学习

或扫描二维码加入

请教一下为什么我没办法使用？
无法加载程序集。错误详细信息: 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]。