'样条曲线转化为直线(针对上面函数转化后的样条曲线)
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

'创建匿名块
Function NiMingKuai(S As String) As String
    Dim blockObj As AcadBlock
    Dim n As Long
    NiMingKuai = S & "_0"
Block:
    For Each blockObj In ThisDrawing.Blocks
        If blockObj.Name = NiMingKuai Then
            NiMingKuai = S & "_" & CStr(n)
            Prompt NiMingKuai
            n = n + 1
            GoTo Block
        End If
    Next blockObj
End Function 

'创建匿名组，没有则创建，有则序号加一
Function NiMingZu(S As String) As String
    Dim G As AcadGroup
    Dim n As Long
    For Each G In ThisDrawing.Groups
        If Left(G.Name, Len(S)) = S Then n = n + 1
    Next
    NiMingZu = S & n + 1
End Function 

 '创建匿名块，没有则创建，有则序号加一
Function NiMingKuai(S As String) As String
    Dim B As AcadBlock
    Dim n As Long
    Dim m As Long
    For Each B In ThisDrawing.Blocks
        If Left(B.Name, Len(S)) = S Then
            m = Val(Mid(B.Name, Len(S) + 1))
            If n <= m Then n = m + 1
        End If
    Next
    NiMingKuai = S & n
End Function