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

戏男

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

yaojing38

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

2. (defun c:rea(/ n times en data dt)
   
3. (princ "\n选择数字:")
   
4. (setq ss (ssget (list (cons 0 "text"))))
   
5. (initget 1)
   
6. (setq dt (getreal "\n输入要减值:"))
   
7. (if ss
   
8. (progn
   
9. (setq n 0 times (sslength ss))
   
10. (repeat times
    
11. (setq en (ssname ss n) data (entget en) number (read (cdr (assoc 1 data))))
    
12. (if (member (type number) '(INT REAL))
    
13. (progn
    
14. (if (> (- number dt) 0)
    
15. (setq data (subst (cons 1 (strcat "+"(rtos (- number dt) 2 2)))(assoc 1 data) data))
    
16. (setq data (subst (cons 1 (rtos (- number dt) 2 2))(assoc 1 data) data)))
    
17. (entmod data)
    
18. (if (> (- number dt) 0) (vla-put-Color (vlax-ename->vla-object en) acRed)(vla-put-Color (vlax-ename->vla-object en) acGreen))
    
19. )
    
20. )
    
21. (setq n (1+ n))
    
22. )
    
23. )
    
24. )
    
25. (princ)
    
26. )

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

yaojing38

(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

戏男

yaojing38 发表于 2023-6-15 11:10
(defun c:rea(/ n times en data dt)
(princ "\n选择数字:")
(setq ss (ssget (list (cons 0 "text"))))
...

减过的值为正值时，前面没有带+号呢？

戏男

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

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

yaojing38

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

好像是，，你试下

戏男

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

还是一样显示未解决

yaojing38

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

选择最佳答案

戏男

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

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