SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 问个关于颜色的问题 [打印本页]

作者: ztjjxujipt 时间: 2008-5-5 15:50
标题: 问个关于颜色的问题
我想问下，零件改变了颜色或改为透明，还可以改回默认那种吗？特别是在装配图中，有的需要临时改下透明，直接隐藏又看不到轮廓。能不能像隐藏那样点击显示就什么都恢复了。请教各位，多谢！

作者: 都熙熙 时间: 2008-5-5 15:58
使用宏吧。
好易的
给你个
你自己改一下
Sub main()
Dim swApp, ModelDoc As Object
Dim Ret As Variant
Const swDocPART = 1
Set swApp = CreateObject("SldWorks.Application")
On Error Resume Next
Set ModelDoc = swApp.ActiveDoc
If ModelDoc.GetType() <> swDocPART Then
MsgBox "此功能仅适用于零件图中!"
Exit Sub
Else
Ret = ModelDoc.MaterialPropertyValues
Randomize
'以下是相关参数
'----------------------------------------------------------------------------------------------------------
Ret(0) = Int(Rnd() * (200 - 10) + 10)
Ret(1) = Int(Rnd() * (200 - 10) + 10)
Ret(2) = Int(Rnd() * (200 - 10) + 10)
'以下的参数较不错
'---------------------------------
Ret(3) = 0.29 '环境光源
Ret(4) = 0.27 '散射度
Ret(5) = 0    '光泽度
Ret(6) = 0    '明暗度
Ret(7) = 0    '透明度
Ret(8) = 0.61 '发射率
Ret(9) = 0.9    '没看到效果
ModelDoc.MaterialPropertyValues = Ret
ModelDoc.EditRebuild
'MsgBox "red" & Ret(0) & vbCrLf & "green" & Ret(1) & vbCrLf & "blue" & Ret(2) & vbCrLf & "周围环境" & Ret(3) & vbCrLf & "漫反射" & Ret(4) & vbCrLf & "镜面反射" & Ret(5) & vbCrLf & "自发光" & Ret(6)
End If
End Sub

作者: gshfydx 时间: 2008-5-5 16:11
在装配体中在需要改透明度的零件上，右键选择更改透明度，如果想取消，再点击一下就行了！

作者: make2008 时间: 2008-5-5 16:14
另件中能不能啊？

作者: 544042901 时间: 2008-5-5 16:16
用编辑颜色工具很简单呀!想改是就改,想用回原先颜色只需点击去除颜色按键就可以了!

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)