本帖最后由 yjr111 于 2011-11-21 18:26 编辑
xieyanghui 发表于 2011-11-21 12:10 
在输入数量的时候有时候输错,输成英文加数字的时候,程序就运行不了了。 还是给你改好吧, 用下面的代码替换源码中第二十行开始的if语句段即可。。。
 - (initget 6)
- (if (and(=(type *num_fenge*)'int)*num_fenge*) (setq num_fenge (getint (strcat "\n请选择平分的数目<" (rtos *num_fenge* 2 0)">")))
- (progn(setq num_fenge (getint "\n请选择平分的数目" ))
- (if (/=(type num_fenge)'int)(progn
- (princ"\n输入的数字类型不对,请输入整数!")
- (setq num_fenge (getint "\n请选择平分的数目" ))))
- )
- )
|