Сохранить в dxf-файле группу примитивов

[sash-2007]

На чертеже есть разные примитивы , нужно выделить нужные и сохранить в dxf файле на C#
аналогично как в autoLisp (command "_dxfout" filename "_e" "_p" Nabor "" "" )
смотрел метод dxfout класса database , не понятно)

Знающие люди , подскажите пожалуйста как реализовать на С# 

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

sash-2007
Приветствую на форуме!
Итак есть несколько вариантов для решения этой задачи.
Первый - командный метод:
Второй - с использованием Database.DxfOut
Третий - с использованием COM/ActiveX (AcadDocument.Export)
Я бы рекомендовал второй. С какого начнём?

[sash-2007]

Спасибо за приглашение ).

2 способ.   Очень интересно узнать  Database.DxfOut

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

Вот так выглядит использование второго способа:

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

1. using System;
2. using System.Windows.Forms;
3. using Autodesk.AutoCAD.Runtime;
4. using Autodesk.AutoCAD.ApplicationServices;
5. using AcAp = Autodesk.AutoCAD.ApplicationServices;
6. using Autodesk.AutoCAD.DatabaseServices;
7. using Autodesk.AutoCAD.Geometry;
8. using Autodesk.AutoCAD.EditorInput;
9. using Autodesk.AutoCAD.Windows;
10.  
11. [assembly: CommandClass(typeof(DXFOUT.Utils))]
12.  
13. namespace DXFOUT
14. {
15.   public class Utils
16.   {
17.     [CommandMethod("MYDXFOUT")]
18.     public void MyDxfOut()
19.     {
20.       Document doc = AcAp.Application.DocumentManager.MdiActiveDocument;
21.       if (doc == null) return;
22.       Database db = doc.Database;
23.       Editor ed = doc.Editor;
24.       PromptSelectionOptions prOpts = new PromptSelectionOptions();
25.       prOpts.MessageForAdding = "Выберите примитивы для экспорта в DXF: ";
26.       PromptSelectionResult res = ed.GetSelection(prOpts);
27.       if (res.Status != PromptStatus.OK || res.Value.Count == 0) return;
28.       Autodesk.AutoCAD.Windows.SaveFileDialog dlg =
29.         new Autodesk.AutoCAD.Windows.SaveFileDialog("Укажите имя dxf-файла", "", "dxf", "MyDxfOut",
30.           Autodesk.AutoCAD.Windows.SaveFileDialog.SaveFileDialogFlags.NoUrls);
31.       DialogResult ds = dlg.ShowDialog();
32.       if (ds != DialogResult.OK) return;
33.  
34.       // Создаём новую базу и копируем туда выбранные примитивы
35.       using (ObjectIdCollection objs = new ObjectIdCollection(res.Value.GetObjectIds())) {
36.         using (Database tempDb = db.Wblock(objs, Point3d.Origin)) {
37.           // Выполняем DXFOUT
38.           // Тут можно играться параметрами: http://adn-cis.org/soxranenie-chertezha-v-dxf-formate.html
39.           tempDb.DxfOut(dlg.Filename, 16, false);
40.         }
41.       }
42.     }
43.   }
44. }

[sash-2007]

Большое спасибо Александр, это то что нужно !!!