(setq gruppo_romani(ssget '((0 . "ROMAN_SOLDIER"))))  ;;; Crea l'insieme di selezione dell'entità "soldato romano"

(cond       
 ((= (sslength gruppo_romani) 0)  ;;; condizione che si verifica se il gruppo_romani è uguale a 0
  (nativity)   ;;; funzione natività
 )
 (T nil) ;;; condizione che si verifica se il gruppo_romani è maggiore di 0
) 

(defun nativity ( )   ;;; definisci funzione natività
 (setq stable (vlax-make-safearray vlax-vbString '(0 . 4)))  ;;; crea variabile stalla

 (vlax-safearray-fill stable '("cow" "donkey" "Joseph" "Mary" "Jesus")) ;;; aggiungi le variabili bue, asinello, Giuseppe, Maria e Gesù

 (vlax-get-or-create-object "Presepe.Application") ;;; Crea l'applicazione denominata "Presepe"
)