[молодой человек]

Как получить хоть какую-нибудь информацию?
В частности:
-список файлов,принадлежащих подшивке;
-указатели на листы;

В документации написано, что можно делать на vba. Но я с ним не знаком(

[Сергей Богатов]

Не получится. Темы уже были см.
http://forum.dwg.ru/showthread.php?t=23132&page=8

начиная с 211 поста

[hwd]

Сообщение от молодой человек Как получить хоть какую-нибудь информацию? В частности: -список файлов,принадлежащих подшивке; -указатели на листы; В документации написано, что можно делать на vba. Но я с ним не знаком(

Если нужна именно lisp-функция, у которой нет доступа к каким-то закоулкам AutoCAD, то её можно написать на .net (если ты его знаешь) и затем использовать в своих lisp-программках. Здесь, в классе DrawingSearcher, в коде метода GetSheetSetDrawings можно глянуть, как получить все чертежи, входящие в состав подшивки. А здесь - пример написания lisp-функции на дотнете. Если помимо лиспа знаешь дотнет, то скрестить ежа с ужом и получить нужный тебе результат - не составит труда. Если дотнета не знаешь - ссылки можно даже не открывать.

[Сергей Богатов]

Offtop: Лучше тогда сразу на .NET всё и написать

[hwd]

Сообщение от Сергей Богатов Offtop: Лучше тогда сразу на .NET всё и написать

Если у автора уже есть готовый код на лиспе, и не хватает лишь некоторых деталей, то написание lisp-функции на дотнете может оказаться более быстрым по времени, чем переписывание всего проекта в целом с лиспа на дотнет (это уж ему решать).

[молодой человек]

Все-таки настал момент когда lispa не хватает. В связи с этим вопрос- какой язык программирования учить дальше!?
Для себя выбрал 3 пути:
1) C#
2) с++ пока без objectarx
3) Delphi
Пока что читаю книги по с++.
Подскажите, пожалуйста, какой из этих языков лучше использовать для связи с автокадом через com для работы с подшивками?
Чем лучше писать диалоговые окна? Какой перспективнее?
Извините за сумбур, так как пока не владею вопросом.

[hwd]

Сообщение от молодой человек Все-таки настал момент когда lispa не хватает. В связи с этим вопрос- какой язык программирования учить дальше!? Для себя выбрал 3 пути: 1) C# 2) с++ пока без objectarx 3) Delphi Пока что читаю книги по с++. Подскажите, пожалуйста, какой из этих языков лучше использовать для связи с автокадом через com для работы с подшивками? Чем лучше писать диалоговые окна? Какой перспективнее? Извините за сумбур, так как пока не владею вопросом.

свой выбор могу не озвучивать - он и так очевиден. Советую посмотреть немного вперёд - на тот же Windows 8, а в нём, к примеру, графический интерфейс на WPF. А если вспомнить ещё и про WinRT, то... Есть над чем задуматься.

[Sad Dog]

Советую посмотреть немного вперёд - на тот же Windows 8, а в нём, к примеру, графический интерфейс на WPF. А если вспомнить ещё и про WinRT, то... Есть над чем задуматься.

Все это в равной мере буде доступно из C++, С# и JavaScript.
http://www.infoq.com/news/2011/09/WinRT-API

[hwd]

Сообщение от Sad Dog Все это в равной мере буде доступно из C++, С# и JavaScript. http://www.infoq.com/news/2011/09/WinRT-API

Я это знаю. Речь о том, что дотнет используется всё больше - даже WinAPI для него будет (точнее - уже есть). Это должно быть поудобней, чем обращение к WinAPI в данный момент времени. C# гораздо удобней в работе чем C++, а так же проще в изучении. Он более дружелюбный что ли, и является по настоящему объектно-ориентированным в отличие от C++ (это видно на примере делегатов и исключений - в дотнете это полноценные объекты, а в C++ - нет).

[молодой человек]

hwd, спасибо за советы. Всё-таки C# перевесил и остановлюсь на нём. Не могли бы Вы порекомендовать хорошую книгу для начинающих по C#?
И если есть- справочник на подобии книги Полещука по Autolisp, чтобы можно было чужой код разбирать?

[hwd]

Сообщение от молодой человек hwd, спасибо за советы. Всё-таки C# перевесил и остановлюсь на нём. Не могли бы Вы порекомендовать хорошую книгу для начинающих по C#? И если есть- справочник на подобии книги Полещука по Autolisp, чтобы можно было чужой код разбирать?

Скачайте (можете у меня скачать) спецификацию языка C# и читайте её - это достаточно хороший справочник. Из книг в качестве справочника советую Герберта Шилдта "Полное руководство C# 4.0". Хотя, честно говоря, имея на руках спецификацию - можно и без Шилдта обойтись. Среди .Net-программистов своего рода Библией является книга, написанная Троелсеном (эта). Петцольда и Рихтера пока рекомендовать не буду - Вам бы эти сначала осилить, они не маленькие

[молодой человек]

Здравствуйте! Написал программку, которая считывает нужную мне информацию из подшивки (за что спасибо hwd).
Но обнаружил, что если в момент работы программы открыта исследуемая подшивка, то это приводит к вылету автокада.
Причём вылет происходит не сразу, а после завершения моей программы через некоторое время.
В связи с эти вопрос:
1. Как при помощи С# закрыть окно диспетчера подшивки, если оно открыто?

[hwd]

Сообщение от молодой человек обнаружил, что если в момент работы программы открыта исследуемая подшивка, то это приводит к вылету автокада. Причём вылет происходит не сразу, а после завершения моей программы через некоторое время. В связи с эти вопрос: 1. Как при помощи С# закрыть окно диспетчера подшивки, если оно открыто?

имхо - лучше найти в коде ошибку и исправить, чем пытаться обойти её окольными способами. Кроме того - диспетчер подшивок может быть открыт и без подшивок.

[молодой человек]

Дело в том, что при отладке программа работает исправно(даже если подшивка открыта), поэтому найти где происходит спотыкание- невозможно.
После того как программа закончила свою работу- проходит какое-то время и происходит вылет. А если перед началом программы подшивка закрыта, то всё нормально.
Попутно задам ещё вопросы:
2. Может есть какой-то метод по аналогии с Autolisp "изучить" для того, чтобы можно было получить при отладке значения всех доступных методов, свойств и так далее.
(обозреватель объектов, быстрая проверка не даёт нужного результата)

[hwd]

Сообщение от молодой человек Дело в том, что при отладке программа работает исправно(даже если подшивка открыта), поэтому найти где происходит спотыкание- невозможно. После того как программа закончила свою работу- проходит какое-то время и происходит вылет. А если перед началом программы подшивка закрыта, то всё нормально. Попутно задам ещё вопросы: 2. Может есть какой-то метод по аналогии с Autolisp "изучить" для того, чтобы можно было получить при отладке значения всех доступных методов, свойств и так далее. (обозреватель объектов, быстрая проверка не даёт нужного результата)

Не видя кода ошибку выявить 100% не удастся. По второму вопросу - чем отладчик MS VS не устроил? Для изучения БД чертежа можно использовать ArxDbg (ищи в ObjectARX SDK).

[молодой человек]

Класс DrawingSearcher в общем-то практически не отличается от того что вы выкладывали у себя на сайте.

Код:

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

 using Autodesk.AutoCAD.EditorInput;
using acad = Autodesk.AutoCAD.ApplicationServices.Application;
using ACSMCOMPONENTS18Lib;
using System;
using System.IO;

using System.Collections.Generic;

namespace AcadBatchProcessing
{
    public  sealed class DrawingSearcher
    {
        string drawingExtensionFilter = "*.dwg";
        /// <summary>
        /// Типы файлов, которые необходимо обрабатывать в поиске
        /// </summary>
        public string FileExtensionsFilter
        {
            get { return drawingExtensionFilter; }
            set { drawingExtensionFilter = value; }
        }

        //id_Sheet- глобальная переменная , 
        //в которой находится id вызываемой подшивки. Должна объявляться в теле класса, чтобы быть доступной всем методам класса
        // public- позволяет использовать переменную вне класса DrawingSearcher
        public string id_Sheet; 

        Editor ed = acad.DocumentManager.MdiActiveDocument.Editor;

       

        /// <summary>
        /// Получение файлов чертежей, входящих в состав определённой подшивки
        /// </summary>
        /// <param name="DstFileFullName">Полное имя файла подшивки</param>
        /// <returns>Возвращается перечисление объектов FileInfo</returns>
        public  List<string> GetSheetSetDrawings(string DstFileFullName)
        {
            List<string> x = new List<string>();
            
            
            //********************
            // Получаем менеджера подшивки
            AcSmSheetSetMgr mgr = new AcSmSheetSetMgr();
            // Создаём новый объект базы данных подшивки
            AcSmDatabase db = new AcSmDatabase();

            // Пытаемся загрузить dst-файл 
            try
            {
                db = mgr.OpenDatabase(DstFileFullName, false);
              
            }
            catch (System.Exception ex)
            {
                ed.WriteMessage("\nНе удалось открыть подшивку - возможно она кем-то открыта в данный момент");
                ed.WriteMessage(ex.ToString());
                return null;
            }

            try
            {
                // На время блокируем базу данных подшивки от изменения извне
                db.LockDb(db);

                AcSmSheetSet ss = db.GetSheetSet();
                id_Sheet = ss.GetObjectId().GetHandle();
                ProcessEnumerator(ss.GetSheetEnumerator(), ref x);
            }
            catch (System.Exception ex)
            {
                ed.WriteMessage("\nНе удалось заблокировать подшивку - возможно она кем-то открыта в данный момент");
                ed.WriteMessage("\n" + ex.Message);
            }
            //Снимаем блокировку базы данных подшивки
            finally
            {
                db.UnlockDb(db, true);
                mgr.Close(db);
            }
            return x;
        }


        /// <summary>
        /// Извлечение полных имён файлов, включенных в состав подшивки
        /// </summary>
        /// <param name="iter">Родительский объект</param>
        /// <param name="x">ссылка на объект List<FileInfo>, в котором инкапсулирован результат</param>
        void ProcessEnumerator(IAcSmEnumComponent iter, ref List<string> x)
        {
            IAcSmComponent item = iter.Next();
            while (item != null)
            {
                string type = item.GetTypeName();
                switch (type)
                {
                    //Группа листов (рекурсивная обработка, т.к. может содержать вложенные группы листов)
                    case "AcSmSubset":
                        try
                        {
                            AcSmSubset subset = (AcSmSubset)item;
                            string subName = subset.GetName();

                            if (!String.IsNullOrEmpty(subName))
                            {
                                IAcSmEnumComponent enumerator = (IAcSmEnumComponent)subset.GetSheetEnumerator();
                                ProcessEnumerator(enumerator, ref x);
                            }
                        }
                        catch { }
                        break;

                    //Лист
                    case "AcSmSheet":
                        try
                        {
                            AcSmSheet sh = (AcSmSheet)item;

                            //Создаём строку: Номер листа/ Название листа/ Название файла/ id подшивки/ id листа подшивки/ маска листа в файле
                            string t = sh.GetNumber() + "&"+ sh.GetName() + "&" + sh.GetLayout().GetFileName() + "&" + id_Sheet + "&" + sh.GetObjectId().GetHandle() + "&" + sh.GetLayout().GetAcDbHandle();
                            x.Add(t);
                            //x.Add(new FileInfo(sh.GetLayout().GetObjectId().GetHandle()));
                            if (!String.IsNullOrEmpty(sh.GetName()))
                            {
                                IAcSmEnumComponent enumerator = (IAcSmEnumComponent)sh.GetSheetViews();
                                ProcessEnumerator(enumerator, ref x);
                            }
                        }
                        catch { }
                        break;
                }
                item = iter.Next();
            }
        }
    }
}

Единственное на строчке db = mgr.OpenDatabase(DstFileFullName, false); выдавало пару раз ошибку, видимо как раз из-за того,
что подшивка уже была открыта.

[hwd]

Сообщение от молодой человек Класс DrawingSearcher в общем-то практически не отличается от того что вы выкладывали у себя на сайте.

Если мне не изменяет память, то обозначенный выше код старый, и я сталкивался с проблемой обозначенной тобой. Затем подправил код и проблема исчезла (там было что-то простое). Но насколько я помню - на сайте я ничего не обновлял, т.е. там код остался прежним. Напомни завтра - я поищу на работе исправленный вариант и скину тебе.

[shmulka]

Скажите, эта ветка вылилалсь в какое-либо приложение:

[Boxa]

Сообщение от shmulka Скажите, эта ветка вылилалсь в какое-либо приложение:

Вот ответ:

Сообщение от молодой человек Написал программку, которая считывает нужную мне информацию из подшивки (за что спасибо hwd).

Сообщение от hwd Если мне не изменяет память, то обозначенный выше код старый, и я сталкивался с проблемой обозначенной тобой. Затем подправил код и проблема исчезла (там было что-то простое). Но насколько я помню - на сайте я ничего не обновлял, т.е. там код остался прежним. Напомни завтра - я поищу на работе исправленный вариант и скину тебе.

Очевидно что молодой человек написал для себя нужное приложение.