Vbscript CATScript-黑色文本、线条和框架

代码如下（CATScript）：

---

代码可以无缝工作，但

oSelection.VisProperties.SetRealColor 255、255、255、0

不会将我的二维图形中的任何选定线和帧更改为黑色。我可以手动执行此操作，因此非常确定我只是使用了错误的语法

SetVisibleColor

两者都不起作用，但我只能发现这些语法用于在3D中更改颜色，而我正在将其用于2D图形。这里有人知道在“图形属性”工作区中为二维图形操作颜色图标的语法吗？

这是我经过一些研究和尝试后发现的解决方案：

'CHANGE LINE COLOR
Set oSelectionGI = oDrawingDocument.Selection               
oSelectionGI.Search("CATDrwSearch.CATEarlyGenItem,all")     
oSelectionGI.VisProperties.SetRealColor 0,0,0,0

'CHANGE TEXT COLOR
Set oSelectionDC = oDrawingDocument.Selection
oSelectionDC.Search("CATDrwSearch.DrwText,all")
oSelectionDC.VisProperties.SetRealColor 0,0,0,0

'CHANGE TABLE COLOR
Set oSelectionDT = oDrawingDocument.Selection
oSelectionDT.Search("CATDrwSearch.DrwTable,all")
oSelectionDT.VisProperties.SetRealColor 0,0,0,0

---

看着你，你似乎做出了正确的决定。不知道这是否是分层问题，在指定颜色之前是否需要设置特定的层？因为我从未使用过CATIA，所以我可能会有点不对劲，所以请少管闲事。@Lankymart手动输入工作表背景，选择整个工作表（就像代码一样），在“图形属性”工作区中选择黑色，一切都是黑色的。有了我现在的代码行，没有任何颜色被改变。在手动和脚本过程中，该层处于“无”状态。@Lankymart还检查了是否使用oSelection注册了选择。激活oSelection后计数。搜索“Type=*，scr”。这将返回“11”。在这种情况下，我建议循环选择对象（对每个循环使用

），并输出正在选择的对象，以确认它们是选择中的预期对象。目前，所做的假设太多。@Lankymart选择了以下对象（如您所指出的，通过循环收集的信息）：1。点2D（1x）-2。Line2D（2x）-3。绘图组件（5x）-4。DrawingText（4x）。
'CHANGE LINE COLOR
Set oSelectionGI = oDrawingDocument.Selection               
oSelectionGI.Search("CATDrwSearch.CATEarlyGenItem,all")     
oSelectionGI.VisProperties.SetRealColor 0,0,0,0

'CHANGE TEXT COLOR
Set oSelectionDC = oDrawingDocument.Selection
oSelectionDC.Search("CATDrwSearch.DrwText,all")
oSelectionDC.VisProperties.SetRealColor 0,0,0,0

'CHANGE TABLE COLOR
Set oSelectionDT = oDrawingDocument.Selection
oSelectionDT.Search("CATDrwSearch.DrwTable,all")
oSelectionDT.VisProperties.SetRealColor 0,0,0,0