如何点击文字直接把块改成所选文字名

juliana207

文字最好Text 和Mtext 都可以

xyp1964

1. (defun c:tt ()
   
2.   (defun dxf (code e) (cdr (assoc code (entget e))))
   
3.   (setq        s1 (car (entsel "\n选择文字对象: "))
   
4.         t1 (DXF 1 s1)
   
5.         s2 (car (entsel "\n选择图块: "))
   
6.         t2 (DXF 2 s2)
   
7.   )
   
8.   (command "rename" "b" t2 t1)
   
9.   (princ)
   
10. )
    

(defun c:tt ()<br />   (defun dxf (code e) (cdr (assoc code (entget e))))<br />   (setq        s1 (car (entsel "\n选择文字对象: "))<br />         t1 (DXF 1 s1)<br />         s2 (car (entsel "\n选择图块: "))<br />         t2 (DXF 2 s2)<br />   )<br />   (command "rename" "b" t2 t1)<br />   (princ)<br /> )<br />

gaics

(defun c:tt (/ text blk)
  (vl-load-com)
  (setq text (vlax-ename->vla-object (car (entsel "\n选择文字对象："))))
  (setq blk (vlax-ename->vla-object (car (entsel "\n选择块："))))
  (setq text (vla-get-textstring text))
  (setq blk (vla-get-EffectiveName blk))
  (command "rename" "b" blk text)
  (princ)
)

juliana207

解决了 谢谢大家了.

榨菜人生

xyp1964 发表于 2022-3-31 09:50

谢谢大佬的分享666