请教：一个文字根据另一个文字的后两位自动更换内容

fengche1915@

    有上下两行文字，下行文字的后两位是数字，可能是01至15，现在我想实现上面的文字根据下面文字后两位自动更新

比如说：下面文字后两位是 04，时候，上面文字内容为：甲方；
             下面文字后两位是 05，时候，上面文字内容为：乙方；
             下面文字后两位是 05，时候，上面文字内容为：今天上班；
              ........
如何实现这种情况；好像有说可以使用lisp，但是需要每次点击一个更新一次；

夏生生

最好的办法是反应器，给你个笨办法，按自己的需求去改吧

1. (defun c:tt  (/ en en1 ent lst n pt1 pt2 ss ss1)
   
2. (setq lst '(("2-D0101-04" . "甲方")
   
3.        ("2-D0101-05" . "乙方")
   
4.        ("2-D0101-06" . "今天上班"))
   
5.        ss  (ssget '((0 . "text") (1 . "*-*-*"))))
   
6. (repeat (setq n (sslength ss))
   
7.   (setq en (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
   
8.   (vla-getboundingbox en 'pt1 'pt2)
   
9.   (setq  pt1 (mapcar '+ '(0 600 0) (vlax-safearray->list pt1))
   
10.   pt2 (mapcar '+ '(0 600 0) (vlax-safearray->list pt2)))
    
11.   (setq ss1 (ssget "c" pt1 pt2 '((0 . "text"))))
    
12.   (if ss1
    
13.    (progn (setq  en1 (ssname ss1 0)
    
14.     ent (entget en1))
    
15.     (entmod
    
16.      (subst (cons 1 (cdr (assoc (vla-get-textstring en) lst)))
    
17.       (assoc 1 ent)
    
18.       ent)))
    
19.    (progn (vla-move (setq en1 (vla-copy en))
    
20.         (vlax-3d-point '(0 0 0))
    
21.         (vlax-3d-point '(0 600 0)))
    
22.     (vla-put-textstring en1
    
23.             (cdr (assoc (vla-get-textstring en) lst)))))
    
24.   )
    
25. (princ))

(defun c:tt  (/ en en1 ent lst n pt1 pt2 ss ss1)<br /> (setq lst '(("2-D0101-04" . "甲方")<br />        ("2-D0101-05" . "乙方")<br />        ("2-D0101-06" . "今天上班"))<br />        ss  (ssget '((0 . "text") (1 . "*-*-*"))))<br /> (repeat (setq n (sslength ss))<br />   (setq en (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />   (vla-getboundingbox en 'pt1 'pt2)<br />   (setq  pt1 (mapcar '+ '(0 600 0) (vlax-safearray->list pt1))<br />   pt2 (mapcar '+ '(0 600 0) (vlax-safearray->list pt2)))<br />   (setq ss1 (ssget "c" pt1 pt2 '((0 . "text"))))<br />   (if ss1<br />    (progn (setq  en1 (ssname ss1 0)<br />     ent (entget en1))<br />     (entmod<br />      (subst (cons 1 (cdr (assoc (vla-get-textstring en) lst)))<br />       (assoc 1 ent)<br />       ent)))<br />    (progn (vla-move (setq en1 (vla-copy en))<br />         (vlax-3d-point '(0 0 0))<br />         (vlax-3d-point '(0 600 0)))<br />     (vla-put-textstring en1<br />             (cdr (assoc (vla-get-textstring en) lst)))))<br />   )<br /> (princ))

tranque

属性块，然后块表？

fengche1915@

夏生生 发表于 2025-4-28 10:34
最好的办法是反应器，给你个笨办法，按自己的需求去改吧

CAD反应器还没用过，是不是2014的都还没有反应器啊；

fengche1915@

这种方法是不是如果我改变了-04为 -05，是不是又要重新运行下；