如何实现字符串内数据相加或相乘

chenying0527

加载
(defun DivStr(str / i ch num num2)
(setq i 1 num "")
(repeat (strlen str)
(setq ch (substr str i 1))
(if (or (= ch "-") (= ch "x"))
(progn
(setq num2 num)
(setq num "")
)
(setq num (strcat num ch))
)
(setq i (1+ i))
)
(* (atof num) (atof num2))
)
程序后不能运行？

天宇飞翔12

同问，不能运行呢

金鹅起飞

ll_j 发表于 2004-6-13 22:22
看看我的Ce.lsp是否可用。

ll-j 大师您好！您的这个计算器太好了，可以解决好多的计算问题，非常感谢您分享这么好的插件！试用了下，发现选择项如果可以带记忆功能就更完美了，好多的计算都是相同的，选择项也相同，目前插件是每次都要输入选择项，带上上次的记忆功能，就不用每次去输入。如果您有时间更新下，就完美到极致了。