图框文字偏移不进块编辑如何恢复？

87282374

图框块内普通单行文字因字体替换的原因，如图1出格子了，将其字体改回原初始字体后，不能恢复到如图2.但只要进入一下块编辑不调整任何，保存块修改就可以了。请路过的看看，有没有不进块编辑的好.
办法？

嘒彼小星

命令rea了解一下

Bao_lai

attsyn 试试

ludaweb

经测试，按照楼上两位大神的思路可行，单行文本重新赋值一下再重生成就好了，多行文本未测试。

2. (defun c:tt( / blocks ent ename)
   
3.         (setq blocks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
   
4.         (setq ent (car (entsel  "\n选择块进行文字复位。")))
   
5.         (if (= (cdr (assoc 0 (entget ent))) "INSERT")
   
6.                 (progn
   
7.                         (setq ename (strcase (cdr (assoc 2 (entget ent)))))
   
8.                         (vl-cmdf "_attsync" "s" ent "y")
   
9.                         (vlax-for obj (vla-item blocks ename)
   
10.                                 (if (wcmatch (vla-get-objectname obj) "AcDbText")
    
11.                                         (vla-put-textstring obj (vlax-get obj 'TextString))
    
12.                                 )
    
13.                         )
    
14.                         (vl-cmdf "_regenall")
    
15.                 )
    
16.                 (princ "\n未选中块")
    
17.         )
    
18.         (princ)
    
19. )
    
20. (vl-load-com)
    
21. (princ "\n程序加载完成")
    
22. (princ)

(defun c:tt( / blocks ent ename)<br />         (setq blocks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))<br />         (setq ent (car (entsel  "\n选择块进行文字复位。")))<br />         (if (= (cdr (assoc 0 (entget ent))) "INSERT")<br />                 (progn<br />                         (setq ename (strcase (cdr (assoc 2 (entget ent)))))<br />                         (vl-cmdf "_attsync" "s" ent "y")<br />                         (vlax-for obj (vla-item blocks ename)<br />                                 (if (wcmatch (vla-get-objectname obj) "AcDbText")<br />                                         (vla-put-textstring obj (vlax-get obj 'TextString))<br />                                 )<br />                         )<br />                         (vl-cmdf "_regenall")<br />                 )<br />                 (princ "\n未选中块")<br />         )<br />         (princ)<br /> )<br /> (vl-load-com)<br /> (princ "\n程序加载完成")<br /> (princ)

自贡黄明儒

主要是没有更新。关闭重新打开，估计就更新了。或者(entupd(car(entsel)))一下

87282374

谢谢，我试试

e2002

这个问题存在比较久了，至今没解决。

kozmosovia

不用bedit，可以试下wblock blockname=dwg name。然后再insert  blockname=dwg name，手动比较繁琐，估计要编程了，写代码的话，可能也可以试一下遍历修改块定义里相应文本的内容，先都改成abcd，再全部改回来，实现文本的更新。

你有种再说一遍

遍历块表记录内全部文字,平移0,此时会触发重新绘制.

qjg_77

battman这个命令试下