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

标题: 求文件夹批处理宏代码，通过宏依次打开指定文件夹内所有零件删减属性并保存所有文件 [打印本页]
作者: song35151    时间: 2021-6-16 14:23
标题: 求文件夹批处理宏代码，通过宏依次打开指定文件夹内所有零件删减属性并保存所有文件

在以下宏代码中分别加入全删自定义属性和配置特定属性，并这二段代码可以随意注释，根据需要保留自定义和配置特定属性
最好能有界面，无界面纯宏代码也可以
Sub main()

Set swApp = Application.SldWorks
PartPath = "C:\Users\Administrator\Desktop\QC\" '设定目录
PartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件

'全删自定义属性标识代码，注释此行全删自定义属性代码无效
'全删自定义属性首

'全删自定义属性尾

'全删配置特定属性标识代码，注释此行全删配置特定属性代码无效
'全删配置特定属性首

'全删配置特定属性尾

'添加长宽高标识代码，注释此行添加长宽高代码无效
'添加长宽高首
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set SelMgr = swModel.SelectionManager
    Corners = swModel.GetPartBox(True)
    Y = Abs(Corners(4) - Corners(1)) * 1000
    Y = Int(Y * 100) / 100 '精度0.01
    Z = Abs(Corners(5) - Corners(2)) * 1000
    Z = Int(Z * 100) / 100 '精度0.01
    X = Abs(Corners(3) - Corners(0)) * 1000
    X = Int(X * 100) / 100 '精度0.01
    XYZ = Str(X) & "×" & Str(Y) & "×" & Str(Z)
    PropValue = Replace(XYZ, " ", "")
    'PropValue = InputBox("外形尺寸为：", "名字都被抢注了", PropValue)
    swModel.DeleteCustomInfo2 "", "规格" '删除属性
    swModel.DeleteCustomInfo2 "Default", "规格" '删除属性
    'swModel.AddCustomInfo3 "默认", "规格", swCustomInfoText, PropValue '添加自定义属性
    swModel.AddCustomInfo3 "Default", "规格", swCustomInfoText, PropValue '添加特定配置
'添加长宽高尾

'添加边界框标识代码，注释此行添加边界框代码无效
'添加边界框首
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim BoundingBox As Object
Set BoundingBox = Part.FeatureManager.InsertGlobalBoundingBox

(swGlobalBoundingBoxFitOptions_e.swBoundingBoxType_BestFit, False, False, longstatus)
Part.ClearSelection2 True
'添加边界框尾


Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
PartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
End Sub

作者: Allate    时间: 2021-6-16 14:23
看看这个行不行吧。


删减属性并保存所有文件2021-06-17.zip (18.86 KB, 下载次数: 246, 售价: 10 金币)

作者: tg000057    时间: 2021-6-16 17:48
这个是我在用的属性改写宏，里面应该有你要的东西。

属性改写.rar

（43.37 KB, 下载次数: 124 售价: 5 金币 ）

作者: Allate    时间: 2021-6-17 08:16
看，这效果就出来了，或者你自己动一下手就好
作者: song35151    时间: 2021-6-17 10:48
tg000057 发表于 2021-6-16 17:48
这个是我在用的属性改写宏，里面应该有你要的东西。

运行错误
If swModel2.GetType = 3 Then
作者: tg000057    时间: 2021-6-17 11:37
song35151 发表于 2021-6-17 10:48
运行错误
If swModel2.GetType = 3 Then

不明白你说的错误是什么，这条语句的意思是，如果文档类型是3（工程图），则。。。。。
作者: song35151    时间: 2021-6-17 12:12
Allate 发表于 2021-6-17 11:09
看看这个行不行吧。

完美解决，谢谢师兄
作者: validcat    时间: 2021-6-17 18:51
很不错，顶一下！
作者: wwwsdd    时间: 2021-7-8 13:24
非常不错  谢谢
作者: yanoyy    时间: 2021-9-18 17:54
Allate 发表于 2021-6-16 14:23
看看这个行不行吧。

很不错，顶一下！
作者: wmx0910    时间: 2021-9-27 15:05
tg000057 发表于 2021-6-16 17:48
这个是我在用的属性改写宏，里面应该有你要的东西。

非常不错！！！！
作者: 梳子○    时间: 2021-10-22 14:00
大神，感觉都好牛，萌新瑟瑟发抖
作者: wmx0910    时间: 2021-11-16 09:59
tg000057 发表于 2021-6-16 17:48
这个是我在用的属性改写宏，里面应该有你要的东西。

不错。运行错误
作者: HHHHCCCC    时间: 2021-12-20 15:40
Allate 发表于 2021-6-16 14:23
看看这个行不行吧。

这边运行的时候总报错

捕获.JPG

捕获1.JPG
作者: mdj186    时间: 2021-12-22 12:53
我的也是，运行时显示错误，类未注册什么的。
作者: hhh001    时间: 2022-6-19 19:44
感谢楼主分享，很不错！
作者: SW初学00    时间: 2022-11-8 09:57
楼主太有才了，膜拜中……
作者: wwwerzhou    时间: 2022-11-23 09:20
好好学习，天天向上！
作者: 懒懒的高贵    时间: 2022-11-30 16:10
很不错，顶一下！
作者: l88369875    时间: 2022-12-3 16:22
多谢 楼主 分享
作者: 静静090222    时间: 2023-1-29 14:22
感谢楼主分享，很不错！
作者: wjbg2019    时间: 2023-2-23 12:04
感谢楼主分享
作者: wjbg2019    时间: 2023-2-23 12:04
感谢楼主分享
作者: bingjianzuozhan    时间: 2023-3-10 10:55
SW机械工程师网，找到组织了！
作者: 1194753477    时间: 2023-3-29 11:40
感谢楼主分享，很不错！
作者: 1194753477    时间: 2023-3-29 13:54
感谢楼主分享，很不错！
作者: zhaozhensheng24    时间: 2023-4-10 15:55
SW机械工程师网，找到组织了！
作者: 煎饼卷榨菜    时间: 2023-4-23 10:56
好东西，努力学习学习！
作者: sunsu168    时间: 2023-8-5 09:02
SW机械工程师网，找到组织了！
作者: lider_2010    时间: 2023-8-12 16:11
Allate 发表于 2021-6-16 14:23
看看这个行不行吧。

不错不错，要好好学习了
作者: XBCYANP    时间: 2023-9-28 16:38
很不错，找到组织了！
作者: lijipeng03312    时间: 2023-11-13 13:00
同求内容，很不错
作者: smallghost    时间: 2023-11-27 14:42
活到老学到老！
作者: 风中飞华    时间: 2023-12-6 16:57
好厉害的工具，谢谢楼主分享
作者: d1457810962    时间: 2024-4-18 08:49
感谢楼主分享，很不错！
作者: 沉默的人    时间: 2024-4-18 09:03
感谢楼主分享，很不错！
作者: 有追求的人    时间: 2024-8-20 15:17
Allate 发表于 2021-6-16 14:23
看看这个行不行吧。

下载了，我是在装配体模式下应用的，选择了删除配置属性，操作之后，配置仍有属性

1724138104358.jpg
作者: 有追求的人    时间: 2024-8-20 15:22
Allate 发表于 2021-6-16 14:23
看看这个行不行吧。

这个是不是不能批量删除配置属性？



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