Открытие документа чертежа

Автор dd22, 01.12.08, 10:15:05

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

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

dd22

Имеется код для открытия чертежа (спецификации) :

Dim docType As Integer
       docType = Kompas.ksGetDocumentTypeByName(sff1)
       Select Case docType
         Case lt_DocPart3D, lt_DocAssemble3D
           Dim ksDocument3D As Object
           Set ksDocument3D = Kompas.Document3D
           ksDocument3D.Open sff1, 0
         Case lt_DocSheetStandart, lt_DocFragment
           Dim ksDocument2D As Object
           Set ksDocument2D = Kompas.Document2D
           ksDocument2D.ksOpenDocument sff1, False
         Case lt_DocSpc, lt_DocSpcUser
           Dim ksSpcDocument As Object
           Set ksSpcDocument = Kompas.SpcDocument
           ksSpcDocument.ksOpenDocument sff1, False
         Case lt_DocTxtStandart
           Dim ksDocumentTxt As Object
           ksDocumentTxt = Kompas.DocumentTxt
           ksDocumentTxt.ksOpenDocument sff1, False
       End Select
где, sff1 - имя файла-документа и его полный путь

код работает, но когда чертеж открывается, то всплывает сообщение "Перестроить чертеж?" Да Нет

программа открывает десятки чертежей и наши конструкторы  устали нажимать "Нет" десятки раз, можно ли  как-то открывать документы-чертежи и чтобы сразу в команде открытия уже по умолчанию было "Нет , чертеж перестраивать не надо"

Заранее спасибо.