【原创】全删属性

song35151

Allate 发表于 2021-6-12 10:43
只针对单个零件执行的。

非常感谢，要的就是单个零件的效果

wsbty2018

Allate 发表于 2021-6-12 10:43
只针对单个零件执行的。

怎么可以改的在装配体模式下运行呢？全删属性是可以在在装配体下运行的。增加规格可以改的在装配体模式下用吗

Allate

wsbty2018 发表于 2021-6-12 22:43
怎么可以改的在装配体模式下运行呢？全删属性是可以在在装配体下运行的。增加规格可以改的在装配体模式下 ...

或者你可以试着改一下，加强动手能力

UDF998

好好学习，天天向上！

song35151

   经典案例图书

师兄，麻烦再帮忙改个宏代码，非常感谢，金币可设100个 200个都可以
就是在以下宏代码中分别加入全删自定义属性和配置特定属性，并这二段代码可以随意注释，根据需要保留自定义和配置特定属性
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 '添加特定配置

'执行程式尾

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

Allate

song35151 发表于 2021-6-15 08:34
师兄，麻烦再帮忙改个宏代码，非常感谢，金币可设100个 200个都可以
就是在以下宏代码中分别加入全删自定 ...

你去发个悬赏吧，有空就给你弄个窗体。

song35151

   经典案例图书

已发布
https://www.swbbsc.com/thread-333125-1-1.html

song35151

已发布，麻烦有时间帮忙弄下，谢谢了
https://www.swbbsc.com/thread-333125-1-1.html

心无止境

厉害，学习中

wyznzhk

赞一个！支持各位大神

wwwsdd

感谢分享 谢谢

fushengrong

楼主很专业，写得很好！

-Duxep

非常感谢，要的就是单个零件的效果

nmimi

Allate 发表于 2021-5-14 13:39
你按一下调试，然后把出错的那句复制上来看看。

我的也是这个错误，怀疑是装配体里面有压缩文件。

Allate

加入QQ群
参与讨论和学习

或扫描二维码加入

nmimi 发表于 2021-7-30 14:47
我的也是这个错误，怀疑是装配体里面有压缩文件。

嗯，问题就是有压缩文件，谢谢指正！你可以重新下载，附件已经更新过

nmimi

   经典案例图书

Allate 发表于 2021-7-30 15:42
嗯，问题就是有压缩文件，谢谢指正！你可以重新下载，附件已经更新过

谢谢，这是不可逆操作，增加个弹窗确定或取消。

yqzjjx

加入QQ群
参与讨论和学习

或扫描二维码加入

厉害   学习中

cj8510

   经典案例图书

我也写过，不要用错了，不然很麻烦

阿斯蒂芬0

SW机械工程师网，找到组织了！

yanoyy

很不错，顶一下！