ADN Club > Inventor API

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

(1/2) > >>

niksasa:
Добрый день. Есть код:

--- Код: ---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:
Например в 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:
Вопрос снят, разобрался. Тему можно удалить.

Александр Ривилис:

--- Цитата: niksasa от 11-02-2014, 17:29:24 ---Вопрос снят, разобрался.
--- Конец цитаты ---
Так в чем была проблема? Вопрос не праздный. Может кто-то еще столкнется с этой ситуацией и ему понадобится решение...

--- Цитата: niksasa от 11-02-2014, 17:29:24 ---Тему можно удалить.
--- Конец цитаты ---
Темы мы не удаляем, а оставляем для тех, кто может столкнутся с той же проблемой.

niksasa:

--- Цитата: Александр Ривилис от 11-02-2014, 17:42:13 ---Так в чем была проблема? Вопрос не праздный. Может кто-то еще столкнется с этой ситуацией и ему понадобится решение...
--- Конец цитаты ---
У меня сначала в процедуре создавались прочие свойства и параметры. Я переместил этот код в самое начало процедуры и все заработало.

Навигация

[0] Главная страница сообщений

[#] Следующая страница