(setq x (car xx)) return 10.5689 how to count that number they have 6 number (qty w/o dot)
Should consider negative numbers. (defun Len (n / ln) (setq ln (strlen (vl-princ-to-string (abs n)))) (if (= 'REAL (type n)) (1- ln) ln) ) Joe Burke