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

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，是不是又要重新运行下；

tryhi

1. (defun c:tt ()
   
2.   (Defun Rtest (obj1 obj2 a)
   
3.                 (setq en2 (HandEnt (VLR-Data obj2)))
   
4.                 (setq new1 (cdr (assoc 1 (entget (vlax-vla-object->ename obj1) ))))
   
5.                 (setq new
   
6.                         (cond ((wcmatch new1 "*04")"甲方")
   
7.                                 ((wcmatch new1 "*05")"乙方")
   
8.                                 ((wcmatch new1 "*06")"今天上班")
   
9.                                 (t"下班了")
   
10.                         )
    
11.                 )
    
12.                 (setq ent (entget en2))
    
13.                 (entmod (subst (cons 1 new) (assoc 1 ent) ent))
    
14.   )
    
15.   (setq        s1  (car (entsel "\n请选择文本1: "))
    
16.                 obj (vlax-ename->vla-object s1)
    
17.                 s2  (car (entsel "\n请选择文本2: "))
    
18.   )
    
19.   (vlr-object-reactor
    
20.                 (list obj);触发对象
    
21.                 (cdr (assoc 5 (entget s2 )));被修改图元句柄
    
22.                 '((:vlr-modified . rtest)));触发函数
    
23.   (princ)
    
24. )
    
25. (princ"\n文字关联反应器")(princ)

(defun c:tt ()<br />   (Defun Rtest (obj1 obj2 a)<br />                 (setq en2 (HandEnt (VLR-Data obj2)))<br />                 (setq new1 (cdr (assoc 1 (entget (vlax-vla-object->ename obj1) ))))<br />                 (setq new <br />                         (cond ((wcmatch new1 "*04")"甲方")<br />                                 ((wcmatch new1 "*05")"乙方")<br />                                 ((wcmatch new1 "*06")"今天上班")<br />                                 (t"下班了")<br />                         )<br />                 )<br />                 (setq ent (entget en2))<br />                 (entmod (subst (cons 1 new) (assoc 1 ent) ent))<br />   )<br />   (setq        s1  (car (entsel "\n请选择文本1: "))<br />                 obj (vlax-ename->vla-object s1)<br />                 s2  (car (entsel "\n请选择文本2: "))<br />   )<br />   (vlr-object-reactor <br />                 (list obj);触发对象<br />                 (cdr (assoc 5 (entget s2 )));被修改图元句柄<br />                 '((:vlr-modified . rtest)));触发函数<br />   (princ)<br /> )<br /> (princ"\n文字关联反应器")(princ)