"Paste Special" "As Result with Link" на клавишу.

[phil1971]

Привет всем форумчанам!
Долго мучает меня неразрешенный вопрос. Подскажите, поделитесь, пожалуйста...
Нудно на кнопку повесить функцию "Paste Special" "As Result with Link".
Отдельно первая часть вешается (через Customize), но нужно все вместе.
Где-то слышал, что нужно писать макрос или скрипт. Помоготе, помогите-поделитесь.
С уважением.

[Wireless_Fidelity]

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

В том же Customize во вкладке Commands нужно выбрать в левом списке Macros, а в правом скрипт, для которого делается кнопка. После чего через Show Properties настроить иконку и описание, а затем перетащить строку с именем макроса на панельку. Всё это описано в руководстве.

Код скрипта:

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

Sub CATMain
    Dim oSel as Selection
    On Error Resume Next
        Set oSel = CATIA.ActiveDocument.Selection

    If (Err.Number = 0) Then
        oSel.PasteSpecial "CATPrtResult"
    Else
        Err.Clear
    End If
End Sub


[phil1971]

Спасибо!!! Все заработало.
Сделал себе две клавиши: Paste with links и Paste without links.
Работает и в сборке и в отдельном парте...
Ура!!!

С уважением,
phil1971