iLogic Drawing sheet color

[Raf_]

Hi All,

Is it possible to change drawing sheet color using iLogic external rule, also to add tick to Preserve Orphaned  Annotations and change dimensions text alignment as per screenshots below:

Thanks

[bradeneuropeArthur · Accepted solution]

Hi,

For VBA:

Public Sub main()

Dim a As Application
Set a = ThisApplication

Dim b As DrawingDocument
Set b = a.ActiveDocument

Dim c As DrawingOptions
Set c = a.DrawingOptions

Dim oColor As Color
Set oColor = a.TransientObjects.CreateColor(255, 255, 255)

b.SheetSettings.SheetColor = oColor
b.DrawingSettings.PreserveOrphanedAnnotations = True
b.DrawingSettings.DimensionTextAlignment = kMaintainCenteredTextAlignment
End Sub

For I-logic:

Public Sub main()

Dim a As Application
a = ThisApplication

Dim b As DrawingDocument
b = a.ActiveDocument

Dim c As DrawingOptions
c = a.DrawingOptions

Dim oColor As Color
oColor = a.TransientObjects.CreateColor(255, 255, 255)

b.SheetSettings.SheetColor = oColor
b.DrawingSettings.PreserveOrphanedAnnotations = True
b.DrawingSettings.DimensionTextAlignment = kMaintainCenteredTextAlignment
End Sub

Regards,

[Raf_]

Thank you very much works perfectly, just remove 'Set' from ilogic code 🙂

Set b = a.ActiveDocument