[power85]

Здравствуйте помоги пожалуйста преобразовать данные Autolisp для VB.NET. Это функцию буду использовать в Autolisp.
Всего в rbArgs 12 аргументов и все они объявлены см. ниже.

Код:

[Выделить все]

Public Class Yporadich_mleader
    <LispFunction("Find_new_mesto_mleader")>
   Public Function Find_new_mesto_mleader(rbArgs As ResultBuffer)
        If Not rbArgs = Nothing Then
            Dim cpicok_kontyrov As List(Of Object) ' lisp тип: ((() ()) (() ())...)...)
            Dim cpicok_napravlenii_kontyrov As List(Of Object) ' lisp тип: ((() ()...)...)
            Dim koord_ramok_mleader As List(Of Object) ' lisp тип: ((() ()...)...)
            Dim koord_conect_text_mleader As List(Of Object) ' lisp тип: ((() ()...)...)
            Dim koord_x_vniz_left_vibora As Double ' lisp тип: десятичное число
            Dim koord_y_vniz_left_vibora As Double ' lisp тип: десятичное число
            Dim kol_strok_area_work As Integer ' lisp тип: целое число
            Dim kol_stolb_area_work As Integer ' lisp тип: целое число
            Dim cpicok_koordi_ramki_true As List(Of Object) ' lisp тип: ((() ()...)...)
            Dim matrix_in_ramok_koord_kontyrov As Object() ' lisp тип: ((() ()) (() ())...)...)
            Dim matrix_out_in_ramok_koord_kontyrov As Dictionary(Of String, Object) ' lisp тип: ((key . () ()...)...)
            Dim tochek_strelok_mleader As List(Of Object) ' lisp тип: ((() ()...)...)
            Dim nCnt As Integer = -1
            For Each Arg As TypedValue In rbArgs
                nCnt = nCnt + 1
                If nCnt = 0 Then
                    ??????
                End If
                ??????
            Next
            
 End Function
End Class

[Сергей812]

в свое время Александр Ривилис писал

Передача большого списка (десятки тысяч элементов и больше) из VisualLisp в lisp-функцию, созданную при помощи .NET очень не рекомендую. Замечал очень большие задержки именно на этапе передачи списка. Причем это не только в .NET, но и в чистом ObjectARX.

[power85]

У меня десятки тысяч элементов не будет. Я эту фикцию делаю для себя. Время не проблема.

[Сергей812]

как человек ленивый, поставил бы на входе в функцию точку останова и посмотрел бы в отладчике - что и в каком виде передали через ResultBuffer)

[power85]

Сообщение от Сергей812 как человек ленивый, поставил бы на входе в функцию точку останова и посмотрел бы в отладчике - что и в каком виде передали через ResultBuffer)

А как мне это сделать? Функцию Find_new_mesto_mleader я только могу запустить в Autocad же.
И если ли возможно NET функции отлаживать в Autocad?

[Сергей812]

а как иначе вылавливать логические runtime ошибки? - например

[power85]

Сообщение от Сергей812 а как иначе вылавливать логические runtime ошибки? - например

Интересно. Посмотрим.

[Кулик Алексей aka kpblc]

Сообщение от Сергей812 а как иначе вылавливать логические runtime ошибки? - например

Только вот лично мне при попытке посмотреть на ролик вываливается Access Denied (правда, я пока VPN не пользую).

[power85]

Сообщение от Кулик Алексей aka kpblc Только вот лично мне при попытке посмотреть на ролик вываливается Access Denied (правда, я пока VPN не пользую).

Через VPN показывает.

[Сергей812]

Кулик Алексей aka kpblc, но картинки то показывает) Можно на пока еще без впн трубе - акад как внешний процесс

[power85]

Сообщение от Сергей812 как человек ленивый, поставил бы на входе в функцию точку останова и посмотрел бы в отладчике - что и в каком виде передали через ResultBuffer)

Вот что выдал (см. во вложении картинку). Там какой то список размером 2300 элементов. Разделение на 12 аргументов не видно.

[Сергей812]

Сообщение от power85 Dim cpicok_kontyrov As List(Of Object) ' lisp тип: ((() ()) (() ())...)...)

(1) 5016 - начало списка
(2...13) 5002 - 2D Point (2 вещественных числа)
(14) 5017 - конец списка

и т.д. Никто и не обещал, что данные будут сразу в вашем формате - собственно, вижуал студия даже об нем и не знает)

[power85]

Спасибо за ответы.
Понятно. А как понять что начинается другой аргумент в списке у меня autolisp их целых 12 ввел?
Наверное 5016 и 5016 в подряд это начало аргумента, а 5017 и 5017 в подряд это конец аргумента.
И еще вопрос последовательноcть аргументов в списке у них какае же как autolisp?

[Кулик Алексей aka kpblc]

См. в сторону LispDataType (если я правильно помню) - там должно быть нечто типа ListBegin / ListEnd.
ЗЫ https://adndevblog.typepad.com/autoc...t-to-lisp.html ?

----- добавлено через 20 сек. -----
+ http://www.theswamp.org/index.php?topic=35714.0

[Сергей812]

Сообщение от power85 И еще вопрос последовательноcть аргументов в списке у них какае же как autolisp?

а иначе как вообще можно разобрать данные, когда в буфере они по сути безымянные...

[power85]

Хорошо. Спасибо.