数字计算tadd.rar (defun C:tadd ( / sa k ss str yusf n shzi h hh) (princ "\n 选择所有文字:") (setq ss (ssget '((0 . "text"))) str (getstring "\n 输入四则运算及数值:") yusf (substr str 1 1) shzi (atof (substr str 2)) n (sslength ss) k 0 ) (while (< k n) (setq names (