Как заменить рамку на чертеже?

Автор Тема: Как заменить рамку на чертеже?  (Прочитано 5354 раз)

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

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Доброго времени суток, уважаемые форумчане! Помогите пожалуйста с вопросом, указанным в теме. Меняю формат листа чертежа, теперь требуется поменять рамку. Пересмотрел кучу примеров кода, но все не могу понять "логики" процесса. Буду рад любому совету. На текущий момент я умею удалять рамку и получать BorderDefinition требуемой рамки, но не могу найти метод вставки рамки на лист.
Мой код:
Код - Visual Basic [Выбрать]
  1. Private Sub test_dwg_3()
  2.     Dim oDoc As DrawingDocument
  3.     Set oDoc = ThisApplication.ActiveDocument
  4.     Dim oSheet As Sheet
  5.     Set oSheet = oDoc.ActiveSheet
  6.  
  7.     If Not oSheet.Border Is Nothing Then
  8.     oSheet.Border.Delete
  9.     End If
  10.  
  11.     Dim oBorderDef As BorderDefinition
  12.     Set oBorderDef = oDoc.BorderDefinitions.Item("ГОСТ - A4")
  13. End Sub
В программировании я новичок...но ненадолго! ;)

Отмечено как Решение R.I.Chernov 30-08-2016, 16:52:16

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 752
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Как заменить рамку на чертеже?
« Ответ #1 : 30-08-2016, 16:47:29 »
но не могу найти метод вставки рамки на лист.

Sheet.AddBorder

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Как заменить рамку на чертеже?
« Ответ #2 : 30-08-2016, 16:48:40 »
но не могу найти метод вставки рамки на лист.

Sheet.AddBorder

Пробовал уже, не работает. Тоже думал, что это то что нужно, но увы... решил, что это метод добавления новой рамки в список.
П.С. Или вы точно уверены, что это нужный метод?
В программировании я новичок...но ненадолго! ;)

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Как заменить рамку на чертеже?
« Ответ #3 : 30-08-2016, 16:52:07 »
Так, беру слова назад! У меня мозг кипит походу! Нужно было добавить "Call". Спасибо, Михаил!
Итоговый код:
Код - Visual Basic [Выбрать]
  1. Private Sub test_dwg_3()
  2.     Dim oDoc As DrawingDocument
  3.     Set oDoc = ThisApplication.ActiveDocument
  4.     Dim oSheet As Sheet
  5.     Set oSheet = oDoc.ActiveSheet
  6.  
  7.     If Not oSheet.Border Is Nothing Then
  8.     oSheet.Border.Delete
  9.     End If
  10.  
  11.     Dim oBorderDef As BorderDefinition
  12.     Set oBorderDef = oDoc.BorderDefinitions.Item("ГОСТ - A4")
  13.     Call oSheet.AddBorder(oBorderDef)
  14. End Sub
В программировании я новичок...но ненадолго! ;)

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 752
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Как заменить рамку на чертеже?
« Ответ #4 : 30-08-2016, 17:07:15 »
Нужно было добавить "Call"
на C# же Call не нужен  ;)

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Как заменить рамку на чертеже?
« Ответ #5 : 30-08-2016, 17:19:28 »
на C# же Call не нужен  ;)
Потому, наверное, и забыл! :D
Разбираться предпочитаю в VBA, потом уже в C# переносить. :)
В программировании я новичок...но ненадолго! ;)