社区 › 编程申请 › 数字减一个指定的数变正负差值

戏男 发表于 2023-6-15 10:18:27

数字减一个指定的数变正负差值

本帖最后由 戏男 于 2023-6-15 10:20 编辑

如图片说明，数字减一个指定的数变正负差值显示，如果正和负的值的颜色能改为不同颜色是最好了，比如正值为红色，负值为绿色

yaojing38 发表于 2023-6-15 10:18:28

戏男 发表于 2023-6-15 11:42
减过的值为正值时，前面没有带+号呢？

(defun c:rea(/ n times en data dt)
(princ "\n选择数字:")
(setq ss (ssget (list (cons 0 "text"))))
(initget 1)
(setq dt (getreal "\n输入要减值:"))
(if ss
(progn
(setq n 0 times (sslength ss))
(repeat times
(setq en (ssname ss n) data (entget en) number (read (cdr (assoc 1 data))))
(if (member (type number) '(INT REAL))
(progn
(if (> (- number dt) 0)
(setq data (subst (cons 1 (strcat "+"(rtos (- number dt) 2 2)))(assoc 1 data) data))
(setq data (subst (cons 1 (rtos (- number dt) 2 2))(assoc 1 data) data)))
(entmod data)
(if (> (- number dt) 0) (vla-put-Color (vlax-ename->vla-object en) acRed)(vla-put-Color (vlax-ename->vla-object en) acGreen))
)
)
(setq n (1+ n))
)
)
)
(princ)
)

yaojing38 发表于 2023-6-15 11:10:03

本帖最后由 yaojing38 于 2023-6-15 11:13 编辑

(defun c:rea(/ n times en data dt)
(princ "\n选择数字:")
(setq ss (ssget (list (cons 0 "text"))))
(initget 1)
(setq dt (getreal "\n输入要减值:"))
(if ss
(progn
(setq n 0 times (sslength ss))
(repeat times
(setq en (ssname ss n) data (entget en) number (read (cdr (assoc 1 data))))
(if (member (type number) '(INT REAL))
(progn
(setq data (subst (cons 1 (rtos (- number dt) 2 2))(assoc 1 data) data))
(entmod data)
(if (> (- number dt) 0) (vla-put-Color (vlax-ename->vla-object en) acRed)(vla-put-Color (vlax-ename->vla-object en) acGreen))
)
)
(setq n (1+ n))
)
)
)
(princ)
)
输入rea

戏男 发表于 2023-6-15 11:42:17

本帖最后由 戏男 于 2023-6-15 11:50 编辑

yaojing38 发表于 2023-6-15 11:10
(defun c:rea(/ n times en data dt)
(princ "\n选择数字:")
(setq ss (ssget (list (cons 0 "text"))))
...
减过的值为正值时，前面没有带+号呢？

戏男 发表于 2023-6-15 13:33:36

yaojing38 发表于 2023-6-15 12:13


谢谢，已解决，怎么让那个未解决改为已解决，就是我发布的那个左上角那个明经币那里改为已解决？

yaojing38 发表于 2023-6-15 14:13:15

戏男 发表于 2023-6-15 13:33
谢谢，已解决，怎么让那个未解决改为已解决，就是我发布的那个左上角那个明经币那里改为已解决？

好像是，，你试下

戏男 发表于 2023-6-15 14:21:36

yaojing38 发表于 2023-6-15 14:13
好像是，，你试下

还是一样显示未解决{:1_1:}

yaojing38 发表于 2023-6-15 16:30:32

戏男 发表于 2023-6-15 14:21
还是一样显示未解决

选择最佳答案

戏男 发表于 2023-6-15 16:58:23

yaojing38 发表于 2023-6-15 16:30
选择最佳答案

我会了，谢谢，原来是这样弄的，已显示已解决

查看完整版本: 数字减一个指定的数变正负差值