KeyboardEvents.OnKeyPress Event

Автор Тема: KeyboardEvents.OnKeyPress Event  (Прочитано 13929 раз)

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

Оффлайн Bookvoed

  • ADN OPEN
  • Сообщений: 37
  • Карма: 0
Re: KeyboardEvents.OnKeyPress Event
« Ответ #15 : 27-10-2022, 14:28:11 »
Здравствуйте. Извиняюсь за поднятие старой темы. Возникла необходимость отследить нажатие сочетания клавиш ctrl+S, для того , чтобы при сохранении чертежа, в addin сработал код:

Код - Visual Basic [Выбрать]
  1. Dim a = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
  2. iProperties.Value("Project", "Part Number") = iProperties.Value(a, "Project", "Part Number") & " " & iProperties.Value(a, "Project", "Description")
  3. fname = ThisDoc.Document.FullFileName.Remove(ThisDoc.Document.FullFileName.LastIndexOf("\")) & "\" & iProperties.Value("Project", "Part Number") & " " & iProperties.Value("Project", "Description")
  4. ThisDoc.Document.SaveAs(fname & ".pdf", True)
  5.  

Работа с addin - дело увлекательное, но самостоятельно разобраться не получилось :( , поэтому прошу вашей помощи.
Пробовал адаптировать способы, описанные в этой теме - не вышло.
Если долго мучиться - что-нибудь получится.