Скрипт на создание рамки...

[ShaytanTruba]

Вопрос такой:
По ЕСКД если в чертеже присутствует несколько листов одного чертежа, то первая рамка отстраивается полностью, а последующие листы имеют упрощенный вид.
А в скрипте есть условие что если количество листов больше 1 то он на всех создает упрощенный вид рамки. Попытался исправить условие что если лист первый то он создает один вид рамки, если 2-й и далее то упрощенный, но не получилось...

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

Dim nuSheet  As Integer
nuSheet  = 0
If (not DrwSheet.IsDetail) Then
    For e = 1 To DrwSheets.Count
      If (not DrwSheets.Item(e).IsDetail) Then
        nuSheet = nuSheet + 1
      End If
    Next
 End If

  If   ( nuSheet =1)  Then

... (создаются линии и текстовые поля)...

Else

...(создаются другие линии и текстовые поля)...


[Virty]

но не получилось...

Что конкретно не получилось?
Какое значение получила переменная "nuSheet"? Или было сообщение об ошибке?

[booSter]

Пример кода несколько загадочен...

Я бы писал так

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

...
' Retrieve DrawingSheets collection
Dim colSheets as DrawingSheets
Set colSheets = ...
...
' Declare proxy variables
Dim bfFirst as Boolean
bfFirst = True
Dim drwshCurr asDrawingSheet
Dim nbSheet as Integer
' Loop through the sheets
For nbSheet = 1 To colSheets.Count
    Set drwshCurr = colSheets.Item( nbSheet )
    If Not drwshCurr is Nothing Then ' use non-empty items
        If Not drwshCurr.IsDetail Then ' use non-details sheets
            If bfFirst Then
                bfFirst = False
                ' Put 1-st sheet treatment here
                ...
            Else
                ' Put rest sheets treatment here
                ...
            End If
        End If
    End If
Next
...


[ShaytanTruba]

Что конкретно не получилось?
Какое значение получила переменная "nuSheet"? Или было сообщение об ошибке?

Не получилось прописать условие на создание рамки по номеру листу, а не по количеству их.

nuSheet получает значение равное количеству созданных листов. Если 1 лист то nuSheet=1, если 2 листа то nuSheet=2 и т.д....

[ShaytanTruba]

Пример кода несколько загадочен...

Я бы писал так

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

...
' Retrieve DrawingSheets collection
Dim colSheets as DrawingSheets
Set colSheets = ...
...
' Declare proxy variables
Dim bfFirst as Boolean
bfFirst = True
Dim drwshCurr asDrawingSheet
Dim nbSheet as Integer
' Loop through the sheets
For nbSheet = 1 To colSheets.Count
    Set drwshCurr = colSheets.Item( nbSheet )
    If Not drwshCurr is Nothing Then ' use non-empty items
        If Not drwshCurr.IsDetail Then ' use non-details sheets
            If bfFirst Then
                bfFirst = False
                ' Put 1-st sheet treatment here
                ...
            Else
                ' Put rest sheets treatment here
                ...
            End If
        End If
    End If
Next
...


Попробовал твой метод... получилось так что он одну рамку накладывает на другую...

[booSter]

Хм.......
Ну ладно, я-то "навскидку" пример набросал, может чего и не учёл

Попробуй для верности переписать так:

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

...
' Declare proxy variables
Dim drwshCurr as DrawingSheet
Dim nbSheets as Integer
nbSheets = colSheets.Count
Dim nbCurr as Intefer
' Loop through the sheets
For nbCurr = 1 To nbSheets
    Set drwshCurr = colSheets.Item( nbCurr )
    ...
    Set drwshCurr = Nothing ' Сlean up the reference
Next
...


А по поводу наложения мысль такая:
Перед тем как что-то делать в DrawingSheet-е его нужно сначала активировать вызовом DrawingSheet.Activate, затем достать из него (в твоём случае) BG-View, затем полученный BG-View нужно активировать вызовом DrawingView.Activate, после чего из BG-View нужно достать Factory2D, и только потом рисовать линии и пр. используя соответствующие методы из Factory2D полученной на предыдущем шаге.

[Virty]

Ваш пример будет работать, если проверку условия "nuSheet" разместить внутри цикла:

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

If (Not DrwSheet.IsDetail) Then
  For e = 1 To DrwSheets.Count
    If (Not DrwSheets.Item(e).IsDetail) Then
      nuSheet = nuSheet + 1
      If( nuSheet =1 )  Then
       // ВЫЗЫВАЙТЕ SUB ДЛЯ РИСОВАНИЯ ПЕРВОГО/ЗАГЛАВНОГО ЛИСТА ЧЕРТЕЖА
      Else
       // ВЫЗЫВАЙТЕ SUB ДЛЯ РИСОВАНИЯ ВТОРОГО/ПОСЛЕДУЮЩЕГО ЛИСТА ЧЕРТЕЖА
      End If
    End If
  Next
End If


[ShaytanTruba]

Ваш пример будет работать, если проверку условия "nuSheet" разместить внутри цикла:

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

If (Not DrwSheet.IsDetail) Then
  For e = 1 To DrwSheets.Count
    If (Not DrwSheets.Item(e).IsDetail) Then
      nuSheet = nuSheet + 1
      If( nuSheet =1 )  Then
       // ВЫЗЫВАЙТЕ SUB ДЛЯ РИСОВАНИЯ ПЕРВОГО/ЗАГЛАВНОГО ЛИСТА ЧЕРТЕЖА
      Else
       // ВЫЗЫВАЙТЕ SUB ДЛЯ РИСОВАНИЯ ВТОРОГО/ПОСЛЕДУЮЩЕГО ЛИСТА ЧЕРТЕЖА
      End If
    End If
  Next
End If


К сожалению не работает... точнее работает но так как я писал выше. Создает одну рамку поверх другой...
з.ы. Я уже так пробовал

Попробуй для верности переписать так:

Создает на одном листе столько рамок сколько всего листов...

А по поводу наложения мысль такая:
Перед тем как что-то делать в DrawingSheet-е его нужно сначала активировать вызовом DrawingSheet.Activate, затем достать из него (в твоём случае) BG-View, затем полученный BG-View нужно активировать вызовом DrawingView.Activate, после чего из BG-View нужно достать Factory2D, и только потом рисовать линии и пр. используя соответствующие методы из Factory2D полученной на предыдущем шаге.

Все это делается...

[Virty]

Действительно, Вы оказались правы.
Мне нужно больше тренироваться.
Условие, предложенное мной ранее, всё равно перебирает все листы до «DrwSheets.Count».

Предлагаю другую логику решения задачи: определить индекс листа в коллекции «DrwSheets»,
для этого узнаём имя «ActiveSheet» и сравниваем его со всеми именами листов в «DrwSheets».
Как только имя совпадает, получаем индекс листа по его имени и решаем, какую основную надпись делать.

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

Dim sCurrentName As String
Dim iSheet As Integer
Dim iTotalSheets As Integer
Dim iSheetIndex As Integer

iTotalSheets = oSheets.Count
sCurrentName = oSheet.Name

If (Not oSheet.IsDetail) Then
  For iSheet = 1 To iTotalSheets
    If (Not oSheets.Item(iSheet).IsDetail) Then
      If (sCurrentName = oSheets.Item(iSheet).Name) Then
        iSheetIndex =  iSheet
        Exit For
      End If
    End If
  Next
End If

If  (iSheetIndex = 1) Then
  // ВЫЗЫВАЙТЕ SUB ДЛЯ РИСОВАНИЯ ПЕРВОГО/ЗАГЛАВНОГО ЛИСТА ЧЕРТЕЖА
Else
  // ВЫЗЫВАЙТЕ SUB ДЛЯ РИСОВАНИЯ ВТОРОГО/ПОСЛЕДУЮЩЕГО ЛИСТА ЧЕРТЕЖА
End If


При условии, что:

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

Public oDocument   As DrawingDocument
Public oSheets   As DrawingSheets
Public oSheet      As DrawingSheet

Sub CATInit()

   Set oDocument = CATIA.ActiveDocument
   Set oSheets = oDocument.Sheets
   Set oSheet = oDocument.Sheets.ActiveSheet

/* OTHER PROPERTIES  */

End Sub


[ShaytanTruba]

Большое спасибо Virty, сделал как ты показал. Все вроде работает

[ExtraRight]

Извините, что вмешиваюсь, уважаемые наши программеры
Если кому не жалко, выложите, плиз в разделе Кладовая по локализации полноценный и работающий скрипт рамки чертежа вот в этой теме -
Чертежи в CATIA: Скрипт для создания рамок