CATScript - 黑色文本，线条和框架

Question

代码如下（CATScript）：

Sub CATMain()
    '   enter sheet background
    Set oView = oDrawingDocument.DrawingRoot.ActiveSheet.Views.Item("Background View")
    oView.Activate

    '   select all views in current screen
    Set oSelection = oDrawingDocument.Selection
    oSelection.Search "Type=*,scr"

    '   set visual to black
    oSelection.VisProperties.SetRealColor 0, 0, 0, 0

    '   exit sheet background
    Set oView = oDrawingDocument.DrawingRoot.ActiveSheet.Views.Item("Main View")
    oView.Activate
End Sub

代码无缝地工作，除了oSelection.VisProperties.SetRealColor 255, 255, 255, 0在我的2D绘图中不会将任何选定的线条和框架更改为黑色。手动我可以做到这一点，所以很确定我只是使用了错误的语法。 SetVisibleColor既不起作用，但我也只能发现这些语法用于改变3D中的颜色，我将它用于2D绘图。这里的任何人都知道在2D图形的“图形属性”工作区中操作颜色图标的语法吗？

Answer 1

这是我在一些研究和试验和错误后发现的解决方案：

'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