【求助】一键隐藏指定属性的零件

假婆1

请问怎么在装配体中一键隐藏以下【多个】指定属性的零件呢？提供zip里的代码可供参考
属性名：IsFastener
属性类型：文字
数值：1
评估：1

Allate

你要的宏。

隐藏指定属性的零件.zip (8.29 KB, 下载次数: 177, 售价: 2 金币)

2021-5-4 16:11 上传

点击文件名下载附件

假婆1

Allate 发表于 2021-5-4 11:32
你要的宏。

大大，请问下出现这个错误是什么原因呢？

图一

图二

=>

我发现哪出问题了，装配体中如果有子装配体压缩或零件压缩了，就会报错，大大可再修改下代码么，改成自动跳过压缩的零件或装配体

Allate

假婆1 发表于 2021-5-4 14:24
大大，请问下出现这个错误是什么原因呢？

哦，这样的话，你在这句前面加一句

1. On Error Resume Next

复制代码

假婆1

   经典案例图书

Allate 发表于 2021-5-4 14:47
哦，这样的话，你在这句前面加一句

非常感谢！！！

hdgd501

好东西，努力学习学习！

刘茂机械

   经典案例图书

感谢楼主分享，很不错！

小豆芽疯回路转

感谢楼主分享，感谢

阿斯顿法师

活到老学到老！

xiaocake

可以先选中指定的子件，再手动一次隐藏。
选取子件使用装配体的高级选取功能，在自定义搜索规则里面指定属性名和属性值就行了。
不用写代码，速度还快。

假婆1

xiaocake 发表于 2021-5-14 11:37
可以先选中指定的子件，再手动一次隐藏。
选取子件使用装配体的高级选取功能，在自定义搜索规则里面指定属 ...

宏的好处是，能设置成快捷键，就不用那么麻烦选取后再隐藏了

tg000057

Allate 发表于 2021-5-4 14:47
哦，这样的话，你在这句前面加一句

额，如果这个我想指定属性的评估值为某数时，隐藏该零件，然后跳过装配体不执行的，要怎么改？

Allate

tg000057 发表于 2021-5-29 15:24
额，如果这个我想指定属性的评估值为某数时，隐藏该零件，然后跳过装配体不执行的，要怎么改？

你可以把这个Then后面的另起一行，后面加上End If，End If前再加一句Exit Sub。
不知道是不是这样，你试试吧。

tg000057

Allate 发表于 2021-5-4 14:47
哦，这样的话，你在这句前面加一句

额，上一次回复是说，如果我想用评估值来确定是否隐藏它，要改哪里？那个想跳过装配体不执行的，刚想到方案了。，，，，另外，如果执行的不是隐藏，而是孤立的话，这个要怎么改才能做到？

Allate

加入QQ群
参与讨论和学习

或扫描二维码加入

tg000057 发表于 2021-5-29 15:59
额，上一次回复是说，如果我想用评估值来确定是否隐藏它，要改哪里？那个想跳过装配体不执行的，刚想到方 ...

没试过孤立，你试下录制宏，或者翻一下API吧。

tg000057

   经典案例图书

Allate 发表于 2021-5-29 16:28
没试过孤立，你试下录制宏，或者翻一下API吧。

老大，先告诉我这个隐藏的，用评估值来运作怎么改吧，我属性里很多都是方程式引用的，能只用评估值来确定。应该是要改CustomInfo，但不知道改成哪一个CustomInfoValue,GetCustomInfoValue相关几个都没通过。

tg000057

加入QQ群
参与讨论和学习

或扫描二维码加入

tg000057 发表于 2021-5-29 17:02
老大，先告诉我这个隐藏的，用评估值来运作怎么改吧，我属性里很多都是方程式引用的，能只用评估值来确定 ...

好吧，我又知道了。   
a = swComp.GetModelDoc2.GetCustomInfoValue("", "sh")
    If a = "1" Then

Allate

   经典案例图书

tg000057 发表于 2021-5-29 17:10
好吧，我又知道了。   
a = swComp.GetModelDoc2.GetCustomInfoValue("", "sh")
...

哈哈，这不挺好的么

xiaofly888

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

Alex_Wang

Allate 发表于 2021-5-4 11:32
你要的宏。

感谢大神无私分享！！！！！！！！！！