При запуске модуля выдает «nil»?

[Пашин Евгений]

Добрый день, ищу ответ на вопрос:
Что может быть причиной появления сообщения «nil» при запуске модуля? Модуль работает почти на всех машинах, кроме некоторых (в основном Windows 7)! У кого-нибудь происходило что-то подобное?

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

Что может быть причиной появления сообщения «nil» при запуске модуля?

Будем гадать на кофейной гуще? nil обычно возвращают lisp-программы.

[Александр Пекшев aka Modis]

Александр меня опередил - только хотел сказать, что в C# нет nil

[Пашин Евгений]

Будем гадать на кофейной гуще? nil обычно возвращают lisp-программы.

Да, LISP присутствует, но только для того, чтобы определить разрядность системы...

Сейчас более подробно ошибочку обозначу.

[Александр Пекшев aka Modis]

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

Ого! Какие извращения )))

Добавлено: хотя может и смысл есть - средствами .Net оказывается нельзя узнать разрядность системы

[Пашин Евгений]

Команда: (load "T:/AutoCAD/Data_base/LISP/_SAPR/Model_To_Layouts/VPGallurgy/Start.LSP")
_netload Имя файла сборки: T:\AutoCAD\Data_base\LISP\_SAPR\Model_To_Layouts\VPGallurgy\Release_x64\GAMTL_090915.dll Не удалось загрузить сборку. Сведения об ошибке: System.IO.FileLoadException: Could not load file or assembly 'file:///T:\AutoCAD\Data_base\LISP\_SAPR\Model_To_Layouts\VPGallurgy\Release_x64\GAMTL_090915.dll' or one of its dependencies. Operation is not supported. (Exception from HRESULT: 0x80131515)
File name: 'file:///T:\AutoCAD\Data_base\LISP\_SAPR\Model_To_Layouts\VPGallurgy\Release_x64\GAMTL_090915.dll' ---> System.NotSupportedException: An attempt was made to load an assembly from a network location which would have caused the assembly to be sandboxed in previous versions of the .NET Framework. This release of the .NET Framework does not enable CAS policy by default, so this load may be dangerous. If this load is not intended to sandbox the assembly, please enable the loadFromRemoteSources switch. See http://go.microsoft.com/fwlink/?LinkId=155569 for more information.
   at System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint, StackCrawlMark& stackMark, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   at System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName assemblyRef, Evidence assemblySecurity, StackCrawlMark& stackMark, Boolean forIntrospection, Boolean suppressSecurityChecks)
   at System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile, Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks, StackCrawlMark& stackMark)
   at System.Reflection.Assembly.LoadFrom(String assemblyFile)
   at Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
   at loadmgd()


Как-то так...

[Александр Пекшев aka Modis]

Как-бы.... нужен текст Start.LSP. а не текст ошибки

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

Александр меня опередил - только хотел сказать, что в C# нет nil

Не совсем так. На C# можно написать lisp-функцию, которая может, если её вызвать, вернуть nil и это значение может быть напечатано в командной строке.

[Пашин Евгений]

Добавлено: хотя может и смысл есть - средствами .Net оказывается нельзя узнать разрядность системы

Модуль находится в сети, а пользователь нажимает кнопочку из палитры в AutoCAD-е, на своем компьютере (а я не в курсе, то ли машина х32 или х64). Поэтому запускается LISP, который определяет разрядность, а затем запускает необходимый модуль (в зависимости от разрядности). Если бы знать как определять это с помощью .NET до запуска модуля, я бы не извращался )))

[Виктор Чекалин]

средствами .Net оказывается нельзя узнать разрядность системы

A вот это разве не то что нужно? Environment.Is64BitOperatingSystem

[Виктор Чекалин]

Да и из C# можно всегда выполнить нативный код WinAPI.
Можно вот так вот:

Код - C# [Выбрать]

1. static bool is64BitProcess = (IntPtr.Size == 8);
2. static bool is64BitOperatingSystem = is64BitProcess || InternalCheckIsWow64();
3.  
4. [DllImport("kernel32.dll", SetLastError = true, CallingConvention = CallingConvention.Winapi)]
5. [return: MarshalAs(UnmanagedType.Bool)]
6. private static extern bool IsWow64Process(
7.     [In] IntPtr hProcess,
8.     [Out] out bool wow64Process
9. );
10.  
11. public static bool InternalCheckIsWow64()
12. {
13.     if ((Environment.OSVersion.Version.Major == 5 && Environment.OSVersion.Version.Minor >= 1) ||
14.         Environment.OSVersion.Version.Major >= 6)
15.     {
16.         using (Process p = Process.GetCurrentProcess())
17.         {
18.             bool retVal;
19.             if (!IsWow64Process(p.Handle, out retVal))
20.             {
21.                 return false;
22.             }
23.             return retVal;
24.         }
25.     }
26.     else
27.     {
28.         return false;
29.     }
30. }

Взято отсюда

Добавлено:
Похоже я поторопился. Нужна ведь разрядность AutoCAD

[Александр Пекшев aka Modis]

Environment.Is64BitOperatingSystem

Появилось только начиная с версии 4.0, поэтому не всегда подходит некоторым...

Модуль находится в сети, а пользователь нажимает кнопочку из палитры в AutoCAD-е, на своем компьютере (а я не в курсе, то ли машина х32 или х64). Поэтому запускается LISP, который определяет разрядность, а затем запускает необходимый модуль (в зависимости от разрядности). Если бы знать как определять это с помощью .NET до запуска модуля, я бы не извращался )))

Ну если погуглить, то можно найти решение на net - это раз. Два - две dll: первая определяет разрядность, вторая - рабочая

Ну и где код-то?

[Пашин Евгений]

A вот это разве не то что нужно? Environment.Is64BitOperatingSystem

Это точно было бы здорово, если бы не одно «НО», нам это нужно как-то сделать до запуска модуля! То есть, эта проверка должна быть запущена до старта модуля!

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

Всё из-за этого:

System.NotSupportedException: An attempt was made to load an assembly from a network location which would have caused the assembly to be sandboxed in previous versions of the .NET Framework.

Читаем: http://adndevblog.typepad.com/autocad/2012/09/error-netloading-plugin-from-network-location.html

[Пашин Евгений]

Ну и где код-то?

Код - Auto/Visual Lisp [Выбрать]

1. (if (> (strlen (vl-prin1-to-string (vlax-get-acad-object))) 40)
2.     (command "_netload" "T:\\AutoCAD\\Data_base\\LISP\\_SAPR\\Model_To_Layouts\\VPGallurgy\\Release_x64\\GAMTL_090915.dll")
3.     (command "_netload" "T:\\AutoCAD\\Data_base\\LISP\\_SAPR\\Model_To_Layouts\\VPGallurgy\\Release_x32\\GAMTL_090915.dll")
4. ); end of if
5. (command "_GALMODELTOLAYOUTS")
6. (command "_REGENALL")
7.