宏程序要能实现将最大尺寸链接到自定义属性中“材料大小”，显示格式"长X宽X高"，还能区分轴类零件，轴类零件显示“Φ最大外径X长度”最好是不要建立边界框的模式，主要方便变更尺寸后会自动变化。

有高手能把下列镜向宏增加镜向装饰螺纹孔、模型尺寸这两个参数吗？
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim swPartName1 As String
Dim swPartName2 As String
Dim swPartName3 As String
Dim swPartName4 As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
swApp.SendMsgToUser2 "请打开一个零件", swMbStop, swMbOk
Exit Sub
End If
Set swPart = swModel
swPartName1 = swPart.GetPathName
swPartName2 = Right(swPartName1, 7)
swPartName3 = Left(swPartName1, Len(swPartName1) - Len(swPartName2))
swPartName4 = swPartName3 & "镜向" & swPartName2
boolstatus = swModel.Extension.SelectByID2("前视基准面", "LANE", 0, 0, 0, False, 0, Nothing, 0)
swPart.MirrorPart2 False, swMirrorPartOptions_Import ...查看全文

1.保存DWG PDF：工程图使用，工程图保存为DWG、PDF两种格式。
2.保存IGS：零件、装配体使用，保存为IGS格式。
3.保存PDF：工程图使用，工程图保存为PDF格式。
4.保存STEP：零件、装配体使用，保存为STEP格式。
5.保存关闭:保存并关闭图形
6.公差：常用公差
7.切换图与零件：工程图与零件来回切换
8.带从属关系显示：字面意思
9.模型位置：打开模型保存位置
10.清除悬空尺寸：工程图使用，清除无效悬空尺寸
11.装配删压缩：删除装配体中顶层所有压缩文件
12.装配排序：字面意思
13.解除回退：字面意思
14.透明改不透明：字面意思
14.零件删压缩：删除零件中所有压缩特征、草图、基准面。

有没有工具或宏能将文件夹中所有零件、装配体生成BOM表。

附件宏程序，零件删除压缩特征，但相应草图还保留，求大佬修改代码可以同时删除压缩特征与相应草图

如图，求装配体1 一键解散第一层所有子装配体宏程序，注意第一层子装配体再包含的子装配体不要解散。

25版装配体中鼠标框选多个特征时，左侧设计树不高亮显示选中特征，必须要强制刷新一下，点击单个特征时设计树会高亮显示，什么原因那里设定不对，以前没有遇到过。
[media=mp4,600,500][/media]

有没有装配体“清理未使用的特征”宏程序，这个比较常用，每次都要先选择压缩特征再删除，是否有宏程序一键删除压缩特征，但不要删除子装配体中的压缩特征。