AutoCAD VBA _ VB.NET开发基础与教程 第2版源码

AutoCAD VBA _ VB.NET开发基础与实例教程 第2版源码光盘

#region Namespaces
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
#endregion
[assembly: ExtensionApplication（typeof（AcadNetAddinCS1.InitClass））]
[assembly: CommandClass（typeof（AcadNetAddinCS1.OptimizeClass））]
namespace AcadNetAddinCS1
{
    public class InitClass : IExtensionApplication
    {
        #region IExtensionApplication Members
        public void Initialize（）
        {
            Editor ed= Application.DocumentManager.MdiActiveDocument.Editor;
            // 在AutoCAD命令行上显示一些信息，它们会在程序载入时被显示
            ed.WriteMessage（“程序开始初始化。“）;
        }

        public void Terminate（）
        {
            // 在Visual Studio 2010的输出窗口上显示程序结束的信息
            System.Diagnostics.Debug.WriteLine（
        “程序结束

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-03-14 16:45  我的光盘\
     目录           0  2018-03-14 16:43  我的光盘\Chap01\
     目录           0  2018-03-14 16:43  我的光盘\Chap01\AcadNetAddinCS1\
     文件        3343  2012-06-01 00:03  我的光盘\Chap01\AcadNetAddinCS1\AcadNetAddinCS1.csproj
     文件         356  2012-06-01 00:02  我的光盘\Chap01\AcadNetAddinCS1\AcadNetAddinCS1.csproj.user
     文件        1242  2012-06-01 09:55  我的光盘\Chap01\AcadNetAddinCS1\InitClass.cs
     文件        1246  2012-06-01 08:55  我的光盘\Chap01\AcadNetAddinCS1\OptimizeClass.cs
     目录           0  2018-03-14 16:43  我的光盘\Chap01\AcadNetAddinCS1\Properties\
     文件        1386  2012-06-01 00:02  我的光盘\Chap01\AcadNetAddinCS1\Properties\AssemblyInfo.cs
     文件         952  2012-06-01 00:02  我的光盘\Chap01\AcadNetAddinCS1\ReadMe.txt
     文件        1442  2012-06-01 00:02  我的光盘\Chap01\AcadNetAddinCS1\acad.lsp
     目录           0  2018-03-14 16:43  我的光盘\Chap01\AcadNetAddinCS1\bin\
     目录           0  2018-03-14 16:43  我的光盘\Chap01\AcadNetAddinCS1\bin\Debug\
     文件        5632  2012-06-01 00:20  我的光盘\Chap01\AcadNetAddinCS1\bin\Debug\AcadNetAddinCS1.dll
     文件       15872  2012-06-01 00:20  我的光盘\Chap01\AcadNetAddinCS1\bin\Debug\AcadNetAddinCS1.pdb
     文件        1442  2012-06-01 00:02  我的光盘\Chap01\AcadNetAddinCS1\bin\Debug\acad.lsp
     目录           0  2018-03-15 09:32  我的光盘\Chap01\AcadNetAddinCS1\bin\Release\
     目录           0  2018-03-14 16:43  我的光盘\Chap01\AcadNetAddinCS1\obj\
     目录           0  2018-03-14 16:43  我的光盘\Chap01\AcadNetAddinCS1\obj\Debug\
     文件         636  2012-06-01 00:03  我的光盘\Chap01\AcadNetAddinCS1\obj\Debug\AcadNetAddinCS1.csproj.FileListAbsolute.txt
     文件        5632  2012-06-01 00:20  我的光盘\Chap01\AcadNetAddinCS1\obj\Debug\AcadNetAddinCS1.dll
     文件       15872  2012-06-01 00:20  我的光盘\Chap01\AcadNetAddinCS1\obj\Debug\AcadNetAddinCS1.pdb
     文件        6494  2012-06-01 00:20  我的光盘\Chap01\AcadNetAddinCS1\obj\Debug\DesignTimeResolveAssemblyReferencesInput.cache
     文件       32717  2012-06-01 00:03  我的光盘\Chap01\AcadNetAddinCS1\obj\Debug\ResolveAssemblyReference.cache
     目录           0  2018-03-15 09:32  我的光盘\Chap01\AcadNetAddinCS1\obj\Debug\TempPE\
     文件        3616  2012-06-01 00:15  我的光盘\Chap01\Chap01.sln
     文件       59904  2012-06-01 09:55  我的光盘\Chap01\Chap01.suo
     目录           0  2018-03-14 16:43  我的光盘\Chap01\Hello\
     文件         589  2012-06-01 08:55  我的光盘\Chap01\Hello\Class1.cs
     文件        2606  2012-04-12 20:59  我的光盘\Chap01\Hello\Hello.csproj
     文件         356  2012-04-12 22:21  我的光盘\Chap01\Hello\Hello.csproj.user
............此处省略2558个文件信息