[求助]：如何用LISP实现数值加一定值

szx025 · 发表于 2007-7-11 21:08:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用LISP实现数值加一定值,比如CAD图中有一数值是3.000,点取后,3.000自动变成5.230.我的想法是把增量2.230写在LISP程序中

zml84 · 发表于 2007-7-12 09:37:02

;;;群组码专题
;;;========================================================
(defun C:TT (/ ADDNUM S1 ENT STR NUM)
;;设置常量
(setq ADDNUM 2.230)
;;循环操作
(while (setq S1 (entsel "\n请点取文本对象: "))
(setq ENT (entget (car S1)))
;;判断是否为文本
(if (= (cdr (assoc 0 ENT)) "TEXT")
(progn
(setq STR (cdr (assoc 1 ENT)))
;;判断内容是否为数字
(if (= (atof STR)
(read STR)
)
(progn
;;计算
(setq NUM (+ (atof STR) ADDNUM)
STRNEW (rtos NUM 2 2)
)
;;显示
(princ (strcat " "
STR
"+"
(rtos ADDNUM 2 2)
"="
STRNEW
)
)
;;更新实体
(setq ENT (subst (cons 1 STRNEW)
(assoc 1 ENT)
ENT
)
)
(entmod ENT)
)
(princ "\n选择的内容不是数字。")
)
)
(princ "\n选择的对象不是文本。")
)
) ;_结束 while
(princ)
) ;_结束 defun

;;;群组码专题 
;;;======================================================== 
(defun C:TT (/ ADDNUM S1 ENT STR NUM) 
    ;;设置常量 
    (setq ADDNUM 2.230) 
    ;;循环操作 
    (while (setq S1 (entsel "\n请点取文本对象: ")) 
        (setq ENT (entget (car S1))) 
        ;;判断是否为文本 
        (if (= (cdr (assoc 0 ENT)) "TEXT") 
            (progn 
                (setq STR (cdr (assoc 1 ENT))) 
                ;;判断内容是否为数字 
                (if (= (atof STR) 
                       (read STR) 
                    ) 
                    (progn 
 
                        ;;计算 
                        (setq NUM    (+ (atof STR) ADDNUM) 
                              STRNEW (rtos NUM 2 2) 
                        ) 
                        ;;显示 
                        (princ (strcat "    " 
                                       STR 
                                       "+" 
                                       (rtos ADDNUM 2 2) 
                                       "=" 
                                       STRNEW 
                               ) 
                        ) 
                        ;;更新实体 
                        (setq ENT (subst (cons 1 STRNEW) 
                                         (assoc 1 ENT) 
                                         ENT 
                                  ) 
                        ) 
                        (entmod ENT) 
                    ) 
                    (princ "\n选择的内容不是数字。") 
                ) 
            ) 
            (princ "\n选择的对象不是文本。") 
        ) 
    ) ;_结束 while 
    (princ) 
) ;_结束 defun

代码完美着色显示见：http://acad.net.cn/viewthread.php?tid=176&extra=page%3D1

szx025 · 发表于 2007-7-12 10:02:43

谢谢ZML84.
程序写的很好,
有两个小问题能否在完善一下:
1, 设置常量能否改为键盘输入,并且作为下次的默认值.
2,图中数值如小数点第三位是零,程序运行后小数点后的零消除了,我想保留小数点后三位,不论是否为零.
再次谢谢ZML84

zml84 · 发表于 2007-7-12 11:16:51

回楼上：
1、a、可以采用getreal函数来输入要运算的数值。
b、采用全局变量即可实现对上次输入值的记忆。
2、关于小数位数。请注意这个位置

;;计算
(setq NUM (+ (atof STR) ADDNUM)
STRNEW (rtos NUM 2 2)
)

你可以直接将第二个2改成3，即表示保留三位小数。
另：保留位数也可以作为可输入的全局变量来考虑。
3、这里有几个例子：
http://acad.net.cn/viewthread.php?tid=156&extra=page%3D1
http://acad.net.cn/viewthread.php?tid=172&extra=page%3D1
你可以体会一下，然后修改本帖2楼的代码。

szx025 · 发表于 2007-7-12 11:42:10

;;计算
(setq NUM (+ (atof STR) ADDNUM)
STRNEW (rtos NUM 2 3)
)
2改为3后小数位是三位,但当第三位树是零时,数值变成两位,有办法让小数位的零保留吗?

zml84 · 发表于 2007-7-12 17:50:31

[PHP]
_$ (rtos 1.2 2 3)
"1.200"
_$ (rtos 1.230 2 3)
"1.230"
_$ (rtos 1.2300 2 3)
"1.230"
[/PHP]

刚看到这里也有一篇帖子，讨论的同一个问题，参见：http://www.mjtd.com/bbs/dispbbs. ... ID=61257&page=1

szx025 · 发表于 2007-7-12 19:35:45

再次谢谢ZML84
我的图中DIMZIN设置在作怪

TLHMQH · 发表于 2007-7-12 20:45:35

最初由 szx025 发布
[B]再次谢谢ZML84
[/B]

感觉ZML84是szx025的专业辅导老师
szx025很多的问题都是ZML84解决的

szx025 · 发表于 2007-7-12 21:04:17

我也要谢谢TLHMQH,你发来的程序已帮我解决了切除墙线的问题
再次谢谢TLHMQH

TLHMQH · 发表于 2007-7-12 21:43:54

谢我就不用了，那也是前些日子练的一小段。
对你的专业不懂，不敢公开回复。既然能有用，我也高兴。
感觉ZML84对你的帖子给了许多帮助。你好学，ZML84乐于助人，我出钱。
ZML84现在虽然是版主，也不能贪污，现在爱心币不多。
ZML84 基础扎实、乐于助人。我也给版主打个进步，替你送给ZML84 200爱心币。

zml84 · 发表于 2007-7-13 08:33:00

能与众多爱好者互相交流，共同进步，实在是件快事！
大家专业各异，但在基本技术上是相通的，希望通过大家共同努力，使cad技术在每个专业都能有奇妙的应用。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何用LISP实现数值加一定值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子