PLM-forum.ru

имееться такой код
CATIA.DisplayFileAlerts = False
Set NewDrwDocument = CATIA.Documents.Add("Drawing")
NewDrwDocument.Standard = catISO
Set NewDrwSheets = NewDrwDocument.Sheets
Set NewDrwSheet = NewDrwSheets.ActiveSheet
**NewDrwSheet.PaperSize = catPaperA4
NewDrwSheet.Orientation = catPaperLandscape
NewDrwSheet.Scale2 = 1

**--тут вылезает ошибка (звездочек в самом скрипте нет) такого вида


вопросы:
1) увязаны ли как нибудь catISO catPaperA4 с файлом настроек стандарта
2) если 1-да то как узнать как обозначаеться мой стандарт catмой стандарт хоть и прокатывает но результат не меняеться
3) можно ли как нибудь по другому задать формат листа а4...есть позозрение что через ширину и высоту

я попробовал - у меня на Вашем скрипте ошибка не вылетает-создается лист а4
(v5r17sp3)

Опишите плз какой стандарт:
его название(название файла настроек стандарта)
наименование форматки а4(название) в style /sheet
наименование Dimension/international standart
наименование листа в sheet format

Добрый день, столкнулся с такой же проблемой, при запуске макроса ругается на две строчки из выше приведённого примера:
oDrwSheet.PaperSize = catPaperA4 и oDrwSheet.Scale2 = 1. Строчки из хелпа САА V5, создание таблицы. В результате получаю следующее:

Если пропустить эти две строчки, то макрос создаёт лист с такими свойствами:
Лист создаётся с стандартом отличным от указанного в макросе...тот который прописан в установках. Это вполне устраивает, но почему не устанавливается тот который вписан в макрос? И можно ли прописать в макросе опцию отображения формата листа?

Релиз, сервис-пак?

Wireless_Fidelity писал(а):Релиз, сервис-пак?

5.21 и 6 сервиспак

вернулся снова к этой теме и выяснил как можно задавать формат листа через макрос, предыдущий код не срабатывает потому как у меня свой файл стандарт, отличный от ISO. На форумах нашёл ответ что стандартные листы типа А1 А2 и т.д не создаются по этой причине, некоторые ссылаются на неустановленные заплатки. В любом случае можно прибегнуть к форме задания формата заново через catPaperUser, попутно обзывая заданный формат стандартным обозначением (ну или как душе угодно)...другого способа подхватывать форматки из стандарта я не нашёл, а если использовать ISO то там всё равно нет таких форматов как А2х3 и т.д. ит.п.

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

NewDrwSheet.PaperSize = catPaperUser
NewDrwSheet.PaperName = "Формат Карин"
NewDrwSheet.SetPaperHeight 1000
NewDrwSheet.SetPaperWidth 300
NewDrwSheet.Orientation = catPaperLandscape
NewDrwSheet.Scale2 = 1