REM ******SET.CDL BY Jeff Davis*******
REM ******CHANGES ATTRIBUTES IN STATUS MENU TO SELECTED**
CLEAR
GETENT "SELECT ENTITY FOR ATTRIB CHANGE", ETYPE
IF (@KEY < -1)
GOTO end
IF (ETYPE < 11)
goto notext
set dimfont, @txtatt[0]
set dimfill, @txtatt[1]
set dimht, @txtatt[6]
set dimslant, @txtatt[4]
set notefont, @txtatt[0]
set notefill, @txtatt[1]
set noteang, @txtatt[5]
set noteht, @txtatt[6]
set noteslant, @txtatt[4]
set textasp, @txtatt[7]
:notext
set color, @intdat[3]
set level, @intdat[4]
set linetype, @intdat[5]
set linewidth, @intdat[7]
set pen, @intdat[6]
:end