快速修改标注数字

huxu823

源码是在论坛里找到的，只能将标注的数字改为固定内容“现场实测”，请教能否将代码稍作修改，改为可以将标注数字改为自己输入的任意内容呢？

(defun c:dimt( / ss s0 ent0 ss-num)
     (if (not dimtext)(setq dimtext "现场实测"))
     (prompt (strcat"请选取尺寸标注[替代文字:" dimtext "][回车设置]"))
     (setq ss (ssget '((0 . "DIMENSION"))))
     (if ss
          (progn
          (setq ss-num (sslength ss))
          (while (>= ss-num 1)
                 (setq s0 (ssname ss 0))
                 (setq ent0 (entget s0))
                 (setq ent0 (subst (cons 1 dimtext)(assoc 1 ent0)ent0))
                 (entmod ent0)
                 (setq ss (ssdel s0 ss))
                 (setq ss-num(sslength ss))
            );end of while
          );progn
           (progn
             (setq dimtext_saved dimtext)
             (setq dimtext(getstring (strcat "\n请输入替代文字[" dimtext "]:")))
             (if (= dimtext "")(setq dimtext dimtext_saved)(setq dimtext_saved dimtext))
             (c:dimt)
             );progn
     );if
);defun

qmqyqj

回车不就行了

huxu823

qmqyqj 发表于 2021-1-12 15:08
回车不就行了

回车就改成了“现场实测”:o

qmqyqj

huxu823 发表于 2021-1-12 16:39
回车就改成了“现场实测”

2. (defun c:dimt( / ss s0 ent0 ss-num)
   
3.      (setq dimtext (getstring "\n请输入替代文字:"))
   
4.      (prompt (strcat"请选取尺寸标注[替代文字:" dimtext "][回车设置]"))
   
5.      (setq ss (ssget '((0 . "DIMENSION"))))
   
6.      (if ss
   
7.           (progn
   
8.           (setq ss-num (sslength ss))
   
9.           (while (>= ss-num 1)
   
10.                  (setq s0 (ssname ss 0))
    
11.                  (setq ent0 (entget s0))
    
12.                  (setq ent0 (subst (cons 1 dimtext)(assoc 1 ent0)ent0))
    
13.                  (entmod ent0)
    
14.                  (setq ss (ssdel s0 ss))
    
15.                  (setq ss-num(sslength ss))
    
16.             );end of while
    
17.           );progn
    
18.            (progn
    
19.              (setq dimtext_saved dimtext)
    
20.              (setq dimtext(getstring (strcat "\n请输入替代文字[" dimtext "]:")))
    
21.              (if (= dimtext "")(setq dimtext dimtext_saved)(setq dimtext_saved dimtext))
    
22.              (c:dimt)
    
23.              )
    
24.      )
    
25. )

(defun c:dimt( / ss s0 ent0 ss-num)<br />      (setq dimtext (getstring "\n请输入替代文字:"))<br />      (prompt (strcat"请选取尺寸标注[替代文字:" dimtext "][回车设置]"))<br />      (setq ss (ssget '((0 . "DIMENSION"))))<br />      (if ss<br />           (progn<br />           (setq ss-num (sslength ss))<br />           (while (>= ss-num 1)<br />                  (setq s0 (ssname ss 0))<br />                  (setq ent0 (entget s0))<br />                  (setq ent0 (subst (cons 1 dimtext)(assoc 1 ent0)ent0))<br />                  (entmod ent0)<br />                  (setq ss (ssdel s0 ss))<br />                  (setq ss-num(sslength ss))<br />             );end of while<br />           );progn<br />            (progn<br />              (setq dimtext_saved dimtext)<br />              (setq dimtext(getstring (strcat "\n请输入替代文字[" dimtext "]:")))<br />              (if (= dimtext "")(setq dimtext dimtext_saved)(setq dimtext_saved dimtext))<br />              (c:dimt)<br />              )<br />      )<br /> )

huxu823

qmqyqj 发表于 2021-1-12 17:28

非常感谢

fxlt619

能支持天正标注吗？

对往事说

qmqyqj 发表于 2021-1-12 17:28

修改后很不错，但是可以设置为记忆上次输入的字符吗；后续再次使用时候，每次都需要输入还是有点很麻烦；

上善若水！@#

能不能改成把‘=’后面的字改成固定数值啊