新增修改标注内容功能

dmxcs

tssd就可以啊
但是这样干貌似不是个好习惯吧。。

xj6019

自己用 不是什么问题  只要不是初级底图   基本影响不大

muwind

;允许部分替换,可能出现想不到的结果
;比如会把替换400成200会把2400换成2200
(defun c:tt ( / ss edat getdim N m str1 str2)  
     (setq str1 (getstring "\n 请输入需要替换的尺寸：")
               str2 (getstring "\n 您想替换成什么？：")
                   m 0
         )
     (setq ss (ssget  "x"  (list (cons 0 "dim*"))));选择所有尺寸
     (repeat (setq N (sslength SS))
             (setq getdim (ssname ss (setq N (1- N))))
             (setq edat ( getdimtext getdim))
                         (if (vl-string-search str1 edat )
                            (progn
                               (setq edat (vl-string-subst str2 str1 edat))
                                   (entmod (subst (cons 1 edat) (assoc 1 (entget getdim))  (entget getdim) ))
                                   (setq m (1+ m))
                                )
                          )         
     );repeat
        (if (> m 0)
      (princ (strcat "共" (rtos m 2 0) "个尺寸替换完成"))
      (princ "我很努力了，但什么忙也没帮上")  
     )
         (princ)
)

1. ;全替换
   
2. (defun c:tt ( / ss edat getdim N m str1 str2)  
   
3.      (setq str1 (getstring "\n 请输入需要替换的尺寸数值：")
   
4.                str2 (getstring "\n 您想替换成什么？：")
   
5.                    m 0
   
6.          )
   
7.      (setq ss (ssget  "x"  (list (cons 0 "dim*"))));选择所有尺寸
   
8.      (repeat (setq N (sslength SS))
   
9.              (setq getdim (ssname ss (setq N (1- N))))
   
10.              (setq edat ( getdimtext getdim))
    
11.                          (if (= str1 edat )
    
12.                             (progn
    
13.                                    (entmod (subst (cons 1 str2) (assoc 1 (entget getdim))  (entget getdim) ))
    
14.                                    (setq m (1+ m))
    
15.                                 )
    
16.                           )         
    
17.      );repeat
    
18.         (if (> m 0)
    
19.       (princ (strcat "共" (rtos m 2 0) "个尺寸替换完成"))
    
20.       (princ "我很努力了，但什么忙也没帮上")  
    
21.      )
    
22.          (princ)
    
23. )

;全替换<br /> (defun c:tt ( / ss edat getdim N m str1 str2)  <br />      (setq str1 (getstring "\n 请输入需要替换的尺寸数值：")<br />                str2 (getstring "\n 您想替换成什么？：")<br />                    m 0<br />          )<br />      (setq ss (ssget  "x"  (list (cons 0 "dim*"))));选择所有尺寸<br />      (repeat (setq N (sslength SS))<br />              (setq getdim (ssname ss (setq N (1- N))))<br />              (setq edat ( getdimtext getdim))<br />                          (if (= str1 edat )<br />                             (progn<br />                                    (entmod (subst (cons 1 str2) (assoc 1 (entget getdim))  (entget getdim) ))<br />                                    (setq m (1+ m))<br />                                 )<br />                           )          <br />      );repeat<br />         (if (> m 0)<br />       (princ (strcat "共" (rtos m 2 0) "个尺寸替换完成"))<br />       (princ "我很努力了，但什么忙也没帮上")  <br />      )<br />          (princ)<br /> )

sunny_8848

muwind 发表于 2021-1-8 23:34
;允许部分替换,可能出现想不到的结果
;比如会把替换400成200会把2400换成2200
(defun c:tt ( / ss edat g ...

谢谢帮忙，现在可以替换原始标注内容了，能否麻烦您在全替换代码的基础上加上(也是全替换)纯文本的功能

guankuiwu

继续跟大师们学习。

muwind

sunny_8848 发表于 2021-1-9 07:57
谢谢帮忙，现在可以替换原始标注内容了，能否麻烦您在全替换代码的基础上加上(也是全替换)纯文本的功能

1. (defun c:tt ( / ss edat getssname getssdxf N m str1 str2 getsstype)  
   
2.      (setq ss (ssget  "x"  (list (cons 0 "dim*,*text"))));选择所有尺寸和文本
   
3.          (if ss
   
4.            (progn
   
5.                (setq str1 (getstring "\n 请输入需要替换的文本或数值：")
   
6.                  str2 (getstring "\n 您想替换成什么？：")
   
7.                  m 0   
   
8.                     )
   
9.            (repeat (setq N (sslength SS))
   
10.              (setq getssname(ssname ss (setq N (1- N)))
    
11.                       getssdxf(entget getssname)
    
12.                       getsstype(strcase (cdr (assoc 0 getssdxf))))
    
13.               (if (wcmatch getsstype "DIM*")
    
14.                    (setq edat ( getdimtext getssname))
    
15.                     (setq edat (cdr (assoc 1 getssdxf)))
    
16.                 )
    
17.              (if (= str1 edat )
    
18.                    (progn
    
19.                       (entmod (subst (cons 1 str2) (assoc 1 getssdxf)  getssdxf ))
    
20.                       (setq m (1+ m))
    
21.                    )
    
22.               )
    
23.          );repeat
    
24.            )
    
25.                  (princ "您的图纸很干净，木有尺寸也木有文本，我什么也做不了")
    
26.           )
    
27.       (if (> m 0)
    
28.          (princ (strcat "共" (rtos m 2 0) "个尺寸或者文本替换完成"))
    
29.          (princ "我很努力了，但什么忙也没帮上")  
    
30.      )
    
31.      (princ)
    
32. )
    

(defun c:tt ( / ss edat getssname getssdxf N m str1 str2 getsstype)  <br />      (setq ss (ssget  "x"  (list (cons 0 "dim*,*text"))));选择所有尺寸和文本<br />          (if ss<br />            (progn<br />                (setq str1 (getstring "\n 请输入需要替换的文本或数值：")<br />                  str2 (getstring "\n 您想替换成什么？：")<br />                  m 0   <br />                     )<br />            (repeat (setq N (sslength SS))<br />              (setq getssname(ssname ss (setq N (1- N)))<br />                       getssdxf(entget getssname)<br />                       getsstype(strcase (cdr (assoc 0 getssdxf))))<br />               (if (wcmatch getsstype "DIM*") <br />                    (setq edat ( getdimtext getssname))<br />                     (setq edat (cdr (assoc 1 getssdxf)))<br />                 )<br />              (if (= str1 edat )<br />                    (progn<br />                       (entmod (subst (cons 1 str2) (assoc 1 getssdxf)  getssdxf ))<br />                       (setq m (1+ m))<br />                    )<br />               )<br />          );repeat<br />            )<br />                  (princ "您的图纸很干净，木有尺寸也木有文本，我什么也做不了")<br />           )<br />       (if (> m 0)<br />          (princ (strcat "共" (rtos m 2 0) "个尺寸或者文本替换完成"))<br />          (princ "我很努力了，但什么忙也没帮上")  <br />      )<br />      (princ)<br /> )<br />

sunny_8848

muwind 发表于 2021-1-9 23:05

谢谢您的热心帮忙，效果很不错

依然小小鸟

sunny_8848 发表于 2021-1-11 07:54
谢谢您的热心帮忙，效果很不错

贱人工具箱的超级修改功能可以啊

sunny_8848

整合不了这个工具