【原创】全删属性

Allate · 发表于 2021-3-5 16:54:38

' ******************************************************************************
' 全删属性.swp - By Allate, 2021-08-20
' ******************************************************************************
'说明：
'1. 此宏可用于处理零件、装配体和工程图，全删自定义属性以及所有配置里面所有的属性。
'2. 当处理装配体时，装配体内所有的零部件，全删自定义属性以及所有配置里面所有的属性（有鉴于此，请谨慎使用）。

全删属性_2023-12-25.zip (6.77 KB, 下载次数: 327, 售价: 10 金币)
2021-07-30更新，增加对压缩零件的适应。
2021-08-20更新，修正两处BUG。
2023-12-25更新，增加保存。

Allate · 发表于 2021-6-16 08:08:21

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

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

hdgd501 · 发表于 2021-3-5 20:09:18

楼主很专业，写得很好！

yni621 · 发表于 2021-3-6 10:24:42

感谢楼主分享，很不错！

wwwerzhou · 发表于 2021-3-6 15:11:15

经典案例图书

这个很好，但是要谨慎使用！

wwwerzhou · 发表于 2021-3-9 15:17:39

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

wwwerzhou · 发表于 2021-3-9 15:21:51

经典案例图书

没什么用，出错！

Allate · 发表于 2021-3-11 16:11:33

wwwerzhou 发表于 2021-3-9 15:21
没什么用，出错！

具体怎么错呢？能截个图说明下？

song35151 · 发表于 2021-3-23 09:57:11

可以重新添加属性吗

Allate · 发表于 2021-3-23 10:35:35

song35151 发表于 2021-3-23 09:57
可以重新添加属性吗

删除了就不可以恢复

1215956038 · 发表于 2021-4-10 05:45:00

感谢楼主分享，很不错！

工程Jay_chen · 发表于 2021-5-14 11:52:40

在装配体重使用，会出现这个错误~

Allate · 发表于 2021-5-14 13:39:11

工程Jay_chen 发表于 2021-5-14 11:52
在装配体重使用，会出现这个错误~

你按一下调试，然后把出错的那句复制上来看看。

工程Jay_chen · 发表于 2021-5-14 14:10:49

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

Configs = swDoc.GetConfigurationNames

Allate · 发表于 2021-5-14 14:56:08

加入QQ群
参与讨论和学习

或扫描二维码加入

工程Jay_chen 发表于 2021-5-14 14:10
Configs = swDoc.GetConfigurationNames

看这句看不出来有问题呢，感觉不像是引用的问题，如果方便的话，上传一下文件测试一下

工程Jay_chen · 发表于 2021-5-15 14:11:08

经典案例图书

Allate 发表于 2021-5-14 14:56
看这句看不出来有问题呢，感觉不像是引用的问题，如果方便的话，上传一下文件测试一下

谢谢回复指导，今天打开又试了一下，可以了

Allate · 发表于 2021-5-15 14:33:40

加入QQ群
参与讨论和学习

或扫描二维码加入

工程Jay_chen 发表于 2021-5-15 14:11
谢谢回复指导，今天打开又试了一下，可以了

那好吧，就当灵异事件处理得了。

lytxt12 · 发表于 2021-5-19 23:15:04

经典案例图书

感谢楼主分享，很不错！

wwwerzhou · 发表于 2021-6-10 10:42:35

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

song35151 · 发表于 2021-6-11 21:02:53

可以帮忙改下以下代码吗，全删自定义属性，然后再运行以下代码
Sub main()
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 "默认", "规格" '删除属性
swModel.AddCustomInfo3 "默认", "规格", swCustomInfoText, PropValue '添加属性
End Sub

Allate · 发表于 2021-6-12 10:43:53

song35151 发表于 2021-6-11 21:02
可以帮忙改下以下代码吗，全删自定义属性，然后再运行以下代码
Sub main()
Set swApp = Application. ...

只针对单个零件执行的。

全删自定义属性并添加规格.zip (6.09 KB, 下载次数: 184, 售价: 10 金币)

		自动登录	找回密码
密码			立即注册

【原创】全删属性

评分

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献