szx025 发表于 2018-6-20 14:25:01

lostbalance 发表于 2018-6-20 09:02
加一个判断啊
(setq d2 (+ (read d1) buchang))
(if (= d2 (fix d2)) ;;判断d2是不是整数


谢谢 非常谢谢你不厌其烦的回答
页: 1 2 [3]
查看完整版本: 文字加减复制的lisp程序