Удалении свойств при выполнении команды "сохранить как"

Автор Тема: Удалении свойств при выполнении команды "сохранить как"  (Прочитано 6845 раз)

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

Оффлайн niksasaАвтор темы

  • ADN Club
  • **
  • Сообщений: 91
  • Карма: 0
  • Skype: niksasa1979
Приветствую всех. Можно ли через addin реализовать следующее: удалять все свойства или определенные при выполнении команды "сохранить как"?

Оффлайн Алексей Романов

  • ADN Club
  • **
  • Сообщений: 87
  • Карма: 20
Можно ли через addin реализовать следующее: удалять все свойства или определенные при выполнении команды "сохранить как"?
Можно, ответил на cad.ru...

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

  • Administrator
  • *****
  • Сообщений: 13882
  • Карма: 1787
  • Рыцарь ObjectARX
  • Skype: rivilis
Алексей Романов,
Можно, ответил на cad.ru...
Или ссылку на ответ там, или (лучше) копию ответа сюда. Этот вопрос может возникнуть не только у niksasa.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн Алексей Романов

  • ADN Club
  • **
  • Сообщений: 87
  • Карма: 20
Или ссылку на ответ там, или (лучше) копию ответа сюда.
Извиняюсь, упустил, хотел сам ответ оформить ссылкой (.
В общем виде "сохранить как" можно отследить так:
Код - vb.net [Выбрать]
  1. Private Sub oAppEvents_OnSaveDocument(ByVal DocumentObject As _Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum) Handles oAppEvents.OnSaveDocument
  2.     If BeforeOrAfter = EventTimingEnum.kAfter Then
  3.         If Context.Item(1) <> Context.Item(2) Then
  4.             Dim sdoc As Document = Nothing
  5.             If m_inventorApplication.ActiveDocument.FullFileName = Context.Item(1) Then
  6.                 sdoc = m_inventorApplication.ActiveDocument
  7.             Else
  8.                 Try
  9.                     sdoc = m_inventorApplication.Documents.ItemByName(Context.Item(1))
  10.                 Catch ex As Exception
  11.                     sdoc = m_inventorApplication.Documents.Open(Context.Item(1))
  12.                 End Try
  13.             End If
  14.         End If
  15.     End If
  16. End Sub
  17.  
DocumentObject - старый документ
Context.Item(1) - ссылка на новый документ
sdoc - новый документ
« Последнее редактирование: 22-02-2015, 13:02:22 от Алексей Романов »

Оффлайн niksasaАвтор темы

  • ADN Club
  • **
  • Сообщений: 91
  • Карма: 0
  • Skype: niksasa1979
Казалось бы ничего сложного, а удалить прочие свойства детали так и не получилось :(

Оффлайн Алексей Романов

  • ADN Club
  • **
  • Сообщений: 87
  • Карма: 20
удалить прочие свойства детали так и не получилось
А в чем конкретно проблема?

Оффлайн niksasaАвтор темы

  • ADN Club
  • **
  • Сообщений: 91
  • Карма: 0
  • Skype: niksasa1979
А в чем конкретно проблема?
Не могу понять куда впихнуть код на удаление прочих свойств, чтобы он срабатывал после сохранения как. Тупой доцент.

Оффлайн Алексей Романов

  • ADN Club
  • **
  • Сообщений: 87
  • Карма: 20
Не могу понять куда впихнуть код на удаление прочих свойств, чтобы он срабатывал после сохранения как.
Из какого документа нужно удалить все свойства? После kAfter логично удалить из нового документа sdoc, т.е. в конце условия
If Context.Item(1) <> Context.Item(2) Then...