Como retornar a quantidade de objetos selecionados na área de desenho do AutoCAD usando as funções ssget e sslength da AutoLISP

; função usada para pedir para o usuário selecionar
; um ou mais objetos na área de desenho do AutoCAD e,
; em seguida, mostrar a quantidade de objetos selecionados
(defun c:selecionar ()
  ; guardamos os objetos selecionados na variável
  ; selecionados
  (setq selecionados (ssget))

  ; usamos a função sslength para retornar a quantidade
  ; de objetos selecionados e guardamos na variável
  ; quant_selecionados  
  (setq quant_selecionados (sslength selecionados))
  
  ; finalmente mostramos o resultado
  (princ (strcat "Você selecionou " 
    (rtos quant_selecionados) " objetos."))
  (princ) 
)