请高手帮忙看一下，开发autocad插件为什么在autocad中没有...

yangmz1972

正在学习用VB2010写autocad2010的插件，以下代码中除
   <CommandMethod("AddLine")> _
        Public Sub AddLine()
这个过程是从事例中复制得来外，其余均为电脑自动生成代码。
我编译生成dll后，在autocad中用netload加载了这个dll后，健入“AddLine”命令，但提示没有这个命令，这是怎么回事？


' (C) Copyright 2021 by Microsoft
'
Imports System
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
<Assembly: ExtensionApplication(GetType(AutoCAD_VB_plug_in1.MyPlugin))>

Namespace AutoCAD_VB_plug_in1
    Public Class MyPlugin
        Implements IExtensionApplication

        Public Sub Initialize() Implements IExtensionApplication.Initialize
        End Sub

        <CommandMethod("AddLine")> _
        Public Sub AddLine()
            '' 获得当前文档和数据库   Get the current document and database
            Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
            Dim acCurDb As Database = acDoc.Database

            ''启动一个事务   Start a transaction
            Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

                '' 以只读方式打开块表   Open the Block table for read
                Dim acBlkTbl As BlockTable
                acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)

                '' 以写方式打开模型空间块表记录   Open the Block table record Model space for write
                Dim acBlkTblRec As BlockTableRecord
                acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                                                OpenMode.ForWrite)

                '' 创建一条起点为（5，5，0），终点为（12，3，0）的直线  Create a line that starts at 5,5 and ends at 12,3
                Dim acLine As Line = New Line(New Point3d(5, 5, 0), _
                                              New Point3d(12, 3, 0))
                acLine.SetDatabaseDefaults()

                '' 添加新对象到块表记录和事务中   Add the new object to the block table record and the transaction
                acBlkTblRec.AppendEntity(acLine)
                acTrans.AddNewlyCreatedDBObject(acLine, True)

                '' 保存新对象到数据库中   Save the new object to the database
                acTrans.Commit()
            End Using
        End Sub

        Public Sub Terminate() Implements IExtensionApplication.Terminate
            ' Do plug-in application clean up here
        End Sub
    End Class

End Namespace