阅读下一篇
高手帮忙看看这个数字递增复制程序怎么不行啊?(terpri)(setq jd 2)(prompt "\n当前精度0.00,设置精度,请退出后输入jdsz进行设置")(DEFUN C:jdsz () (initget 1 "0 1 2 3 4 5 6 7 8 9") (setq jd (getint "\n 请输入精度位数[整数(0)/1位(1)/2位(2)/3位(3)/4位(4)]:")) )(defun c:nadd (/ E ENEW NV nv1 nv2 P2 p1 S)
回帖成功
经验值 +10
全部回复(3 )
只看楼主 我来说两句回复 举报
回复 举报