求一次处理表格中带负数的数字为零的LSP程序002

品茗新秀

求一次处理表格中带负数的数字为零和删除括号前面的1及括号的LSP程序002
原图



达到效果





注：改为0的数与原负值为同图层、同样式、同大小，即除了数值改为0，其它均应与原图一样。
还有后面仅删除括号前面的1及括号，其它不能改变

Andyhon

(Defun C:test ()
   (for-sset
     (ssget "X" '((1 . "*-#*-*")))
     -#-*
   )
   (for-sset
     (ssget "X" '((1 . "*(#*x#*)")))
     #X#
   )
)

xiaodao520

这个不需要LISP，CAD中查找替换就可以搞定的，套哥，多学学CAD基础知识，再研究编程吧。

Andyhon

Try:

2. 
   
3. 
   
4. (defun -#-* (a / b c d e)
   
5.   (setq b (entget a)
   
6.         c (assoc 1 b)
   
7.         d (cdr c)
   
8.         e (vl-string->list d)
   
9.         e (member 45 (cdr (member 45 e)))
   
10.         e (cons 48 e)
    
11.   )
    
12. 
    
13.   (repeat (1- (vl-string-position (ascii "-") d nil T))
    
14.     (setq e (cons 32 e))
    
15.   )
    
16. 
    
17.   (entmod (subst (cons 1 (vl-list->string e)) c b))
    
18. )
    
19. 
    
20. (defun #X# (a / b c d e)
    
21.   (setq b (entget a)
    
22.         c (assoc 1 b)
    
23.         d (cdr c)
    
24.         e (vl-string->list d)
    
25.         e (cdr (member 40 e))
    
26.         e (reverse (cdr (member 41 (reverse e))))
    
27.   )
    
28.   (entmod (subst (cons 1 (vl-list->string e)) c b))
    
29. )
    
30. 
    
31.     ;;; (for-sset ss entdel)
    
32.     ;;; Vladimir Nesterovsky
    
33. 
    
34.     ;; (defun for-sset (sset fun / n)
    
35.     ;;    (if (= 'PICKSET (type sset))
    
36.     ;;      (repeat (setq n (fix (sslength sset)))
    
37.     ;;         (fun (ssname sset (setq n (1- n))))
    
38.     ;;    ) )
    
39.     ;; )
    
40. 
    
41.     (defun for-sset (sset func / n ename)
    
42.        (and (= 'pickset (type sset))
    
43.             (setq n -1)
    
44.             (while (setq ename (ssname sset (setq n (1+ n))))
    
45.               (func ename)
    
46.             )
    
47.        )
    
48.     )
    
49. 
    
50. (Defun C:test ()
    
51.    (for-sset
    
52.      (ssget "X" '((1 . "*-#*")))
    
53.      -#-*
    
54.    )
    
55.    (for-sset
    
56.      (ssget "X" '((1 . "*(#*x#*)")))
    
57.      #X#
    
58.    )
    
59. )
    

<br /> <br /> (defun -#-* (a / b c d e)<br />   (setq b (entget a)<br />         c (assoc 1 b)<br />         d (cdr c)<br />         e (vl-string->list d)<br />         e (member 45 (cdr (member 45 e)))<br />         e (cons 48 e)<br />   )<br /> <br />   (repeat (1- (vl-string-position (ascii "-") d nil T))<br />     (setq e (cons 32 e))<br />   )<br /> <br />   (entmod (subst (cons 1 (vl-list->string e)) c b))<br /> )<br /> <br /> (defun #X# (a / b c d e)<br />   (setq b (entget a)<br />         c (assoc 1 b)<br />         d (cdr c)<br />         e (vl-string->list d)<br />         e (cdr (member 40 e))<br />         e (reverse (cdr (member 41 (reverse e))))<br />   )<br />   (entmod (subst (cons 1 (vl-list->string e)) c b))<br /> )<br /> <br />     ;;; (for-sset ss entdel)<br />     ;;; Vladimir Nesterovsky<br /> <br />     ;; (defun for-sset (sset fun / n)<br />     ;;    (if (= 'PICKSET (type sset))<br />     ;;      (repeat (setq n (fix (sslength sset)))<br />     ;;         (fun (ssname sset (setq n (1- n))))<br />     ;;    ) )<br />     ;; )<br /> <br />     (defun for-sset (sset func / n ename)<br />        (and (= 'pickset (type sset))<br />             (setq n -1)<br />             (while (setq ename (ssname sset (setq n (1+ n))))<br />               (func ename)<br />             )<br />        )<br />     )<br /> <br /> (Defun C:test ()<br />    (for-sset<br />      (ssget "X" '((1 . "*-#*")))<br />      -#-*<br />    )<br />    (for-sset<br />      (ssget "X" '((1 . "*(#*x#*)")))<br />      #X#<br />    )<br /> )<br />

齐天大圣3386

你一共才39个明经币，300个可怎么出啊？

flytoday

上一悬赏贴楼主赖账

品茗新秀

非常强大，太好了，建议再改进一下，见下图测试

flytoday

又想赖账了…一直改进最后说不满意

品茗新秀

十分强大，非常不错，
对了一下，不知异在何处，两个代码好象差不多，楼主能不能告诉我