尾数.00字串去除(已解决多谢飞雪神光大大帮忙及各位大大的解答）

wuwubaibai

请问大大们~如果要达到以下的功能~该如何修改以下代码呢?感谢大大们
尾数.00字串去除~不是.00则不去除

(defun c:de3 ()
(setvar "cmdecho" 0)
(CClay "bend" 211 "2_正折")  
  (setq a (ssget "X" '((8 . "2_正折"))))
  (if (and (/= nil a) (/= 0 (sslength a)))
   (command "chprop" a "" "c" "bylayer" "La" "bend" "lt" "bylayer" "s" "1" "")   
  )

(command "ERASE"(ssget '((0 . "TEXT,MTEXT")(-4 . "<NOT")(1 . "*上*UP*,*上*up*,*下*down*,*下*DOWN*")(-4 . "NOT>")))  "" )

(setvar "CmdEcho" 1)
  (princ)
)

(defun CClay (layname cc sObjTyp) ;;;  layname
(if (= nil (tblsearch "layer" layname))
(command "-layer" "n" layname "c" cc layname "")
)
(setq SS  (ssget "x" (list (cons 0 sObjTyp) (cons 410 "Model"))))
(if (and (/= nil ss) (/= 0 (sslength SS)))
(command "chprop" SS "" "la" layname "")
)

(princ)
)

飞雪神光

1. (defun c:de3 (/ a lm-entmake-layer ss ss-enlst str wz wz0 wz1 wz2 wz3)
   
2.         (defun lm-entmake-layer(datalst)
   
3.                 (mapcar'set '(tc co) datalst)
   
4.                 (or co (setq co 256))
   
5.                 (or tc (setq tc (getvar "clayer")))
   
6.                 (entmake (list '(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")(cons 2 tc)(cons 62 co)'(70 . 0)'(6 . "CONTINUOUS")))
   
7.         )
   
8.         (defun ss-enlst (ss / enlst)
   
9.                 (cond
   
10.                         ((= (type ss) 'PICKSET)
    
11.                                 (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
    
12.                         )
    
13.                         ((= (type ss) 'LIST)
    
14.                                 (setq enlst (ssadd))
    
15.                                 (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
    
16.                         )
    
17.                 )
    
18.         )
    
19.         (if (null (tblsearch "layer" "2_正折"))
    
20.                 (lm-entmake-layer (list "2_正折" 211))
    
21.         )
    
22.         (setq a (ssget "X" '((8 . "2_正折"))))
    
23.         (foreach ty (ss-enlst a)
    
24.                 (vla-put-Layer (vlax-ename->vla-object ty) "bend")
    
25.         )
    
26.   (setq ss (ssget '((0 . "*TEXT") (1 . "上DOWN*,下DOWN*"))))
    
27.   (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))
    
28.     (setq str (vla-get-TextString (vlax-ename->vla-object ty)))
    
29.     (setq wz (vl-string-search "." str))
    
30.     (if wz
    
31.       (progn
    
32.         (setq wz0 (substr str (+ wz 1) 3))
    
33.         (if (= wz0 ".00")
    
34.           (progn
    
35.             (setq wz1 (substr str 1 wz))
    
36.             (setq wz2 (substr str (+ wz 4)))
    
37.             (setq wz3 (strcat wz1 wz2))
    
38.             (vla-put-TextString (vlax-ename->vla-object ty) wz3)
    
39.           )
    
40.         )
    
41.       )
    
42.     )
    
43.   )
    
44.   (princ)
    
45. )

(defun c:de3 (/ a lm-entmake-layer ss ss-enlst str wz wz0 wz1 wz2 wz3)<br />         (defun lm-entmake-layer(datalst)<br />                 (mapcar'set '(tc co) datalst)<br />                 (or co (setq co 256))<br />                 (or tc (setq tc (getvar "clayer")))<br />                 (entmake (list '(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")(cons 2 tc)(cons 62 co)'(70 . 0)'(6 . "CONTINUOUS")))<br />         )<br />         (defun ss-enlst (ss / enlst)<br />                 (cond<br />                         ((= (type ss) 'PICKSET)<br />                                 (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />                         )<br />                         ((= (type ss) 'LIST)<br />                                 (setq enlst (ssadd))<br />                                 (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />                         )<br />                 )<br />         )<br />         (if (null (tblsearch "layer" "2_正折"))<br />                 (lm-entmake-layer (list "2_正折" 211))<br />         )<br />         (setq a (ssget "X" '((8 . "2_正折"))))<br />         (foreach ty (ss-enlst a)<br />                 (vla-put-Layer (vlax-ename->vla-object ty) "bend")<br />         )<br />   (setq ss (ssget '((0 . "*TEXT") (1 . "上DOWN*,下DOWN*"))))<br />   (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))<br />     (setq str (vla-get-TextString (vlax-ename->vla-object ty)))<br />     (setq wz (vl-string-search "." str))<br />     (if wz<br />       (progn<br />         (setq wz0 (substr str (+ wz 1) 3))<br />         (if (= wz0 ".00")<br />           (progn<br />             (setq wz1 (substr str 1 wz))<br />             (setq wz2 (substr str (+ wz 4)))<br />             (setq wz3 (strcat wz1 wz2))<br />             (vla-put-TextString (vlax-ename->vla-object ty) wz3)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

llsheng_73

wuwubaibai 发表于 2023-12-30 02:33
请问这个过滤出来后还是得去0呀!前面的数字我还要

1. (defun delstr(str chars)
   
2.   (while(vl-string-search chars str)
   
3.     (setq str(VL-STRING-SUBST""chars str)))
   
4.   str)
   
5. (defun c:tt(/ e s)
   
6.   (if(setq s(ssget'((0 . "text")(1 . "*.00*"))))
   
7.     (while(setq e(ssname s 0))
   
8.       (ssdel e s)
   
9.       (entmod(list(cons -1 e)(cons 1(delstr(cdr(assoc 1(entget e)))".00"))(cons 8 "bend"))))
   
10.     ))

(defun delstr(str chars)<br />   (while(vl-string-search chars str)<br />     (setq str(VL-STRING-SUBST""chars str)))<br />   str)<br /> (defun c:tt(/ e s)<br />   (if(setq s(ssget'((0 . "text")(1 . "*.00*"))))<br />     (while(setq e(ssname s 0))<br />       (ssdel e s)<br />       (entmod(list(cons -1 e)(cons 1(delstr(cdr(assoc 1(entget e)))".00"))(cons 8 "bend"))))<br />     ))

wuwubaibai

飞雪神光 发表于 2023-12-29 10:23
"(ssget  "X" '((0 . "TEXT,MTEXT")(-4 . "")))

加了以后完全选不到东西了~还在研究中
defun c:de3 (/ ss str wz wz0 wz1 wz2 wz3)
(setvar "cmdecho" 0)
(CClay "bend" 211 "2_正折")  
  (setq a (ssget "X" '((8 . "2_正折"))))
  (if (and (/= nil a) (/= 0 (sslength a)))
   (command "chprop" a "" "c" "bylayer" "La" "bend" "lt" "bylayer" "s" "1" "")   
  )
        (setq ss (ssget '((0 . "*TEXT") (1 . "上DOWN*,下DOWN*"))))
        (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))
                (setq str (vla-get-TextString (vlax-ename->vla-object ty)))
                (vl-string-right-trim ".00" str)
                (vl-string-right-trim "." (vl-string-right-trim "0" str))
                (setq wz (vl-string-search "." str))
                (if wz
                        (progn
                                (setq wz0 (substr str (+ wz 1) 3))
                                (if (= wz0 ".00")
                                        (progn
                                                (setq wz1 (substr str 1 wz))
                                                (setq wz2 (substr str (+ wz 4)))
                                                (setq wz3 (strcat wz1 wz2))
                                                (vla-put-TextString (vlax-ename->vla-object ty) wz3)
                                        )
                                )
                        )
                )
        )

command "ERASE"(ssget  "X" '((0 . "TEXT,MTEXT")(-4 . "<NOT")(1 . "*上*UP*,*上*up*,*下*down*,*下*DOWN*")(-4 . "NOT>")))
(setvar "CmdEcho" 1)
        (princ)
)

(defun CClay (layname cc sObjTyp) ;;;  layname
(if (= nil (tblsearch "layer" layname))
(command "-layer" "n" layname "c" cc layname "")
)
(setq SS  (ssget "x" (list (cons 0 sObjTyp) (cons 410 "Model"))))
(if (and (/= nil ss) (/= 0 (sslength SS)))
(command "chprop" SS "" "la" layname "")
)

(princ)
)

飞雪神光

一看就是AI写的  这用find命令替换不就行了

wuwubaibai

飞雪神光 发表于 2023-12-28 22:27
一看就是AI写的  这用find命令替换不就行了

不是AI写的
是不才的我找资料东拼西凑出来的
因为不懂LISP只能找寻大量资料
但也只能拼凑到这样了

飞雪神光

好吧 能凑成这样也是不容易

1. (defun c:de3 (/ ss str wz wz0 wz1 wz2 wz3)
   
2.   (setq ss (ssget '((0 . "*TEXT") (1 . "上DOWN*,下DOWN*"))))
   
3.   (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))
   
4.     (setq str (vla-get-TextString (vlax-ename->vla-object ty)))
   
5.     (setq wz (vl-string-search "." str))
   
6.     (if wz
   
7.       (progn
   
8.         (setq wz0 (substr str (+ wz 1) 3))
   
9.         (if (= wz0 ".00")
   
10.           (progn
    
11.             (setq wz1 (substr str 1 wz))
    
12.             (setq wz2 (substr str (+ wz 4)))
    
13.             (setq wz3 (strcat wz1 wz2))
    
14.             (vla-put-TextString (vlax-ename->vla-object ty) wz3)
    
15.           )
    
16.         )
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:de3 (/ ss str wz wz0 wz1 wz2 wz3)<br />   (setq ss (ssget '((0 . "*TEXT") (1 . "上DOWN*,下DOWN*"))))<br />   (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))<br />     (setq str (vla-get-TextString (vlax-ename->vla-object ty)))<br />     (setq wz (vl-string-search "." str))<br />     (if wz<br />       (progn<br />         (setq wz0 (substr str (+ wz 1) 3))<br />         (if (= wz0 ".00")<br />           (progn<br />             (setq wz1 (substr str 1 wz))<br />             (setq wz2 (substr str (+ wz 4)))<br />             (setq wz3 (strcat wz1 wz2))<br />             (vla-put-TextString (vlax-ename->vla-object ty) wz3)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

wzg356

取出末尾数字(自己搜)---然后atof---判断(= (fix a) a)--再转字符串连接

wuwubaibai

飞雪神光 发表于 2023-12-28 22:48
好吧 能凑成这样也是不容易

非常感谢大大~可以实现~~剩下我应该凑一凑就能把图层搞定了~~感谢您

wuwubaibai

wzg356 发表于 2023-12-28 22:48
取出末尾数字(自己搜)---然后atof---判断(= (fix a) a)--再转字符串连接

谢谢大大的提示~但其实已经搜很久了~对一个门外汉来说已经到极限了~只能求助了

wuwubaibai

飞雪神光 发表于 2023-12-28 22:48
好吧 能凑成这样也是不容易

大大抱歉再请问一下~.00解决了~图层我也改好了~
不过在
(princ)
)
前加上这句
(command "ERASE"(ssget '((0 . "TEXT,MTEXT")(-4 . "<NOT")(1 . "*上*UP*,*上*up*,*下*down*,*下*DOWN*")(-4 . "NOT>")))  "" )
~那我得再重选一次才能把其他的注释去除~能否只选一次就完成了呢?感谢您

成仔

wuwubaibai 发表于 2023-12-29 02:03
大大抱歉再请问一下~.00解决了~图层我也改好了~
不过在
(princ)

论坛上有选择集相减这个函数，选择后过滤一次就可以了吧

飞雪神光

wuwubaibai 发表于 2023-12-29 02:03
大大抱歉再请问一下~.00解决了~图层我也改好了~
不过在
(princ)

"(ssget  "X" '((0 . "TEXT,MTEXT")(-4 . "<NOT")(1 . "*上*UP*,*上*up*,*下*down*,*下*DOWN*")(-4 . "NOT>")))