Sub DeleteMenu()
    '读取有那些菜单
    Dim i As Integer
    Dim i1 As Integer
    Dim i2 As Integer
    Dim index() As Long
    Dim DataString As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FSO_File = FSO.OpenTextFile(GetPath & "menu.txt", ForReading, True)
    Do While Not FSO_File.AtEndOfStream
            DataString = FSO_File.ReadLine
            i = inStr_n(DataString, ",", index)
            If i = 0 Then
                i1 = Val(DataString)
            ElseIf i = 1 Then
                DataString = Left(DataString, Len(DataString) - 1)
                For Each TG In ThisDrawing.Application.MenuGroups
                    For Each T In TG.Toolbars
                        If T.Name = DataString Then
                            T.Delete
                            i2 = i2 + 1
                            If i2 = i1 Then Exit Do
                        End If
                    Next
                Next
            End If
    Loop
    FSO_File.Close
End Sub

 '样条曲线转化为直线(针对上面函数转化后的样条曲线)
Sub SPlineToLine()
    Dim E  As AcadEntity
    Dim L  As AcadLine
    Dim SP As AcadSpline
    Dim StartP As Variant
    Dim EndP As Variant
    
    For Each E In ThisDrawing.ModelSpace
        'DoEvents
        'ThisDrawing.Utility.Prompt E.ObjectName
        If E.ObjectName = "AcDbSpline" Then
            Set SP = E
            
            StartP = SP.GetFitPoint(0)
            EndP = SP.GetFitPoint(2)
            
            Set L = ThisDrawing.ModelSpace.AddLine(StartP, EndP)
            L.Layer = SP.Layer
            L.color = SP.color
            SP.Delete
        End If
    Next E
End Sub