(defun @del_0 (tx / k tem)    (if (= (atof tx) 0) (setq tx "0"))    (setq k (vl-string-position (ascii ".") tx))    (setq tem (substr tx (strlen tx) 1))    (if k            (while (or (= tem "0") (= tem "."))          (setq tx (substr tx 1 (- (strlen tx) 1)))          (setq tem (substr tx (strlen tx) 1)) )    ) tx)