Копирование базового вида на другой чертёж.

Автор Тема: Копирование базового вида на другой чертёж.  (Прочитано 3459 раз)

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

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

  • ADN Club
  • *****
  • Сообщений: 565
  • Карма: 18
Доброго времени суток, уважаемые форумчане. Помогите пожалуйста решить задачу, обозначенную в теме. Есть чертёж, на нем нанесён базовый вид. Мне требуется создать другой чертёж и скопировать этот базовый вид на него. С созданием нового чертежа все понятно, но какими операциями осуществляется копирование вида, даже не представляю. Подскажите пожалуйста, где стоит искать ответ?
В программировании я новичок...но ненадолго! ;)

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 751
  • Карма: 195
  • Skype: mikazakov@mail.ru
скопировать этот базовый вид на него
DrawingView.CopyTo( TargetSheet As Sheet ) As DrawingView

Отмечено как Решение R.I.Chernov 08-09-2016, 14:53:01

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

  • ADN Club
  • *****
  • Сообщений: 565
  • Карма: 18
Спасибо, Михаил.
Код - Visual Basic [Выбрать]
  1. Private Sub test_dwg_11()
  2.     Dim oDoc_dwg As DrawingDocument
  3.     Set oDoc_dwg = ThisApplication.ActiveDocument
  4.     Dim oSheet As Sheet
  5.     Set oSheet = oDoc_dwg.ActiveSheet
  6.     Dim oView As DrawingView
  7.     Set oView = oSheet.DrawingViews(3)
  8.    
  9.     Dim Templ_Path As String
  10.     Templ_Path = ThisApplication.DesignProjectManager.ActiveDesignProject.TemplatesPath + "Обычный.idw"
  11.     Dim oDoc_dwg_new As DrawingDocument
  12.     Set oDoc_dwg_new = ThisApplication.Documents.Add(kDrawingDocumentObject, Templ_Path)
  13.     Call oView.CopyTo(oDoc_dwg_new.Sheets(1))
  14. End Sub
В программировании я новичок...но ненадолго! ;)

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13830
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
R.I.Chernov
Не забывай "плюсовать" Михаила, раз уж отмечаешь свои сообщения как Решение.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

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

  • ADN Club
  • *****
  • Сообщений: 565
  • Карма: 18
Не забывай "плюсовать" Михаила, раз уж отмечаешь свои сообщения как Решение.
Стараюсь не жалеть для Михаила этого "добра"! А свое сообщения "решением" отмечаю, чтобы людям удобнее было код найти, в случае необходимости. Ведь цель форума - быть источником знаний и  помощью в программировании, или нет?
В программировании я новичок...но ненадолго! ;)

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

  • ADN Club
  • *****
  • Сообщений: 565
  • Карма: 18
Если уж про это заговорили, хочу отметить, что было бы неплохо ввести возможность отмечать несколько сообщений как решение, как на форуме inventor customization. Так как, зачастую, у задач несколько решений. Людям было бы удобнее искать.
В программировании я новичок...но ненадолго! ;)

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13830
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
неплохо ввести возможность отмечать несколько сообщений как решение
Увы, но движок форума (точнее плагина) этого не позволяет, а я не web-программист и для такой переделки у меня бы ушло слишком много времени.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

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

  • ADN Club
  • *****
  • Сообщений: 565
  • Карма: 18
Понятно, а жаль.
В программировании я новичок...но ненадолго! ;)