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

标题: 【改良】批量获取自定义属性及缩略图保存到Excel的宏 [打印本页]

作者: Allate 时间: 2020-12-9 14:38
标题: 【改良】批量获取自定义属性及缩略图保存到Excel的宏
源头点这里。

说明: 该宏可以批量输出指定文件下solidworks模型的自定义属性及缩略图到excel文件中。
前提条件: 打开指定装配体文件
最后结果: 该宏将批量输出指定文件下solidworks模型的自定义属性及缩略图到excel文件中并存储到桌面上。
1.该程序只针对装配体树状结构下的子文件
2.可对于属性值及属性评估值进行判断，有评估值的输出评估数值，否则输出属性值
作者：lhl，2017.07.28
改编：Allate，2020.12.09
版本：V2.0

主要改进三处：
1. 将原版的选择打开位置，更改为以当前打开的装配体文件为准。
2. 将遍历的范围由文件夹改为装配体的结构树。
3. 改良算法，提速。

批量输出文件属性及缩略图到Excel_2021-08-17.zip (26.45 KB, 下载次数: 698, 售价: 10 金币)

2021-08-17更新，解决存在轻化部件和压缩部分导致的输出出错问题。
适当提高一下门槛，见谅。

作者: hdgd501 时间: 2020-12-9 21:45
楼主很专业，写得很好！

作者: surprisehy 时间: 2020-12-10 10:15
楼主太有才了，膜拜中……

作者: quanshouzhu 时间: 2020-12-10 12:09
付了金币无法下载没有权限是什么鬼？

作者: suwenfeng1125 时间: 2020-12-10 12:12
感谢楼主分享，很不错！

作者: quanshouzhu 时间: 2020-12-10 12:20
运行后跳出个EXCEL，啥内容都没有！

作者: Allate 时间: 2020-12-10 13:48

quanshouzhu 发表于 2020-12-10 12:20
运行后跳出个EXCEL，啥内容都没有！

试一下这个，不行就没办法了。

作者: quanshouzhu 时间: 2020-12-10 14:40
都勾选了，一样的没反应

: 下载附件保存到相册

2020-12-10 14:40 上传

作者: xiabutan 时间: 2020-12-10 15:22
版主，是不是论坛出了问题，无法下载文件，点击下载跳出下载页面后瞬间关掉了。

作者: Allate 时间: 2020-12-11 08:27

quanshouzhu 发表于 2020-12-10 14:40
都勾选了，一样的没反应

你这个好像是没有权限写入Excel，太复杂了，我水平不足搞不定，尴尬。

作者: 花落ヽ莫相离 时间: 2020-12-11 10:00
谢谢分享

作者: 专门设计 时间: 2020-12-11 10:53

xiabutan 发表于 2020-12-10 15:22
版主，是不是论坛出了问题，无法下载文件，点击下载跳出下载页面后瞬间关掉了。

用谷歌浏览器或360浏览器，就可以了，使用WIN 10自带浏览器，需要设置一下
https://www.swbbsc.com/thread-307591-1-1.html

作者: 夕梦恋 时间: 2020-12-11 11:09
楼主太有才了，膜拜中……

作者: 夕梦恋 时间: 2020-12-11 11:11
速度是快了但是没有属性那一栏设置，比如我想要输出什么属性的没有那个选项呢

作者: 夕梦恋 时间: 2020-12-11 11:15
还有第三方链接的材质属性也显示不出来

作者: Allate 时间: 2020-12-11 11:28

夕梦恋发表于 2020-12-11 11:11
速度是快了但是没有属性那一栏设置，比如我想要输出什么属性的没有那个选项呢

这个属性，可以自己设置的，见下图。

至于第三方材质库的，不清楚，不知道，不要问我

作者: 夕梦恋 时间: 2020-12-11 19:29

Allate 发表于 2020-12-11 11:28
这个属性，可以自己设置的，见下图。

至于第三方材质库的，不清楚，不知道，不要问我

好的我自己去试试这样的话应该可以加载第三方的材质

作者: 刘茂机械 时间: 2020-12-14 17:49
下载了 16版本的没有反应呢

作者: zhanhuic 时间: 2020-12-17 09:37
点击下载，网页直接跳掉，什么原因？楼主能发我邮箱吗？zhanhuic@126.com，谢谢。

作者: superale 时间: 2020-12-17 20:19
好东西，努力学习学习！

作者: 18361067980 时间: 2020-12-17 22:20
楼主很专业，写得很好

作者: storyli 时间: 2020-12-18 22:02
好好学习，天天向上！

作者: red1945 时间: 2020-12-21 09:16
好东西，就是用不了

作者: BAALZHANG 时间: 2021-1-4 19:58

楼主太有才了，膜拜中……

作者: BAALZHANG 时间: 2021-1-4 20:10
好东西，努力学习学习！

作者: pjhzdq 时间: 2021-1-12 18:01
楼主辛苦了！

作者: pjhzdq 时间: 2021-1-12 18:06
很不错，顶一下！

作者: pjhzdq 时间: 2021-1-12 18:08
活到老学到老！

作者: pjhzdq 时间: 2021-1-12 18:09
很不错，找到组织了！

作者: pjhzdq 时间: 2021-1-12 18:13
感谢楼主分享，很不错！

作者: pjhzdq 时间: 2021-1-12 18:15
SW机械工程师网，找到组织了！

作者: pjhzdq 时间: 2021-1-12 18:19
好好学习，天天向上！

作者: 零度以下 时间: 2021-1-13 16:14
楼主，我打开运行一直出现找不到工程或库就是图片种的EXECL14.0显示丢失

: 下载附件保存到相册

2021-1-13 16:12 上传

作者: Allate 时间: 2021-1-13 17:07

零度以下发表于 2021-1-13 16:14
楼主，我打开运行一直出现找不到工程或库就是图片种的EXECL14.0显示丢失

可能你安装的Office版本不一样，找一下你的引用里面其它版本的Excel控件吧，比如Excel12.0之类的。
如果你没有安装Office而是用的WPS的话，不知道是否应该劝你放弃治疗。

作者: tg000057 时间: 2021-1-14 08:50
我用的是sw2019.sp5.0，之前是用历遍文件夹导execl的清单，没有问题，刚下了这个历遍装配体的，只出来一个表头就没有，不知道是什么原因，希望楼主帮忙解答一下！

作者: yjh2016520 时间: 2021-1-14 09:19
用不了，只是跳出一个表格而已。

作者: fouwen 时间: 2021-1-15 10:50
这个获取零件属性需要打开零件图吗？打开再获取有点慢

作者: Allate 时间: 2021-1-15 11:24

tg000057 发表于 2021-1-14 08:50
我用的是sw2019.sp5.0，之前是用历遍文件夹导execl的清单，没有问题，刚下了这个历遍装配体的，只出来一个 ...

有没有跳出什么提示呢？如果没有提示信息我也无法判断。

作者: tg000057 时间: 2021-1-18 14:32

Allate 发表于 2021-1-15 11:24
有没有跳出什么提示呢？如果没有提示信息我也无法判断。

就是没有任何提示，是不是sw版本不一样的原因，我的是sw2019-sp5.0，

原来两个贴都是你在回复我，真是大神！！

作者: Allate 时间: 2021-1-18 15:41

tg000057 发表于 2021-1-18 14:32
就是没有任何提示，是不是sw版本不一样的原因，我的是sw2019-sp5.0，

原来两个贴都是你在回复我，真是 ...

那你的表头能截图看看？
另外你说的历遍文件夹导execl的清单那个宏，可以的话给个链接吧。

作者: tg000057 时间: 2021-1-18 16:06

Allate 发表于 2021-1-18 15:41
那你的表头能截图看看？
另外你说的历遍文件夹导execl的清单那个宏，可以的话给个链接吧。

图是用历遍装配体的，只出来表头，下面代码是历遍文件夹的，也是在论坛抄的，

Option Explicit

' 定义用户类型以减少#If VBA7语句的数量
' 不能删除他们...
Private Type LongPtr_T
#If VBA7 Then
Value As LongPtr
' Compare automatically resized LongPtr to fixed size Long and LongLong
#Else
Value As Long
#End If
End Type

' Win32数据类型. Different signatures for different versions of VBA
Private Type BROWSEINFO
#If VBA7 Then
hWndOwner    As LongPtr
pidlRoot       As LongPtr
pszDisplayName  As Long
lpszTitle    As String
ulFlags       As Long
lpfnCallback As LongPtr
lParam       As Long
iImage       As Long
#Else
hWndOwner As Long
pidlRoot       As Long
pszDisplayName  As Long
lpszTitle    As String
ulFlags       As Long
lpfnCallback As Long
lParam       As Long
iImage       As Long
#End If
End Type

Private Const MAX_PATH = 260
'Directories only
Private Const BIF_RETURNONLYFSDIRS = &H1&
'Windows 2000 (Shell32.dll 5.0) extended dialog
Private Const BIF_NEWDIALOGSTYLE = &H40
' show edit box
Private Const BIF_EDITBOX = &H10&

Private Const WM_USER = &H400
Private Const BFFM_INITIALIZED = 1
Private Const BFFM_SELCHANGED = 2
Private Const BFFM_SETSTATUSTEXTA = (WM_USER + 100)

Private Const BFFM_SETSELECTIONA = (WM_USER + 102)
Private Const BFFM_SETEXPANDED = (WM_USER + 16)

Private m_sDefaultFolder As String

Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Private Const SWP_NOZORDER = 4

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

' Win32 API declarations. Different signatures for different versions of VBA.
' Note the mandatory use of PtrSafe keyword in VBA7.
#If VBA7 Then
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long
Private Declare PtrSafe Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As LongPtr, ByVal lpBuffer As String) As Long
Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32" (ByVal hMem As LongPtr)
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As LongPtr, _
                                    ByVal hWndInsertAfter As LongPtr, _
                                    ByVal x As Long, _
                                    ByVal y As Long, _
                                    ByVal cx As Long, _
                                    ByVal cy As Long, _
                                    ByVal wFlags As Long) As Long
Private Declare PtrSafe Function GetWindowRect Lib "user32.dll" (ByVal hWnd As LongPtr, lpRect As RECT) As Long

#Else
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long
Private Declare PtrSafe Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32" (ByVal hMem As Long)
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
                                    ByVal hWndInsertAfter As Long, _
                                    ByVal x As Long, _
                                    ByVal y As Long, _
                                    ByVal cx As Long, _
                                    ByVal cy As Long, _
                                    ByVal wFlags As Long) As Long
Private Declare PtrSafe Function GetWindowRect Lib "user32.dll" (ByVal hWnd As Long, lpRect As RECT) As Long

#End If

Private lastKnownPosition As RECT
Private lockLastKnownPosition As Boolean

Public Function BrowseForFolder() As String
  Dim tBI       As BROWSEINFO
  Dim lngPIDL    As LongPtr_T
  Dim strPath    As String

  With tBI
.lpszTitle = "选择一个要输出文件属性的文件夹."

' TO DO: Do you want the new UI? Or the initial selected folder visible when the dialog opens?
' Choose one of the following:
'  New UI. Selected folder is probably out of view.
.ulFlags = BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE Or BIF_EDITBOX
' ... or ...
' Old UI. Selected folder is scrolled into view when dialog opens.
'.ulFlags = .ulFlags = BIF_RETURNONLYFSDIRS
' ... or ...
' Old UI with edit box. Selected folder is scrolled into view when dialog opens.
' Focus defaults to the edit box making the selected folder less obvious in the tree.
'.ulFlags = .ulFlags = BIF_RETURNONLYFSDIRS Or BIF_EDITBOX

.lpfnCallback = GetAddress(AddressOf BrowseCallbackProc).Value
  End With

  lockLastKnownPosition = True
  lngPIDL.Value = SHBrowseForFolder(tBI)
  If (lngPIDL.Value <> 0) Then
' get path from ID list
strPath = Space$(MAX_PATH)
SHGetPathFromIDList lngPIDL.Value, strPath
strPath = Left$(strPath, InStr(strPath, Chr$(0)) - 1)
' release list
CoTaskMemFree lngPIDL.Value
  End If
  BrowseForFolder = strPath
End Function

' Callback function for Win32 API.
' Must conform to the expected method signature therefore cannot use our LongPtr_t
#If VBA7 Then
Private Function BrowseCallbackProc(ByVal hWnd As LongPtr, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long
#Else
Private Function BrowseCallbackProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long
#End If
      ' If dialog has been initialised, record its current location
      If Not lockLastKnownPosition Then
         GetWindowRect hWnd, lastKnownPosition
      End If

      Select Case uMsg
      Case BFFM_INITIALIZED
         ' Start recording the dialogs location
         lockLastKnownPosition = False

         If Len(m_sDefaultFolder) > 0 Then
            ' Move the dialog to the last recorded position
            SetWindowPos hWnd, 0, lastKnownPosition.Left, lastKnownPosition.Top, 0, 0, SWP_NOSIZE + SWP_NOZORDER
            ' Set the selected folder
            SendMessage hWnd, BFFM_SETSELECTIONA, True, ByVal m_sDefaultFolder
         End If
      Case BFFM_SELCHANGED
         SendMessage hWnd, BFFM_SETEXPANDED, True, ByVal m_sDefaultFolder

      End Select
End Function

' Workaround for syntax limitation of AddressOf. Can only use in a function call, not an assignment
#If VBA7 Then
Private Function GetAddress(nAddress As LongPtr) As LongPtr_T
#Else
Private Function GetAddress(nAddress As Long) As LongPtr_T
#End If
Dim address As LongPtr_T
address.Value = nAddress
GetAddress = address
End Function

: 下载附件保存到相册

2021-1-18 16:05 上传

作者: tg000057 时间: 2021-1-18 16:36

Allate 发表于 2021-1-18 15:41
那你的表头能截图看看？
另外你说的历遍文件夹导execl的清单那个宏，可以的话给个链接吧。

https://www.swbbsc.com/thread-238103-1-2.html
图是历遍装配体，只出来表头的效果，

链接是历遍文件夹的，可以运行，就是垃圾零件文件太多了，也一起导出来，
另外还有两个个问题是，
1.零件配置有两个的，截图就有两个重叠一起，如果是画钣金的，都有一个平板配置在，导出来的表格都是平板图片压在默认成型图片，这样截图就没效果了。
2.截图是带边线上色，默认背景的，如果能改成白底，消除隐藏线的最好不过了，因为毕竟现在用的打印机大多都是黑白，这样打印才看得清楚。

: 下载附件保存到相册

2021-1-18 16:22 上传

作者: Allate 时间: 2021-1-18 17:27

tg000057 发表于 2021-1-18 14:32
就是没有任何提示，是不是sw版本不一样的原因，我的是sw2019-sp5.0，

原来两个贴都是你在回复我，真是 ...

你再下载一次，我更新过，看看有没有区别。

作者: wangwang189 时间: 2021-1-20 21:28
楼主辛苦了！

作者: wangwang189 时间: 2021-1-21 21:51
活到老学到老！

作者: 子默子莫 时间: 2021-1-21 23:47
谢谢分享！

作者: 子默子莫 时间: 2021-1-21 23:48
很不错，顶一下！

作者: 子莫子默 时间: 2021-1-22 00:04
SolidWorks机械工程师网，顶一下。

作者: liyuyin007 时间: 2021-1-23 11:52
楼主不能提取特定属性，只能自定义属性！！

作者: liyuyin007 时间: 2021-1-23 11:54
楼主不能提取特定属性，只能自定义属性！！

作者: Allate 时间: 2021-1-25 08:22

liyuyin007 发表于 2021-1-23 11:54
楼主不能提取特定属性，只能自定义属性！！

你自己动手改动一下就好，方法见下图：

作者: schjck 时间: 2021-1-27 07:52

quanshouzhu 发表于 2020-12-10 12:09
付了金币无法下载没有权限是什么鬼？

感谢楼主分享，很不错！

作者: tg000057 时间: 2021-1-27 14:06
楼主大大，我想问一下，这个路径这里字符去掉7个，是为什么。之前我和其他小伙伴一样，都是只出来一个表头就结束，一直想不通为什么，然后将它和原来历遍文件夹那个代码作对比，找出它们的不同点，一个个排除，这个是最笨的办法了，然后我msgbox FilePath 出来这个并不是我的完整路径，被删除了后面一段，才发现后面那个-7。然后我把-7去除，就完美运行了。所以，这个是不是并于电脑遍文件夹设置那里部份的？

然后，装配体零件不能轻化，否则读取不到。

: 下载附件保存到相册

2021-1-27 13:57 上传

作者: Allate 时间: 2021-1-27 14:18

tg000057 发表于 2021-1-27 14:06
楼主大大，我想问一下，这个路径这里字符去掉7个，是为什么。之前我和其他小伙伴一样，都是只出来一个表头 ...

这个可能就是系统的差异了，大部分电脑上面用命令GetTitle都是不带后缀的，要另外用这个“-7”来去掉后缀——这里很明显你的这个GetTitle是带后缀名的，一开始我没注意到会有这个差异，失误了，多谢指出

P.S.附件已经重新更正

作者: xiaocake 时间: 2021-1-27 14:32

Allate 发表于 2021-1-27 14:18
这个可能就是系统的差异了，大部分电脑上面用命令GetTitle都是不带后缀的，要另外用这个“-7”来去掉后缀 ...

gettitle受系统是否显示扩展名的设置的影响。正是因为gettitle的这个不确定性，所以建议不用它，改用getpathname后再处理。

作者: Allate 时间: 2021-1-27 15:14

xiaocake 发表于 2021-1-27 14:32
gettitle受系统是否显示扩展名的设置的影响。正是因为gettitle的这个不确定性，所以建议不用它，改用getp ...

是呢，正打算以后放弃这个API

作者: cuikaixuan 时间: 2021-2-5 14:05
谢谢分享，值得拥有

作者: wang254186 时间: 2021-2-10 13:08
好东西，努力学习学习！

作者: wang254186 时间: 2021-2-10 13:09

好东西，努力学习学习！

作者: qweewq909 时间: 2021-2-11 10:46
我用win10自带的IE浏览器，下载正常。
请问：表格里的“名称”在零件里哪里输入？

作者: qweewq909 时间: 2021-2-11 11:20
你的颜色设置软件比较好用。请问你是本科生吗？学的什么专业？怎样学会宏的？

作者: Allate 时间: 2021-2-11 23:28

qweewq909 发表于 2021-2-11 11:20
你的颜色设置软件比较好用。请问你是本科生吗？学的什么专业？怎样学会宏的？

这个我不是学生，最近有点空就自学然后编着玩的，感谢你的好评！

作者: wenbotao2004 时间: 2021-3-25 11:11
好东西，无奈没金币，下不了。

作者: Allate 时间: 2021-3-25 11:44

wenbotao2004 发表于 2021-3-25 11:11
好东西，无奈没金币，下不了。

充钱吧少年，也就5毛钱的事

作者: dragon045 时间: 2021-4-16 07:49
好好学习，天天向上！

作者: qq2941115105 时间: 2021-5-5 13:18
可以用，但是电脑上有加密软件，图片不能显示

作者: 18588644287 时间: 2021-5-20 18:03
啥也没有，运行后就是闪了一下！

作者: 淡淡的雲 时间: 2021-5-21 12:19
下载下来看看，应该会有用！

作者: yni621 时间: 2021-5-21 13:37
楼主辛苦了！

作者: 337868333 时间: 2021-6-10 18:11
有点贵的。。

作者: BAALZHANG 时间: 2021-7-4 18:54

感谢楼主分享，很不错！

作者: huangshanyi125 时间: 2021-7-10 16:05
厉害！!!!!!

作者: lfs625 时间: 2021-7-21 09:33
楼主太有才了，膜拜中……

作者: 阿斯蒂芬0 时间: 2021-7-23 20:25
SW机械工程师网，找到组织了！

作者: pjhzdq 时间: 2021-7-27 10:34
楼主太有才了，膜拜中……

作者: liuliuqiu 时间: 2021-8-4 09:45
楼主很专业，写得很好！

作者: liuliuqiu 时间: 2021-8-4 10:09
楼主金币扣了，没有下载链接呀

作者: 工程Jay_chen 时间: 2021-8-5 09:42
版主大神，请问这个怎么改成读取装配体里面该零件的总数量？现在读不出来的~

: 下载附件保存到相册

2021-8-5 09:41 上传

作者: Allate 时间: 2021-8-5 10:25

工程Jay_chen 发表于 2021-8-5 09:42
版主大神，请问这个怎么改成读取装配体里面该零件的总数量？现在读不出来的~

你的不是我这个版本呢，你应该去问一下改版的人

作者: 工程Jay_chen 时间: 2021-8-5 10:33

不好意思啊，原来是改编了的~

作者: zhangjj 时间: 2021-8-5 16:09

很有吸引力

作者: zhangjj 时间: 2021-8-5 16:57

很有吸引力

作者: 無鈊唐螂 时间: 2021-8-10 13:58
感谢楼主分享，很不错！

作者: zhjan518 时间: 2021-8-13 11:32
每次都停在第二行就没有反应了

: 下载附件保存到相册

2021-8-13 11:31 上传

作者: zhjan518 时间: 2021-8-13 11:47
如果用WPS表格可以修改吗

作者: Allate 时间: 2021-8-13 14:14

zhjan518 发表于 2021-8-13 11:32
每次都停在第二行就没有反应了

出现这个问题，建议检查一下图纸有没有轻化的部件或者压缩的部件存在，有的话更改一下就好。
毕竟这个是早期的改制作品，有很多方面没有考虑周全，也不想花大力气去改善了，因为有更好的作品——

请移步用用tg000057的这个宏吧：
<<改编>>遍历装配体获取子件的自定义属性及缩略图输出到Excel的宏
https://www.swbbsc.com/thread-333437-1-1.html

作者: Allate 时间: 2021-8-13 14:16

zhjan518 发表于 2021-8-13 11:47
如果用WPS表格可以修改吗

理论上是可以弄到WPS里面的，但手头上的电脑没有安装，就没作这个尝试了。

作者: 无心快语 时间: 2021-8-13 21:47
很不错，顶一下！

作者: zhjan518 时间: 2021-8-16 20:29

Allate 发表于 2021-8-13 14:14
出现这个问题，建议检查一下图纸有没有轻化的部件或者压缩的部件存在，有的话更改一下就好。
毕竟这个是 ...

好的，非常感谢

作者: Allate 时间: 2021-8-17 08:29

zhjan518 发表于 2021-8-16 20:29
好的，非常感谢

今天我把本帖的宏也更新了，适应了轻化和压缩的问题，你也可以重新下载使用

作者: wwwerzhou 时间: 2021-8-17 21:27
SW机械工程师网，找到组织了！

作者: 锦衣丨繁星 时间: 2021-8-28 15:04
SW机械工程师网，找到组织了！

作者: JHVDRH 时间: 2021-9-1 11:17
保存一手，留着备用

作者: cj8510 时间: 2021-9-3 18:03
不记得是从哪个版本开始自带这个功能了。

作者: Alex_Wang 时间: 2021-9-4 09:12
谢谢大拿分享！！！！！！！！！！！！

作者: 锦衣丨繁星 时间: 2021-9-6 14:36
感谢楼主分享，很不错！

作者: chshx1987 时间: 2021-9-8 00:43
这个应该不错好东西谢谢楼主分享

作者: 384432485 时间: 2021-9-11 13:45
感谢楼主分享，很不错！

作者: nmimi 时间: 2021-9-16 18:52

图片是自带的bom，缺点是1慢2有空白行，此宏再改良下：1.序号设置为缩进的详细编号，2.按装配体顺序排序，如第二个子装配体跟第一个子装配体有相同零件或装配体，重复的不再写入，3.序号1应该为最顶层装配体.

作者: 760308284 时间: 2021-10-4 10:43
楼主，可以支持wps吗？公司电脑只有wps就很头大。。。。。。

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