• Добро пожаловать на Форум пользователей ПО АСКОН. Пожалуйста, авторизуйтесь.
 

Уважаемые пользователи,

Хотим проинформировать вас о режиме работы регистрации на нашем сайте.

Зарегистрироваться возможно в рабочие дни, с 8:00 до 20:00 (мск).

Если у вас возникнут вопросы или потребуется дополнительная информация, не стесняйтесь обращаться к нашей службе поддержки. Вы можете связаться с нами по указанным контактным данным на нашем сайте.

Благодарим вас за понимание и сотрудничество. Мы ценим ваше терпение и стремимся предоставить вам лучший опыт использования нашего сервиса.

С уважением,
Команда Ascon

Как получить данные о формате и ориентации листа чертежа

Автор А8208, 14.03.11, 10:08:03

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

А8208

Здравствуйте.
Подскажите, пожалуйста, как получить данные о ориентации и формате листа чертежа.
Пишу код в VBA.
Взял пример из SDK.
Работает до строки задания переменной standart значения.
Пишет standart = Nothing
Подскажите что в коде неверно.

Private Sub Command()
        Dim Kompas As Object
  If Kompas Is Nothing Then
   Set Kompas = CreateObject("KOMPAS.Application.5")
    If Not Kompas Is Nothing Then
      Kompas.Visible = True
    Dim ksDocument2D As Object
    Filename = "D:\5.cdw"
    Set ksDocument2D = Kompas.Document2D
      ksDocument2D.ksOpenDocument (Filename), False
    End If
  Dim doc As Object
  Set doc = Kompas.ActiveDocument2D
 
  Dim docPar As Kompas6API5.DocumentParam
  Set docPar = Kompas.GetParamStruct(ko_DocumentParam)
 
  Dim sheet As Kompas6API5.SheetPar         ' ????????? ksSheetPar
  Set sheet = docPar.GetLayoutParam         ' ????????? ?????????? ??????????


Dim standart As Kompas6API5.StandartSheet ' ????????? ksStandartSheet
Set standart = sheet.GetSheetParam()     ' ????????? ?????????? ???????????? ?????




 
  If Not docPar Is Nothing Then
    doc.ksGetObjParam reference, docPar, -1 '(? ??????? ???????? allparam)
          ' format = iStandartSheet
            Kompas.ksMessage "??? ?????: " & docPar.Filename
            Kompas.ksMessage "type = " & docPar.Type
            Kompas.ksMessage "???????????: " & docPar.Comment
            Kompas.ksMessage "?????: " & docPar.Author
            Kompas.ksMessage "?????: " & docPar.Regime
    doc.ksGetObjParam reference, standart, -1 '(? ??????? ???????? allparam)
            Kompas.ksMessage "???????????: " & standart.format
            End If
End If
End Sub