Пользовательский формат листа + VB.Net

[3Dge]

Подскажите возможно ли кодом задать пользовательский формат листа.
То есть, есть код на VB 2010 для создания листа формата ISO A4 на кнопку :

Код: Выделить всё

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim CATIA As INFITF.Application
        CATIA = GetObject(, "CATIA.Application")
        Dim DrawingDocuments1 As INFITF.Documents
        DrawingDocuments1 = CATIA.Documents

        Drawing1 = DrawingDocuments1.Add("Drawing")

        Dim catISO_1 As DRAFTINGITF.CatDrawingStandard = 1
        Drawing1.Standard = catISO_1

        Dim drawingSheets1 As DRAFTINGITF.DrawingSheets
        drawingSheets1 = Drawing1.Sheets

        Dim drawingSheet1 As DRAFTINGITF.DrawingSheet
        DrawingSheet1 = drawingSheets1.ActiveSheet

        Dim catPaperA4_1 As DRAFTINGITF.CatPaperSize = 6
        drawingSheet1.PaperSize = catPaperA4_1
        Dim catPaperPortrait_1 As DRAFTINGITF.CatPaperOrientation = 0
        drawingSheet1.Orientation = catPaperPortrait_1
        DrawingSheet1.Scale2 = 1

        CATIA.ActiveWindow.ActiveViewer.Reframe()

    End Sub


Всё работает, вот только нужно чтобы вместо ISO было GOST ( это тот самый ESKD_V5R19.xml который лежит здесь : http://www.plm-forum.ru/forum/viewtopic.php?f=213&t=1592). Не знаю возможно ли изменить код , так что бы он брал ГОСТовский лист.
Была мысль подменить переименовав ESKD_V5R19.xml в ISO.xml - но у меня закрыт доступ к изменению/удалению ISO.xml.

[Wireless_Fidelity]

Здравствуйте.

То, что Вы называете форматом, в CATIA называется "стандарт" (Standard). Формат же это просто размер (А3, А4 и т.п.).
Насколько я помню, без подмены xml-файлов, о которой говорите Вы, программно задать стандарт не получится.

Другое решение заключается в том, чтобы создать и разместить где-нибудь на общедоступном ресурсе пустой CATDrawing, созданный по желаемому формату, а затем вместо создания нового документа клонировать этот шаблон.

[3Dge]

Идея понятна. Спасибо за ответ, будем думать.