The following kxl file prompts you to select an entity. It then makes the entities' level and color the default, turns off other levels, and finally turns on the default.
What I would like to do is replace all the lines with "LEVELMOD NDISP..." with a command that undisplays all the levels. I'm having troubles figuring that out, can you help me? Thanks in advance for any reply.
------------------------
:start
CLEAR hEnt, hLev
HENTITY hEnt
HLEVEL hLev
$number=" "
GETENT "Select an Entity on the Level you want to display.[Esc or Backup to finish]", hEnt
IF(0 != @key)
GOTO end
CLEAR levnum
STRING $levnum
ENTLEVEL hEnt, hLev
GETLEVELNUMBER hLev,$number
C = @entatt[0]
SET LEVEL, hLev
SET COLOR, C
LEVELMOD NDISP, "1"
LEVELMOD NDISP, "2.1"
LEVELMOD NDISP, "2.2"
LEVELMOD NDISP, "3"
LEVELMOD NDISP, "4"
LEVELMOD NDISP, "5"
LEVELMOD NDISP, "6.1"
LEVELMOD NDISP, "6.2"
LEVELMOD NDISP, "7"
LEVELMOD NDISP, "8"
LEVELMOD NDISP, "9"
LEVELMOD NDISP, "10"
LEVELMOD NDISP, "11"
LEVELMOD NDISP, "12"
LEVELMOD NDISP, "13"
LEVELMOD NDISP, "14"
LEVELMOD NDISP, "15"
LEVELMOD NDISP, "16"
LEVELMOD NDISP, "20"
LEVELMOD DISP, $number
notestate
:end
exit