CATScript - текст, линии и рамки черного цвета - PullRequest
Новая
       26

CATScript - текст, линии и рамки черного цвета

0 голосов
/ 30 августа 2018

Код такой как (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-чертежа?

1 Ответ

0 голосов
/ 31 августа 2018

Это решение, которое я нашел после некоторых исследований, проб и ошибок: 

'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
...