(defun C:NUMRIGHE (/ testomul altezza linespacing righe)
(setq testomul (ssget ":S" '((0 . "MTEXT")))
altezza (cdr(assoc 43 (entget (ssname testomul 0))))
linespacing(vla-get-LineSpacingDistance (vlax-ename->vla-object (ssname testomul 0)))
righe (fix (+ (/ altezza linespacing) 1))
)
)