Aggiungere una stringa di testo

(defun c:pe ()
    (alert
        (strcat
            "Il peso è di kg. "
            (rtos (* (vla-get-volume (vlax-ename->vla-object (car (entsel "\nSeleziona un solido")))) 7859))
        )
    )
)