阅读下一篇
批量除一个数的lisp，请高手改成保留成设置小数位置。我有一个在cad里批量除以一个数的LISP。其中《(setq newr (rtos (/ (atof old0) s0) 2 1))》的1就是决定小数点后保留1位的。请高手改一下，能否增加语句，能在cad里选择。现在，我是修改以后再加载，比较麻烦。lisp见下文。（加载命令：cy;自身除一个倍数(DEFUN C:cy() (setvar "cmdecho" 0) (PRINT "(Copyright- aningtang)")
回帖成功
经验值 +10
全部回复（3 ）
只看楼主 我来说两句-
gaphp1984
沙发
里面的图片都是广联达软件里用的图片吗？
2010-12-18 14:13:18
赞同0
-
wy_ou
板凳
是入门吗？
2010-12-18 12:23:18
赞同0
加载更多回复 举报
试下看。
回复 举报