Код в addin работает на половину

Автор Тема: Код в addin работает на половину  (Прочитано 4751 раз)

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

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

  • ADN Club
  • **
  • Сообщений: 91
  • Карма: 0
  • Skype: niksasa1979
Добрый день. Есть код:
Case "DLxDrawingEnvironment", "DLxDrawingSketchEnvironment"
Dim dDoc As Object
                        dDoc = m_inventorApplication.ActiveDocument
                        Dim oSheets As Sheets
                        oSheets = dDoc.Sheets
                        Dim oSheet As Sheet
                        Dim oViews As DrawingViews
                        Dim oView As DrawingView
                        Dim nModel As Object
                        For Each oSheet In oSheets
                            oViews = oSheet.DrawingViews
                            For Each oView In oViews
                                nModel = oView.ReferencedDocumentDescriptor.ReferencedDocument.FullFileName
                                m_Form.mnModel.Text = nModel
                            Next
                        Next
                       
Для чертежей деталей он работает, т.е. в текстовом поле mnModel прописывается путь для файла модели.
Для чертежей сборок он не хочет работать. В чем может быть причина?

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

  • ADN Club
  • **
  • Сообщений: 91
  • Карма: 0
  • Skype: niksasa1979
Re: Код в addin работает на половину
« Ответ #1 : 11-02-2014, 17:18:39 »
Например в ilogic похожий код работает отлично:
Try
p = Parameter.Param("Путь")
Catch
ThisDrawing.Document.Parameters.UserParameters.AddByValue("Путь", "", UnitsTypeEnum.kTextUnits)
End Try
Dim oApp As Application: oApp = ThisApplication
Dim oDoc As DrawingDocument:  oDoc = oApp.ActiveDocument
Dim oSheets As Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView
oSheets = oDoc.Sheets
For Each oSheet In oSheets
oViews = oSheet.DrawingViews
                For Each oView In oViews
                oModelname = oView.ReferencedDocumentDescriptor.ReferencedDocument.FullFileName
                Parameter("Путь") = oModelname
                            Next
Next

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

  • ADN Club
  • **
  • Сообщений: 91
  • Карма: 0
  • Skype: niksasa1979
Re: Код в addin работает на половину
« Ответ #2 : 11-02-2014, 17:29:24 »
Вопрос снят, разобрался. Тему можно удалить.

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

  • Administrator
  • *****
  • Сообщений: 13870
  • Карма: 1785
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Код в addin работает на половину
« Ответ #3 : 11-02-2014, 17:42:13 »
Вопрос снят, разобрался.
Так в чем была проблема? Вопрос не праздный. Может кто-то еще столкнется с этой ситуацией и ему понадобится решение...
Тему можно удалить.
Темы мы не удаляем, а оставляем для тех, кто может столкнутся с той же проблемой.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

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

  • ADN Club
  • **
  • Сообщений: 91
  • Карма: 0
  • Skype: niksasa1979
Re: Код в addin работает на половину
« Ответ #4 : 11-02-2014, 17:46:02 »
Так в чем была проблема? Вопрос не праздный. Может кто-то еще столкнется с этой ситуацией и ему понадобится решение...
У меня сначала в процедуре создавались прочие свойства и параметры. Я переместил этот код в самое начало процедуры и все заработало.

Оффлайн Владимир Ананьев

  • ADN DevHelp
  • *
  • Сообщений: 148
  • Карма: 8
Re: Код в addin работает на половину
« Ответ #5 : 11-02-2014, 20:33:45 »
Ну и славно...