I've often wondered if my message replies were received: this was.
 Perhaps I do not understand the sentence 'Well,---used).'
 Guessing that the object is to get an ss with only 'entname' in it:
  
  ; to get the contents of the variable entname, which should be a 
  ; type ENAME, into variable ss, which will be a pickset: 
  (setq ss1 (ssadd) ss1 (ssadd entnam)) ; variable ss1 contains 1 
  ; that is all required. do do them at seporate code locations:
  (setq ss1 (ssadd) ) ; selection set in ss1 contains no entity names 
    ; somehow get entity name into entname here 
  (setq ss1 (ssadd entnam) ) ; ss1 contains of 1 entity
  ; a test of that operation could be:
  (if (and ss1                      ; exists, ie, is not nil, and
           (= 'PICKSET (type ss1))) ; is a selection set
   (princ (strcat 
    "\n SS1 contains: " (itoa (sslength ss1)) " names ")) ) ; if 
  ; to remove the variable ss1, ie make it nil
  (setq ss1 nil) (princ " nil ss1: ") (prin1 ss1) ; returns a nil
  ; to make an empty ss1, which is not a nil:
  (setq ss1 (ssadd)) 
  (princ " ss: ") (prin1 ss) : returns a selection set number
  ; we access that set by the name of the variable that points to it,
  ; ie, contains it, in this case ss1:
  (princ " ss: ") (prin1 ss1) ; the set number, for internal use only
  (princ " of #: ") (prin1 (sslength ss1)) ; returns the count, 0
  
  
--- Amie v0.93
---------------