cad坐标归零lisp_批量除一个数的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)")

我有一个在cad里批量除以一个数的LISP。其中《(setq newr (rtos (/ (atof old0) s0) 2 1))》的1就是决定小数点后保留1位的。请高手改一下，能否增加语句，能在cad里选择。现在，我是修改以后再加载，比较麻烦。lisp见下文。(加载命令：cy

;自身除一个倍数

(DEFUN C:cy()

(setvar "cmdecho" 0)

(PRINT "(Copyright- aningtang)")

(SETQ s0 (GETREAL "请输入被除数:"))

(PRINT "PLEASE SELECT THE object")

(SETQ S (SSGET ))

(SETQ N (SSLENGTH S))

(SETQ M 0)

(REPEAT N

(SETQ SN (SSNAME S M))

(SETQ e (ENTGET SN))

(IF (= (cdr (assoc 0 e)) "TEXT")

(PROGN

(setq oldr (assoc 1 e))

(setq old0 (cdr oldr))

(setq newr (rtos (/ (atof old0) s0) 2 1))

(setq e1 (subst (cons (car (assoc 1 e)) newr) (assoc 1 e) e))

(entmod e1)

)

)

(SETQ M (+ M 1))

)

)

基于广大用户反馈，论坛附件下载策略全新上线，下载券全站通用，请放心下载 。

数字批量除.rar

文件大小482 B

下载

申明：内容来自用户上传，著作权归原作者所有，如涉及侵权问题，请点击此处联系，我们将及时处理！

收藏0

打赏0

点赞0

分享至：

评论

文明留言，专业沟通

请先 登录，再评论！

全部评论

2010年12月23日 15:37:00

2楼

=

=

=

我这有一个自动加减乘除的

回复

举报

点赞

2011年05月07日 19:46:42

3楼

正需要啊！

回复

举报

点赞

2013年01月10日 09:03:24

4楼

需要，很需要 嘿嘿

回复

举报

点赞

2013年09月26日 09:56:55

5楼

如何运行你的命令呢？我是输入命令cy，然后输入被除数，选中对象，回车，然后就没反应

回复

举报

点赞

2014年11月25日 16:53:44

6楼

感觉还挺有用的

回复

举报

点赞

相关推荐