3d模型需要分开导入，如气缸和伺服要分开，不能是一个模型。另外一种方法是导入3d设计图的图片，在气缸和伺服加颜色遮罩来显隐控制来实现。https://support.industry.siemens.com/cs/mdm/109816692?c=167645771531&lc=zh-CN

示例

本例恢复对象“object_211”的原颜色，并输出确认消息。

'VBS414

Dim obj

Set obj = ScreenItems("cwc1").SetObjectMaterialColorExt("object_211", True, "rgb(0, 200, 100)")

HMIRuntime.Trace "Executed " & "SetObjectMaterialColorExt" & vbCrLf & " Returned obj With type " & VarType(obj) & vbCrLf

Dim attr

HMIRuntime.Trace "  Properties of the object: " & vbCrLf & "    "

HMIRuntime.Trace "key: " & obj.key & ", message: " & obj.message

HMIRuntime.Trace vbCrLf & vbCrLf