[vkoap]

Алгоритм: Открыть файл, содержащий кучу всяких схематичных узлов ->запустить эту прогу->она выдаст запрос: Выберете элемент->Выбираю->Enter->Прога копирует (вырезает) выбранный элемент из файла, создает новый файл, вставляет в него этот элемент->сохраняет под именем 001.dwg и возвращается на начало

[Дима_]

_wblock

[vkoap]

Спасибо конечно, но надо на автомате, я запарюсь 300-500 элементов руками выдирать из большого чертежа через эту команду....

[hwd]

@vkoap,
Что ты подразумеваешь под "элементами"? Определения блоков? Или же любой произвольный набор примитивов? Если второй вариант, то как по твоему компьютер должен догадываться, по какому принципу ему формировать выборки?

[vkoap]

hwd - запустить эту прогу->она выдаст запрос: Выберете элемент->Выбираю->Enter->
"любой произвольный набор примитивов" который я выбрал мышей

[AlexV]

Сообщение от vkoap hwd - запустить эту прогу->она выдаст запрос: Выберете элемент->Выбираю->Enter-> "любой произвольный набор примитивов" который я выбрал мышей

И для чего же запускать прогу? "выбрал мышей", ctrl + c - _new - ctrl + v.. Чего, нужно спецпрограмму написать для этого несложного действа?

[hwd]

Сообщение от vkoap "любой произвольный набор примитивов" который я выбрал мышей

ну и

Сообщение от hwd как по твоему компьютер должен догадываться, по какому принципу ему формировать выборки?

тогда только так

Сообщение от vkoap я запарюсь 300-500 элементов руками выдирать из большого чертежа

Тем более, что имена аля "001.dwg" не особо-то информативны...

[vkoap]

AlexV, HWD- 500 сборок на одном чертеже, представь Выбрать каждый, ctrl + c - _new - ctrl + v, сохранить, ввести имя, не забыть какое имя вводил до этого, Сохранить и так 500 или более раз, скажи просто? a имена пофику лишь бы подряд, потом накину в инструментальную палитру и усе

[Boxa]

Как то делал что-то похожее для поэтажных планов, возможно Вам пригодится. Смотреть тут: http://experement.spb.ru/wiki/doku.php/copy2dxf

[vkoap]

Воха - ща гляну

[hwd]

@vkoap,
Ты как-то упорно не читаешь то, что написано...
Пишешь:

я запарюсь 300-500 элементов руками выдирать

Но кроме тебя, никто не знает логику, в соответствии с которой следует формировать выборки (раз уж нет чёткого критерия фильтрации). Т.о. Тебе в любом случае придётся все наборы формировать вручную. Автоматом сохранять их в новых файлах, генерируя новые имена для создаваемых чертежей - это не проблема и легко решается. Однако основная проблема так и остаётся: многократная выборка вручную, которая тебя, собственно, и напрягает. Если бы был критерий фильтрации (например, примитивы объединены в группы, или находятся в составе вхождения блока, или находятся на нужном слое, или и т.д., и т.п.) - тогда другое дело, можно было бы автоматом всё раскидать. А вообще, чтобы не наступать на такие грабли, нужно планировать структуру документа ещё до того, как садишься чертить.

[Олег (jr.)]

Можно попробовать это сделать перебором объектов
(напр. на C#, простейший пример для блоков,
остальные типы закомментированы)
Изначально лучше зуммировать текущую вкладку или модель вручную

Код:

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

        public static SelectionSet GetObjectsSelection(Editor ed)
        {

            string ctab = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("CTAB").ToString();


            TypedValue[] dxfcodes = new TypedValue[2]
            {
                new TypedValue(0, /*"CIRCLE, ARC,LINE,*POLYLINE, */ "INSERT"),
                new TypedValue(410, ctab) 
            };

            SelectionFilter filter = new SelectionFilter(dxfcodes);

            PromptSelectionResult psr = ed.SelectAll( filter);

            if (psr.Status != PromptStatus.OK)

                return null;

            return psr.Value;

        }


        [CommandMethod("mulw", CommandFlags.Session | CommandFlags.Transparent)]
        public static void testWblockObjects()
        {
            bool isOk = true;
            Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            Editor ed = doc.Editor;
            
            string currDir = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("DWGPREFIX").ToString();

            int start = 1;
            using (DocumentLock docklock = doc.LockDocument())
            {
                try
                {
                    using (Transaction tr = db.TransactionManager.StartTransaction())
                    {
                        SelectionSet sset = GetObjectsSelection(ed);
                        foreach (SelectedObject sobj in sset)
                        {
                            ObjectIdCollection ids = new ObjectIdCollection();
                            DBObject obj = tr.GetObject(sobj.ObjectId, OpenMode.ForRead,false,false);
                            ids.Add(obj.ObjectId);
                            if (obj == null) return;
                            using (Database extdb = new Database(true, false))
                            {
                                ObjectId extBtrId = extdb.CurrentSpaceId;
                                db.WblockCloneObjects(ids, extBtrId, new IdMapping(), DuplicateRecordCloning.MangleName, false);
                                extdb.RetainOriginalThumbnailBitmap = true;
                                string dwgname = Path.Combine(currDir, "00" + start.ToString() + ".dwg");
                                extdb.SaveAs(dwgname, false, DwgVersion.AC1800, extdb.SecurityParameters);
                                
                            }
                            start += 1;
                        }

                        tr.Commit();
                    }
                    isOk = true;
                }
                catch (System.Exception ex)
                {
                    isOk = false;
                    ed.WriteMessage(ex.Message + "\n" + ex.StackTrace);
                }
                finally
                {
                    if (isOk)
                    {
                        ed.WriteMessage("\nProgram ended up with success\n");
                    }
                    else
                    {
                        ed.WriteMessage("\nProgram failed");
                    }
                }
            }
        }

[kp+]

Выбрать каждый, ctrl + c - _new - ctrl + v, сохранить, ввести имя, не забыть какое имя вводил до этого, Сохранить и так 500 или более раз

По каждому нажатию CTRL-С Акад формирует в системной папке TEMP временный блок с уникальным именем типа A$C4B1362FA.dwg. По каждому следующему нажатию прежний файл удаляется, и создается новый с другим именем. Но как восстанавливать удаленные файлы - кажется, всем известно.

a имена пофику лишь бы подряд

Отсортировать полученные с помощью CTRL-С файлы по времени создания, потом переименовать подряд типа блок001.dwg, блок002.dwg каким-нибудь файл-менеджером, и все тут.

[bargool]

Сообщение от kp+ По каждому нажатию CTRL-С Акад формирует в системной папке TEMP временный блок с уникальным именем типа A$54454547.dwg. Удаляются эти файлы только после закрытия проги (или чертежа, откуда скопированы, точно не помню).

Век живи - век учись!