Question

代码如下（CATScript）：

$ tree _book/chapter1/
_book/chapter1/
└── DIAGRAMS.html

除了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不会在我的2D绘图中将任何选定的线条和框架更改为黑色之外，该代码均可无缝运行。我可以手动执行此操作，因此非常确定我只是使用了错误的语法。 oSelection.VisProperties.SetRealColor 255, 255, 255, 0都不起作用，但是我也只能发现这些语法用于在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

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

1 个答案: