Sub GetLengthSpline()
    Dim varPoint As Variant
    Dim objSpline As AcadSpline
    Dim objCopiedSpline As AcadSpline
    On Error GoTo ESCPress
    ThisDrawing.Utility.GetEntity objSpline, varPoint, "Select the Spline"
    
    Set objCopiedSpline = objSpline.Copy

    'Convert Spline to Polyline by SendCommand
    Dim strHandle As String
    strHandle = "(handent " & Chr(34) & objCopiedSpline.Handle & Chr(34) & ")"
    Dim strCommand As String
    strCommand = "SPLINEDIT " & strHandle & vbCr & "P" & vbCr & vbCr
    
    ThisDrawing.SendCommand strCommand
    
    'Lay doi tuong cuoi cung vua Convert
    Dim objSS As AcadSelectionSet
    Set objSS = ThisDrawing.SelectionSets.Add(Now)
    
    objSS.Select acSelectionSetLast
    
    Dim objLWPolyline As AcadLWPolyline
    Set objLWPolyline = objSS.Item(0)
    MsgBox objLWPolyline.length
    
    'Xoa doi tuong Polyline tao ra và ObjSS
    objLWPolyline.Delete
    objSS.Delete
    Exit Sub
ESCPress:
	Err.Clear
End Sub