求文件夹批处理宏代码，通过宏依次打开指定文件夹内所有零件删减属性并保存所有文件

song35151

在以下宏代码中分别加入全删自定义属性和配置特定属性，并这二段代码可以随意注释，根据需要保留自定义和配置特定属性
最好能有界面，无界面纯宏代码也可以
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-06-17.zip (18.86 KB, 下载次数: 243, 售价: 10 金币)

2021-6-17 11:09 上传

点击文件名下载附件
售价: 10 金币  [记录]
下载积分: 金币 -1

tg000057

这个是我在用的属性改写宏，里面应该有你要的东西。

Allate

看，这效果就出来了，或者你自己动一下手就好

song35151

   经典案例图书

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

运行错误
If swModel2.GetType = 3 Then

tg000057

song35151 发表于 2021-6-17 10:48
运行错误
If swModel2.GetType = 3 Then

不明白你说的错误是什么，这条语句的意思是，如果文档类型是3（工程图），则。。。。。

song35151

   经典案例图书

Allate 发表于 2021-6-17 11:09
看看这个行不行吧。

完美解决，谢谢师兄

validcat

很不错，顶一下！

wwwsdd

非常不错  谢谢

yanoyy

Allate 发表于 2021-6-16 14:23
看看这个行不行吧。

很不错，顶一下！

wmx0910

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

非常不错！！！！

梳子○

大神，感觉都好牛，萌新瑟瑟发抖

wmx0910

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

不错。运行错误

HHHHCCCC

Allate 发表于 2021-6-16 14:23
看看这个行不行吧。

这边运行的时候总报错

mdj186

加入QQ群
参与讨论和学习

或扫描二维码加入

我的也是，运行时显示错误，类未注册什么的。

hhh001

   经典案例图书

感谢楼主分享，很不错！

SW初学00

加入QQ群
参与讨论和学习

或扫描二维码加入

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

wwwerzhou

   经典案例图书

好好学习，天天向上！

懒懒的高贵

很不错，顶一下！

l88369875

多谢 楼主 分享