求：sw零件或装配体重新上色（随机) 的宏

tg000057

因为零件模板有设定特征颜色，这个不能不要，有个别的零件需要用颜色区别开来。零件或装配体自动随机上色的宏，论坛里有。但是上的颜色覆盖不到特征颜色上面，每次都要“从此移除所有零件外观”，然后再随机上色。有没有大神帮忙写一段去掉所有颜色的宏代码，去除所有外观颜色再随机上色，或者只有去除所有外观颜色的也行。

Allate

删除此零件文档中的所有显示状态和外观：Part.RemoveAllDisplayStates
注：只适用于零件，不能用于装配体。

lihongjun123

顶一下，坐等高手！

jtr8193

下载麦迪今日制造。

tg000057

   经典案例图书

顶一下，坐等高手。

tg000057

Allate 发表于 2021-1-19 16:31
删除此零件文档中的所有显示状态和外观：Part.RemoveAllDisplayStates
注：只适用于零件，不能用于装配体 ...

装配体是不能用这个语句，但是，我在用你发表的那个随机改变颜色宏，装配体中也能改变零件颜色，是你因为历遍装配零件一个个修改颜色，我只要把这条语句加到for语句里面就可以了，也能达到效果！

Allate

   经典案例图书

tg000057 发表于 2021-1-25 16:21
装配体是不能用这个语句，但是，我在用你发表的那个随机改变颜色宏，装配体中也能改变零件颜色，是你因为 ...

有用就最好不过了

tg000057

借花献佛的把宏贴出来，原贴就是Allate大大的，只是我要的要求是要删除特征颜色后再上色，所以要求有变，还是Allate大大给的语句，增加一条删除此零件文档中的所有显示状态和外观,然后我把它代进去，并加到执行历遍装配体零件上色的语句前，这样零件，和装配体都可以使用了！


补充内容 (2021-1-26 14:26):
文件包放在10楼了。

Allate

别这样，我也只是个初学者。
那个随机上色的，之前粗略改制的，非常粗糙，现在重改了一次，有兴趣可以重新下载。

tg000057

修改后的包。

tg000057

Allate 发表于 2021-1-26 13:44
别这样，我也只是个初学者。
那个随机上色的，之前粗略改制的，非常粗糙，现在重改了一次，有兴趣可以重新 ...

我才刚开始接触这个东西，所以很多都不懂，全靠都是论坛里学，和自己摸索的，正准备系统的去学习一下。
后面的那个颜色改变宏我刚对比了一下，原理是一样的，只是逻辑方式改变了一下，我也把那条删除颜色的语句加上，完美运行！

tg000057

Allate 发表于 2021-1-26 13:44
别这样，我也只是个初学者。
那个随机上色的，之前粗略改制的，非常粗糙，现在重改了一次，有兴趣可以重新 ...

你好，这个随机上色宏出了点问题，能帮忙看一下吗？

根据你的提示，我把  删除显示状态的外观  的那句加上去后，随机上色是运行得没问题，但是，后加的这一句估把之前设置好的材质属性删除，就是变成材质未定义了，这样运行肯定不行的了，有没有其他语句单单是去颜色，不删除材质的？
或者说，有没有语句，在 删除显示状态的外观 之前读取材质，之后再把材质付予上去。

Allate

tg000057 发表于 2021-1-30 16:39
你好，这个随机上色宏出了点问题，能帮忙看一下吗？

根据你的提示，我把  删除显示状态的外观  的那句 ...

这样吧，你随便发个零件出来，具体问题具体分析。

tg000057

Allate 发表于 2021-1-30 17:29
哦，这样吧，你随便发个零件给我吧，邮箱
这个最好是具体问题具体分析。

刚发了，连同那个 宏一起发了，
零件是用sw2017建设的，运行宏后，设计树那里的材质看似的没变，实际是被删除的了，文件-属性里可以看到，已变成材质未定义了，设计树那里要刷新或重开才会显示材质未定义。

最好有办法，只删除外观，不删除材质。
其次可以，提取当前材质，删除所有显示状态，连同材质删除，再付予刚提取的材质，再更改颜色。
谢谢大大了

Allate

加入QQ群
参与讨论和学习

或扫描二维码加入

不知道你具体的情况，有时候的建议不一定是有效的，或者可以这样一试。

tg000057

   经典案例图书

Allate 发表于 2021-1-31 08:46
不知道你具体的情况，有时候的建议不一定是有效的，或者可以这样一试。

看来只能重新写材质，

还想请问你一下有个语句不懂：
写入材质用：swDoc.SetMaterialPropertyName2, “写入配置”,“材质库路径”,“材质名称”
而获取当前材质用这个：swDoc.GetMaterialPropertyName2,
这条要样才能把材质参数获取过来？

tg000057

加入QQ群
参与讨论和学习

或扫描二维码加入

Allate 发表于 2021-1-31 08:46
不知道你具体的情况，有时候的建议不一定是有效的，或者可以这样一试。

Dim configM            As String
Dim libraryM           As String
Dim MaterialM        As String
Dim aM        As String

       ....................


  MaterialM = swDoc.GetMaterialPropertyName2(aM, libraryM)              '获取当前材质名和材质库名
  
         configM = swApp.GetActiveConfigurationName(swDoc.GetPathName)         '获取零件当前配置名
         
         swDoc.RemoveAllDisplayStates                                          '删除所有显示状态和材质
         
         swDoc.SetMaterialPropertyName2 configM, libraryM, MaterialM           '更改当前配置的材质
         swDoc.SetMaterialPropertyName2 "默认", libraryM, MaterialM            '更改默认配置的材质

弄出来了，是这样子的，只是不懂那个aM表达的是什么，好像也没有值。

Allate

   经典案例图书

收到你发过来的文件了，测试过，就是要按我截图的那样操作就行。如果你没看懂，没关系，下载附件即可。

注：附件没能解决问题，已经删除。

Allate

tg000057 发表于 2021-1-31 12:01
看来只能重新写材质，

还想请问你一下有个语句不懂：

MName=swDoc.GetMaterialPropertyName2(“写入配置”,“材质库路径”)
swDoc.SetMaterialPropertyName2 “写入配置”,“材质库路径”,MName
不过其实不用这么折腾的，就我上面写的办法已经可以解决问题。

tg000057

Allate 发表于 2021-1-31 13:45
收到你发过来的文件了，测试过，就是要按我截图的那样操作就行。如果你没看懂，没关系，下载附件即可。

...

这个试过了，和我前面的那效果一样，设计树那里显示有材质（应该是没刷新到），但是属性里面显示未定义，关闭重新打开零件，设计树那里也显示未定义了。