AutoCAD2013 以上利用AccoreConsole+ c# NetApi 批量處理圖紙

AccoreConsole聽起來有點拗口，其中文名可以叫做AutoCAD控制台或者無頭AutoCAD。一句話概括，它是快速啟動AutoCAD運行微環境，高效的處理圖紙。你可以如同DOS命令行一樣操作命令，處理圖紙，而不需要打開AutoCAD。這在批處理大量圖紙時非常有用。另外啟動是不管有無license都可以正常操作，不占當前autoCAD的資源

安裝AutoCAD后，在安裝路徑根目錄下就可以看到這個可執行程序 AccoreConsole.exe

---

 

直入正題，Accoreconsole+scr+bat 純命令只能單一機械的執行處理命令，今天筆者就結合C# AutoCAD NetApi 來探究下Accoreconsole的強大功能。。。。。。

1# 先寫個cmd腳本調用AccoreConsole

%~dp0 代表當前腳本文件的文件夾路徑，
/i 打開的圖紙的全路徑
/s 執行的scr文件的全路徑

set acadPath="C:\Program Files\Autodesk\AutoCAD 2019\"

%acadPath%accoreconsole.exe /i %~dp0Drawing1.dwg /s %~dp0NetCmd.scr

@pause

多個dwg文件執行需要改成如下，請根據AutoCAD的安裝路徑更改成對應的版本

set acadPath="C:\Program Files\Autodesk\AutoCAD 2019\"

for %%i in (%~dp0*.dwg) do %acadPath%accoreconsole.exe /i %%i /s %~dp0NetCmd.scr 

@pause

2# 寫個scr文件,命名為NetCmd.scr

netload "D:/MyProgrammingData/ShopDrawing/ShopDrawing/bin/Debug/ShopDrawing.dll"
(command "myNetcmd")
qsave
(setvar filedia 0)

---

secureload 0
cmdecho 0
netload "C:\Users\nslov\Desktop\Test\ShopDrawing.dll"
filedia 0
(if (= (getvar "WRITESTAT") 0) (Command "close"))
mySSsetTest
qsave

 

---

 

解釋部分：secureload 0， 關閉dll加載提示
cmdecho 0 關閉回顯

(if (= (getvar "WRITESTAT") 0) (Command "close"))

只讀的話就執行退出，非只讀才執行后面對應的命令

3# 編寫c#代碼，生成的dll為ShopDrawing.dll,注冊cad命令“myNetcmd“

skd的dll只能引用這2個dll，AcDbMgd.dll，AcCoreMgd.dll

這2個dll都可以用，選擇集經測試可以使用

---

 

using Autodesk.AutoCAD.Runtime;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.ApplicationServices.Core;

namespace ShopDrawing
{
    public class AccoreCmd
    {
        [CommandMethod("mySSsetTest")]
        public void MyPlotModelSpace()
        {
            var doc = Application.DocumentManager.MdiActiveDocument;
            var db = HostApplicationServices.WorkingDatabase;
            var ed = doc.Editor;
            //轉化成世界坐標系
            if (ed.CurrentUserCoordinateSystem != Matrix3d.Identity) ed.CurrentUserCoordinateSystem = Matrix3d.Identity;
            using (Transaction trans = db.TransactionManager.StartTransaction())
            {
                BlockTable bt = trans.GetObject(db.BlockTableId, OpenMode.ForRead) as BlockTable;
                BlockTableRecord ms = trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord;
                //獲取塊的邊界范圍
                var psr = ed.SelectCrossingWindow(Point3d.Origin, new Point3d(350, 650, 0),
                    new Autodesk.AutoCAD.EditorInput.SelectionFilter(new TypedValue[] {
                        new TypedValue((int)DxfCode.Start, RXClass.GetClass(typeof(BlockReference)).DxfName)
                        }));
                if (psr.Status == Autodesk.AutoCAD.EditorInput.PromptStatus.OK)
                {
                    foreach (SelectedObject item in psr.Value)
                    {
                        Entity ent = trans.GetObject(item.ObjectId, OpenMode.ForRead) as Entity;
                        if (ent != null)
                        {
                            BlockReference blkRef = ent as BlockReference;
                            if (blkRef.Name == "123")
                            {
                                Polyline pline = new Polyline();
                                pline.AddVertexAt(0, new Point2d(blkRef.GeometricExtents.MaxPoint.X, blkRef.GeometricExtents.MaxPoint.Y), 0, 0, 0);
                                pline.AddVertexAt(0, new Point2d(blkRef.GeometricExtents.MinPoint.X, blkRef.GeometricExtents.MaxPoint.Y), 0, 0, 0);
                                pline.AddVertexAt(0, new Point2d(blkRef.GeometricExtents.MinPoint.X, blkRef.GeometricExtents.MinPoint.Y), 0, 0, 0);
                                pline.AddVertexAt(0, new Point2d(blkRef.GeometricExtents.MaxPoint.X, blkRef.GeometricExtents.MinPoint.Y), 0, 0, 0);
                                pline.AddVertexAt(0, new Point2d(blkRef.GeometricExtents.MaxPoint.X, blkRef.GeometricExtents.MaxPoint.Y), 0, 0, 0);
                                ms.AppendEntity(pline);
                                trans.AddNewlyCreatedDBObject(pline, true);
                            }
                        }
                    }
                    trans.Commit();
                }
                else ed.WriteMessage("Can't Find Any Block");
            }
        }
    }
}

 4# 執行結果如下，雙擊bat文件執行如下，bat 文件和scr都要仔細調試，一步錯步步錯！！！

 5# AutoCAD script腳本語法簡介

　　與cad命令行操作一樣，命令行怎么輸入，代碼就怎寫。。。

1. 腳本文件空格作為命令或數據結束符來處理
2. 腳本命令不要簡寫，以免歧義。
3. 注釋語法以分號表示。
4. 最后一行必須為空行。
5. 嵌入空格的長文件名用雙引號括起來。 如open “my house”； 打開my house.dwg文件

   ---