把代码直接复制到空的宏文件里即可用
工程图一键到处PDF 到 工程图所在文件夹内，不需要多余操作

各位朋友，最近发现装配体下面压缩和无效的配合太多，只能一个批量选中再删除，现在想找一个自动删除装配体下无效和压缩的配合的宏，提高效率？谢谢

请问大侠们，有没有一键删除错误配合的宏程序啊

哪位大佬能将这个图号分离宏（带方程式）修改为遍历宏将这个宏，修改可以遍历正在打开的装配体，并对装配体下的每个零件进行遍历宏的操作。里面的“零件号”和“Description”等识别字不变。非常感谢！
下面是宏程序的代码（附件中也有宏程序可下载）
' ******************************************************************************
' 利用方程式实现图号分离.swp - By Allate, 2022-12-30
' ******************************************************************************
' 说明：
' 1. 本宏自动添加自定义属性代码以及方程式，再利用方程式进行图号分离；
' 2. 图号分离利用的符号是【空格】。
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
On Error Resume Next
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel.GetType = 1 Then
swModel.AddCustomInfo3 "", "零件号代码", swCustomInfoText, "art.Extension.CustomPropertyM ...查看全文

方程式图号分离（批量配置特定/自定义）
补充的内容 (2025-12-3 15:17):
批量自定义升级版在7#,跳过相同零件