Функции анализирующие набор примитива.


1. функция определяющая количество примитивов в наборе (SSLENGTH <набор>)
возвращает число примитивов, содержащихся в наборе (SETQ OLPLINE (SSGET “L”))
(SSLENGTH OLDLINE)
Результат: 1
2. функция получения имени заданного примитива (SSNAME <набор><номер>)
функция возвращает имя примитива заданного номера входящего в данный набор. Нумерация — с нуля. Если номер <0 или >max, то результат NIL
(SETQ SSET (SSGET))
(SETQ ENT1 (SSNAME SSET 0))
(SETQ ENTm (SSNAME SSET (1-m))).
3. функция проверки наличия примитива в наборе (SSMEMD <имя примитива><набор>).
Возвращает внутри программы имя примитива, или NIL, если примитива нет в наборе.
(SSEMEMB ENT1 SSET) ?ENT1
(SSEMEMB ENT1 (1+_m) SSET) ?NIL.
4. функция изменения состава набора (SSADD [<имя примитива>[<набор>]]).
Функция без аргументов возвращает пустой набор. Если имеется только <имя примитива>, то функция создает новый набор, содержащий только этот примитив. Если присутствуют оба аргумента, то в набор добавляется указательный примитив, если он был, то ничего не произойдет.
(SETQ N (SSADD)) ;сформир. пустой набор
(SETQ S (SSADD P1)) ; занести в набор переменную Р1 и присвоить переменной S
(SETQ W (SSADD S R1)) ;занести в переменную W обновленный набор с R1.
5. функция удаления примитива из набора (SSDEL <имя примитива> <набор>)
возвращает обновленный набор, в противном случае – NIL( если такого примитива нет в наборе).
(SETQ SU(SSDEL P1 S))