Clear all user tables in the database (Delete tables in the database)

If you want to find a command to clear all user tables in the database, you can only use one cumbersome method. Is there any simpler method?

Declare @ strSqlTmp varchar (8000)
Declare @ strSql varchar (8000)
Set @ strSqlTmp =''
Declare online_cursor cursor
Select 'truncate table ['+ name +']; 'as SQL from sysobjects where type = 'U ';
Open online_cursor
Fetch next from online_cursor into @ strSql
While @ fetch_status = 0
Begin
Set @ strSqlTmp = @ strSqlTmp + @ strSql
Fetch next from online_cursor into @ strSql
End
Close online_cursor
Deallocate online_cursor

-- Print @ strSqlTmp

Exec (@ strSqlTmp)