Отправлено: Пашин Евгений от 30-09-2015, 09:10:12
Код - vb.net [Выбрать]
- MsgBox(Application.StartupPath) ' C:\Program Files\Autodesk\AutoCAD 2014
- MsgBox(Application.ExecutablePath) ' C:\Program Files\Autodesk\AutoCAD 2014\acad.exe
- MsgBox(Application.CommonAppDataPath) 'C:\ProgramData\Autodesk, Inc.\AutoCAD\R19.1.108.0.0
Совсем не то показывает )))
Подскажите как получить место, где dll-лежит ))) Карму подниму )))
Отправлено: Алексей Кулик от 30-09-2015, 09:29:47
Отправлено: Пашин Евгений от 30-09-2015, 09:39:40
Код - vb.net [Выбрать]
- Dim myPath As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
- MsgBox(myPath.Location)
Я бы точно сам не догадался! Или поиск решения занял бы большое количество времени!
_______________________________________________________________
Это я не понял )))) А почему Вашу карму можно мгновенно плюсовать? ))))
Отправлено: Алексей Кулик от 30-09-2015, 10:29:20
Отправлено: Владимир Шу от 30-09-2015, 10:54:06
Код - vb.net [Выбрать]
- Dim path As String = My.Application.Info.DirectoryPath
Отправлено: Пашин Евгений от 30-09-2015, 11:03:11
Отправлено: Пашин Евгений от 30-09-2015, 11:14:29
Мало того, это действительный путь к dll-файлу! А не к сборке )))
________________________________________________________________________________
Не понял как получилось двойное сообщение, я же просто подредактировать сообщение хотел...
Отправлено: Александр Ривилис от 30-09-2015, 11:28:18
Мало того, это действительный путь к dll-файлу! А не к сборке )))Не понял. О чем это ты?
Отправлено: Дмитрий Загорулькин от 30-09-2015, 11:33:01
Off-Topic: показать
Отправлено: Пашин Евгений от 30-09-2015, 11:34:43
Не понял. О чем это ты?
Ну вообще-то я получил не полный путь к папке dll-файла, а лишь все папки, которые находятся до папки BIN\RELEASE...
Код - vb.net [Выбрать]
- Dim myPath As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
- MsgBox(myPath.Location) ' Возвращает «D:\Пашин\Visual Studio 2013\Projects\AutoCAD_First_Button_After_Error\AutoCAD_First_Button_After_Error»
В принципе мне и этого хватает... но вот код
Код - vb.net [Выбрать]
- Dim path As String = My.Application.Info.DirectoryPath ' Возвращает «D:\Пашин\Visual Studio 2013\Projects\AutoCAD_First_Button_After_Error\AutoCAD_First_Button_After_Error\bin\Release»
дает весь путь. Жаль, что нельзя отмечать несколько решений, как верные решения )))
Отправлено: Пашин Евгений от 30-09-2015, 11:37:46
Что так скромно-то, всего +40? Не надо жадничать, накрути уж от души
Вот напишу приложение, которое будет кликать в одну точку и запущу )))) Пущай работает )))) А кстати раньше же работало по +1 к карме в час! Что случилось? Изменились правила?
А если честно, то Алексей Кулик так оперативно сработал, что даже жалко было бы поставить ему просто +1. Очень помогло его решение.
Отправлено: Александр Ривилис от 30-09-2015, 11:38:24
Есть еще варианты:
Код - C# [Выбрать]
- string curAssemblyName = System.Reflection.Assembly.GetExecutingAssembly().GetName().Name;
- string curAssemblyPath = System.Reflection.Assembly.GetExecutingAssembly().Location;
- string curAssemblyFullName = System.Reflection.Assembly.GetExecutingAssembly().GetName().FullName;
Отправлено: Александр Ривилис от 30-09-2015, 11:40:01
А кстати раньше же работало по +1 к карме в час! Что случилось? Изменились правила?Я снял это ограничение. Теперь верну назад. Из-за тебя. Не обсуждается.
Отправлено: Пашин Евгений от 30-09-2015, 11:43:47
Из-за тебя.
Так я ж от радости, а не от злого умысла...
Отправлено: Владимир Шу от 30-09-2015, 12:11:46
string curAssemblyPath = System.Reflection.Assembly.GetExecutingAssembly().Location;У меня этот метод частенько глючит.
Например на кнопке виси макрос:
Код - Auto/Visual Lisp [Выбрать]
- ^C^C_NETLOAD "C://ACAD_DLL//_AddMLeader//AddMLeader_2014.dll";bx_addmleader;
Цитировать
************** Exception Text **************
System.IO.FileNotFoundException: Could not find file 'C:\Users\user\Documents\blockXML.xml'.
File name: 'C:\Users\user\Documents\blockXML.xml''
А если запускать руками, через netload и потом командой, то ошибки нет.
К слову, с My.Application.Info.DirectoryPath таких ошибок не возникает в принципе.
Отправлено: Александр Ривилис от 30-09-2015, 12:17:04
Если есть возможность, то проверь что в этом случае возвращает Assembly.GetExecutingAssembly().GetName().FullName - должен быть полный путь к dll-файлу
Отправлено: Владимир Шу от 30-09-2015, 12:23:06
Отправлено: Пашин Евгений от 30-09-2015, 12:26:26
Код - vb.net [Выбрать]
- Dim myPath As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
- MsgBox(myPath.Location)
Приношу свои извинения... Пора выпить чаю, нужно отдохнуть от компьютера.
А вот это код вернул следующее:
Код - vb.net [Выбрать]
- Dim myNewPath As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
- MsgBox(myNewPath.FullName)
AutoCAD_First_Button_After_Error, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
Отправлено: Александр Ривилис от 30-09-2015, 12:28:38
Код - C# [Выбрать]
- string codeBase = Assembly.GetExecutingAssembly().CodeBase;
- UriBuilder uri = new UriBuilder(codeBase);
- string path = Uri.UnescapeDataString(uri.Path);
- return Path.GetDirectoryName(path);
http://stackoverflow.com/questions/52797/how-do-i-get-the-path-of-the-assembly-the-code-is-in
Отправлено: Андрей Бушман от 30-09-2015, 12:32:21
У меня этот метод частенько глючит.Сильно подозреваю, что это не метод глючит но, скорее всего, ты неверно указываешь путь в своём макросе.
Отправлено: Пашин Евгений от 30-09-2015, 12:32:50
Вариант с Assembly.GetExecutingAssembly.Location, как пишут действительно работает не всегда
Ну слава богу, а то я подумал, что у меня с глазами не то творится.
Отправлено: Владимир Шу от 30-09-2015, 12:34:19
Сильно подозреваю, что это не метод глючит но, скорее всего, ты неверно указываешь путь в своём макросе.Библиотека то грузится и команда стартует...
Отправлено: Александр Ривилис от 30-09-2015, 12:42:56
Отправлено: Андрей Бушман от 30-09-2015, 12:46:18
ариант с Assembly.GetExecutingAssembly.Location, как пишут действительно работает не всегда:Любопытно... Я как-то с этим ранее не сталкивался, всегда использовал
http://stackoverflow.com/questions/52797/how-do-i-get-the-path-of-the-assembly-the-code-is-in
Код - C# [Выбрать]
- Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location)
Отправлено: Андрей Бушман от 30-09-2015, 12:48:34
Такое чувство, что сборка копируется во временную директорию, а оттуда уже запускается...А вот такое поведение у меня в юнит тестах бывало (вспомнил)! Я в блоге показывал (http://bushman-andrey.blogspot.ru/2015/06/nunit-dll.html)как этим поведением можно управлять в NUnit. Вполне возможно, что аналогичные настройки имеются в TestDriven.NET и MbUnit GUI.
Отправлено: Владимир Шу от 30-09-2015, 16:07:44
Гадом оказался метод load у XmlDocument, строчка №12. Несмотря на корректный путь и проверки, почему то берет путь "текущий" (иногда это путь к файлу с которым работаю) и прибавляет к нему имя файла...
В строчках 10 и 11, выводится абсолютно корректный путь, копирую из консоли, вставляю в адресную строку проводника, открывается нужный файл.
Я понимаю что не совсем четко по теме, но все таки, есть идеи?
Код - C# [Выбрать]
- String path = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location);
- String inputFile = Path.Combine(path, "blockXML.xml");
- XmlDocument xml = new XmlDocument();
- if (File.Exists(inputFile))
- {
- System.IO.FileStream fs = new System.IO.FileStream(inputFile,
- System.IO.FileMode.Open, System.IO.FileAccess.Read);
- acEd.WriteMessage("\n1-" + fs.Name);
- acEd.WriteMessage("\n2-" + inputFile);
- xml.Load(inputFile);
- }
- else
- {
- throw new FileNotFoundException(inputFile);
- }
Отправлено: Дмитрий Загорулькин от 30-09-2015, 16:21:10
Отправлено: Андрей Бушман от 30-09-2015, 16:24:54
Набросай HelloWorld (команду акада) и выложи (не забудь к нему прикрепить и свой XML).
Отправлено: Владимир Шу от 30-09-2015, 16:26:12
Вот лог консоли в автокаде:
Command: _NETLOAD Assembly file name: "C://ACAD_DLL//_AddMLeader//AddMLeader_2014.dll"
Command: bx_addmleader
Укажите экземпляр блока:
1-C:\ACAD_DLL\_AddMLeader\blockXML.xml
2-C:\ACAD_DLL\_AddMLeader\blockXML.xml
Вот лог ошибки:
See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.
************** Exception Text **************
System.IO.FileNotFoundException: Could not find file 'C:\Users\user\Documents\blockXML.xml'.
File name: 'C:\Users\user\Documents\blockXML.xml'
Извините, вам запрещён просмотр содержимого спойлеров.
И все это безобразие только если загружать эту библиотеку макросом с палитры
Код - Auto/Visual Lisp [Выбрать]
- ^C^C_NETLOAD "C://ACAD_DLL//_AddMLeader//AddMLeader_2014.dll";bx_addmleader;
Если загрузить руками и запустить команду руками, то все тип топ. Работает как часы.
Отправлено: Дмитрий Загорулькин от 30-09-2015, 16:40:12
Если закоментить строчки 14-17 ничего не меняется.А я говорил про строки 8-10:
Код - C# [Выбрать]
- System.IO.FileStream fs = new System.IO.FileStream(inputFile,
- System.IO.FileMode.Open, System.IO.FileAccess.Read);
- acEd.WriteMessage("\n1-" + fs.Name);
Отправлено: Александр Ривилис от 30-09-2015, 16:54:56
И все это безобразие только если загружать эту библиотеку макросом с палитрыА чего это у тебя двойные прямые слэши? Двойные только обратные должны быть.
^C^C_NETLOAD "C://ACAD_DLL//_AddMLeader//AddMLeader_2014.dll";bx_addmleader;
Если загрузить руками и запустить команду руками, то все тип топ. Работает как часы.
Отправлено: Владимир Шу от 30-09-2015, 17:06:55
Лучше их комментить. Зачем они? В любом случае, FileStream нужно "заворачивать" в using.Только для тог, что бы проверит что этот файл нормально читается... это тестовая строка.
А чего это у тебя двойные прямы слэши? Двойные только обратные должны быть.А Вы попробуйте, так как у меня написано - работает, а если с обратными, то нет.
Огромное спасибо Андрею. Сам дурак. Программку начал писать давно, один класс полностью отработал, отладил и забыл про него. Забыл, что в этом классе обращаюсь к xml файлу и там прописан относительный путь от текущего. Изменил на абсолютный и теперь все нормально.
ЗЫ.
Внимательнее нужно быть и писать код один раз...
Отправлено: Александр Ривилис от 30-09-2015, 17:08:16
А Вы попробуйте, так как у меня написано - работает, а если с обратными, то нет.Разницу между одиночными (один слэш) и двойными (два слэша) чувствуешь?
Отправлено: Владимир Шу от 30-09-2015, 17:10:39
Разницу между одиночными (один слэш) и двойными (два слэша) чувствуешь?Угу.
Голова совсем не варит к вечеру, да так
Код - Auto/Visual Lisp [Выбрать]
- ^C^C_NETLOAD "C:/ACAD_DLL/_AddMLeader/AddMLeader_2014.dll";
Есть принципиальная разница между этими записями?
Код - Auto/Visual Lisp [Выбрать]
- ^C^C_NETLOAD "C://ACAD_DLL//_AddMLeader//AddMLeader_2014.dll";
- ^C^C_NETLOAD "C:/ACAD_DLL/_AddMLeader/AddMLeader_2014.dll";
Отправлено: Алексей Кулик от 30-09-2015, 17:14:52
Но чтобы работало только так, как у тебя написано - впервые вижу.
---
Добавлено:
пока писал ответ, предыдущий пост был подправлен.
Отправлено: Александр Ривилис от 30-09-2015, 17:50:47
и то и то грузит dll, какие подводные камни?Какие именно - не знаю. Но боком выйти может. Есть правила, которые следует соблюдать, если не хочешь получить "нежданку". :)
Отправлено: Андрей Бушман от 06-10-2015, 17:26:52
Какие именно - не знаю. Но боком выйти может.В виду того, что ObjectARX написан на C++, то возможно будет интересно, опубликованное ниже (набросал пример на коленках), поскольку к нему [ObjectARX] это полностью применимо (комментарии должны быть понятны).
Примечание: особым образом хотелось бы обратить внимание на результаты вызова GetFullPathName, в зависимости от того, как был указан перед этим параметр в вызове функции SetCurrentDirectory - с указанием суффикса "\\" или без... Это я к тому, что порой наличие казалось бы безобидных обратных слешей может давать не тот результат, который возможно ожидался.
Код - C++ [Выбрать]
- /*
- The system keeps track of the process' current drive and directory, but it
- does not keep track of the current directory for every drive. However, there
- is some operating system support for handling current directories for
- multiple drives. This support is offered via the process' environment
- strings. For example, a process can have two environment variables, as shown
- here:
- =C:=C:\Utility\Bin
- =D:=D:\Program Files
- These variables indicate that the process' current directory for drive C is
- \Utility\Bin and that its current directory for drive D is \Program Files.
- If you call a function, passing a drive-qualified name indicating a drive
- that is not the current drive, the system looks in the process' environment
- block for the variable associated with the specified drive letter. If the
- variable for the drive exists, the system uses the variable's value as the
- current directory. If the variable does not exist, the system assumes that
- the current directory for the specified drive is its root directory.
- For example, if your process' current directory is C:\Utility\Bin and you
- call CreateFile to open D:ReadMe.Txt, the system looks up the environment
- variable =D:. Because the =D: variable exists, the system attempts to open
- the ReadMe.Txt file from the D:\Program Files directory. If the =D: variable
- did not exist, the system would attempt to open the ReadMe.Txt file from the
- root directory of drive D. The Windows file functions never add or change a
- drive-letter environment variable—they only read the variables.
- NOTE
- You can use the C run-time function _chdir or _wchdir instead of the Windows
- SetCurrentDirectory function to change the current directory. The _chdir and
- _wchdir function call SetCurrentDirectory internally, but _chdir also adds
- or modifies the environment variables by calling SetEnvironmentVariable so
- that the current directory of different drives is preserved.
- */
- // There the sample of switching for different cases (current EXE file is
- // located in the "D:\projects\richter-console" directory):
- TCHAR szCurDir[MAX_PATH];
- /* szCurDir has the C:\ */
- DWORD cchLength = GetFullPathName(TEXT("C:"), MAX_PATH, szCurDir, NULL);
- // change the value of the CURRENT DIRECTORY OF DISK C:
- SetEnvironmentVariable(TEXT("=C:"), TEXT("C:\\Temp\\sandbox"));
- // szCurDir has the C:\\Temp\\sandbox
- cchLength = GetFullPathName(TEXT("C:"), MAX_PATH, szCurDir, NULL);
- // Set the disk without the \\ suffix
- SetCurrentDirectory(TEXT("D:"));
- // szCurDir has the C:\Temp\sandbox
- cchLength = GetFullPathName(TEXT("C:"), MAX_PATH, szCurDir, NULL);
- // szCurDir has the D:\projects\richter-console
- cchLength = GetFullPathName(TEXT("D:"), MAX_PATH, szCurDir, NULL);
- // Set the disk without the \\ suffix
- SetCurrentDirectory(TEXT("C:"));
- // szCurDir has the C:\Temp\sandbox
- cchLength = GetFullPathName(TEXT("C:"), MAX_PATH, szCurDir, NULL);
- // Set the disk without the \\ suffix
- _wchdir(TEXT("D:"));
- /* szCurDir has the D:\ */
- cchLength = GetFullPathName(TEXT("D:"), MAX_PATH, szCurDir, NULL);
- // Set the disk with the \\ suffix
- _wchdir(TEXT("D:\\"));
- /* szCurDir has the D:\ */
- cchLength = GetFullPathName(TEXT("D:"), MAX_PATH, szCurDir, NULL);
- // change the value of the CURRENT DIRECTORY OF DISK D:
- SetEnvironmentVariable(TEXT("=D:"), TEXT("D:\\SDK\\Autodesk"));
- // Warning: switch to other disk before the next calling of the
- // GetFullPathName function
- SetCurrentDirectory(TEXT("C:"));
- // szCurDir has the D:\SDK\Autodesk
- cchLength = GetFullPathName(TEXT("D:"), MAX_PATH, szCurDir, NULL);
- // Set the disk with the \\ suffix
- SetCurrentDirectory(TEXT("C:\\"));
- /* szCurDir has the C:\ */
- cchLength = GetFullPathName(TEXT("C:"), MAX_PATH, szCurDir, NULL);