土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 批量除一个数的lisp,请高手改成保留成设置小数位置。

批量除一个数的lisp,请高手改成保留成设置小数位置。

发布于:2010-12-17 13:39:17 来自:建筑设计/CAD下载及教程 [复制转发]
我有一个在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))
)
)

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

全部回复(5 )

只看楼主 我来说两句
  • 郭小城zweibo
    感觉还挺有用的
    2014-11-25 16:53:25

    回复 举报
    赞同0
  • johnlylanyu
    johnlylanyu 板凳
    如何运行你的命令呢?我是输入命令cy,然后输入被除数,选中对象,回车,然后就没反应
    2013-09-26 09:56:26

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.09 万条内容 · 668 人订阅

猜你喜欢

阅读下一篇

加载VLX后显示加载成功,为什么加载后打不开?

命令: APPLOAD 已成功加载 xx.VLX。用AutoCADLoads查,没有发现启动项,已加载的程序里也没有,就是不能运行,请问怎么搞呢?我装的TSSD2008+CAD2006 2004用2004 2006 TSSD试过都不行,多谢各位大虾啊

回帖成功

经验值 +10