О разном

Работает с nanoCAD22,23+СПДС или Механика

с nano20 работает (upd отдельная сборка)

с  nano21 не тестировал

1. Скачать архивчик (в аттаче)

2. Если установлена предыдущая версия PublishNC AnyCpu - надо удалить его из автозагрузки

3. Распаковать zip-архив с программой;

4. Папку PlotSPDS_for_nanoCAD поместить в любой каталог, куда у пользователя есть доступ;

5. Добавить файл PlotSPDS_22.package (для nanoCAD22,23, для nanoCAD20-> PlotSPDS_20.package) в автозагрузку, как показано на скриншоте.

6. 

7. Перезапустить nanoCAD.

8. На ленте появится вкладка “drzTools” с панелью Публикация СПДС.

9. 
10. В классическом интерфейсе появится новый пункт меню и панель инструментов
11.  
12. Eсли  панель инструментов не появилась вызвать ее можно по ПКМ на свободном месте панели инструментов
13. 
14.  Или через меню Вид
15.  

 

 

 

 

 

 

Кроме вызова через меню, панель или ленту, программу можно запустить из командной строки

СППУБЛИКАЦИЯ

spPublish

drz_PublishMC

 

откроется вот такое окошко

 

 

 

Публикация в пакетном режиме:

на бумагу, (три различных устройства в зависимости от размера формата), поддержка преднастроенных шаблонов печати

в файл (PDF)

Выбор:

ручным выбором на чертеже,

с активного пространства,

открытого чертежа (чертежей),

из заданного каталога (каталогов)

Доступны опции:

поиск форматов в модели или листах

учитывать слои (прямым выбором или по маске)

Сортировка форматов:

обозначение->номер листа

по расположению в пространстве чертежа, учитывается порядок следования листов

Группировка форматов при печати в файл

Закладки (оглавление для файла PDF)

 

 

Для PDF настройки не требуются, просто выберите принтер PDF и стиль

==========

Для печати на бумагу

 

Откроются настройки шаблонов

 

Можно добавить новый или удалить существующий шаблон

В размерах форматов задаем размер формата включительно, который может напечатать выбранный принтер в этой строке

Малые форматы предполагается принтер (только основные форматы, А4, А3, А2)

 

Средние и большие форматы это плоттер, печать на рулон (умеет дополнительные форматы А4х3, А3х5 и  т.д.) Формат определяется максимальной шириной рулона плоттера, для А1 это ~594, для А0~841

т.е. для настроек с рисунка выше:

на малый плоттер попадут А4, А3

на средний например А4х3, А3х3, А2, А2х3, А1

на большой А0, А1х3 и т.д.

Задаем стили печати

Сохраняем шаблон!!!!

Выход и можно печатать

 

При печати в PDF концепция такая:

Если задан "Путь вывода PDF":

напечатанные файлы будут по этому пути, если файл с таким именем уже есть, то добавляется суффикс (1), (2)....

Путь печати не задан:

Файл чертежа сохранен-> PDF будет рядом с файлом чертежа

Файл чертежа не сохранен->PDF будет в папке Мои документы

Несколько файлов сохраненных и не сохраненных->при сборке в один PDF -> файл PDF будет рядом с файлом первого формата (если первый формат не сохранен, в моих документах)

Dim ThisDrawing As Object
Sub docProp() 'заполнялка полей документа из таблицы (именованных ячеек)
    'без проверки исключений, чисто для общего понятия как
    Set objApp = GetObject(, "nanoCAD.Application") 'цепляемся к нане, или AutoCAD
    Set SPDS = CreateObject("McCOM2.Server") 'Получаем COM-сервер СПДС
    Set ThisDrawing = objApp.ActiveDocument 'хватаем активный документ
    Set ff = ThisDrawing
    TabName = "Заполнялка Таблица в таблицы" 'эту таблицу будем искать на чертеже
    Set FindTable = SPDS.Query("McCom2.SymTable", "Name=""" & TabName & """") _
            'ищем таблицу, можно изменить на свое
       If FindTable.Count > 0 Then 'если хоть одна таблица с таким именем найдена
        Set PropTable = FindTable(1).Properties 'хватаем первую из коллекции с таким именем (предполагается, что она одна)))
Dim varr
'<тут готовим путь для записи в таблицу (мне так надо)
        If ThisDrawing.FullName Like "*\*" Then 'НАНОКОСТЫЛЬ если файл сохранялся
            FulPatch = ThisDrawing.FullName
'<тут получаем имя файла без расширения
            varr = Split(ThisDrawing.Name, ".")
ReDim Preserve varr(UBound(varr) - 1)
            Filename = Join(varr, "")
        Else
            FulPatch = "ФАЙЛ НЕ СОХРАНЯЛСЯ!!"
            Filename = ThisDrawing.Name
        End If
Dim PropKey As String 'ключ для записи в свойства документа (коментарий ячейки)
Dim PropVal As String 'свойство ключа)) (содержимое ячейки)
On Error Resume Next 'страховочка вдруг такой ячейки нет((
        PropTable("Путь к файлу") = FulPatch 'пишем в ячейку полный путь
        PropTable("Имя файла") = Filename 'пишем в ячейку имя файла
On Error GoTo 0
    'тут в цикле заполняем свойства документа из именованных ячеек
        For Each namProp In PropTable.Names 'перебираем имена свойств
            Set PropProp = PropTable(namProp) 'получаем свойство по имени
            PropCategory = PropProp.Category
            If PropCategory = "Именованные ячейки" Then 'из свойств нам нужны только именованные ячейки
                PropKey = namProp 'коментарий ячейки будет ключ
                PropVal = PropProp.Value 'значение ячейки
                SetOrAddKey PropKey, PropVal 'идем писать в свойства
            End If
        Next
        res = "Значения именованных ячеек из " & "<" & TabName & ">" & _
                " записаны в свойства документа"
        ThisDrawing.SendCommand "(alert """ & res & """)" & vbCrLf
        SPDS.Message (res)
    Else
        MsgBox "Таблица: """ & TabName & """" & vbCrLf & _
                "не найдена на чертеже!", vbInformation, "docProp"
    End If
End Sub
    
Function SetOrAddKey(Key1 As String, val As String)
On Error Resume Next
    ThisDrawing.SummaryInfo.SetCustomByKey Key1, val 'НАНОКОСЯК если ключа нет в каде будет исключение, но нана создаст ключ)))
    If Err.Number <> 0 Then
        ThisDrawing.SummaryInfo.AddCustomInfo Key1, val
        Err.Number = 0
    End If
On Error GoTo 0
End Function
Sub main()
    docProp
End Sub

 

#if NC
using Teigha.DatabaseServices;
using Teigha.Runtime;
using HostMgd.ApplicationServices;
using HostMgd.EditorInput;

#else
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
#endif
namespace drz
{
    public class Utils : IExtensionApplication

    {
        [CommandMethod("drz-WipBot", CommandFlags.Modal)]
        public void WipeoutToBotton()
        /*Топит маскировку внутри блоков
         */
        {
            Document doc = Application.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            Editor ed = doc.Editor;
            int count = 0;
            //using (Transaction tr = db.TransactionManager.StartOpenCloseTransaction())//вот нельзя тут так делать, только для UpgradeOpen(), DowngradeOpen();
//иначе Автокад валится, нане пофих
            using (Transaction tr = db.TransactionManager.StartTransaction())  
            {
                BlockTable bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
                foreach (ObjectId btrId in bt)
                {
                    BlockTableRecord btr = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForRead);
                    if (!btr.IsFromExternalReference && !btr.IsDependent && !btr.IsLayout)// not xref and not xref|block and not Layout
                    {
                        foreach (ObjectId id in btr)
                        {
                            Entity ent = tr.GetObject(id, OpenMode.ForRead) as Entity;
                            if (ent != null)
                            {
                                Wipeout wpt = ent as Wipeout;
                                if (wpt != null)//если маскировка
                                {
                                    // получаем таблицу порядка отрисовки блока
                                    DrawOrderTable drawOrder =
                                                         tr.GetObject(btr.DrawOrderTableId,
                                                        OpenMode.ForWrite) as DrawOrderTable;
                                    ObjectIdCollection ids = new ObjectIdCollection();
                                    ids.Add(wpt.ObjectId);
                                    drawOrder.MoveToBottom(ids);//топим маскировку
                                    count++;
                                }
                            }
                        }
                    }
                }
                tr.Commit();
            }
            ed.Regen();
            ed.WriteMessage(
                "Move to bottom in blocks " + count + " wipeout"
                );
        }
        //-----------------------------
        public void Initialize()
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            ed.WriteMessage("\n\"drz\" загружен");
            ed.WriteMessage("\nВызов drz-WipBot");
        }
        public void Terminate()
        {
        }
    }
}