更改块内标注没有反应，实际已经更改了

zdqwy19

使用下面这段代码更改块标注文字颜色没有反应

2. (defun c:testdim ( / a x)
   
3.   (setq a (car (entsel)))
   
4.   (setq a (vlax-ename->vla-object b))
   
5.   (setq a (vla-get-name a))
   
6.   (vlax-for x
   
7.     (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object))) a)
   
8.     (if (= (vla-get-objectname x) "AcDbRotatedDimension")
   
9.       (progn
   
10.   (vla-put-textfill x :vlax-true)
    
11.   (vla-put-textfillcolor x acGreen)
    
12.   )
    
13.       )
    
14.     )
    
15.   )

(defun c:testdim ( / a x)<br />   (setq a (car (entsel)))<br />   (setq a (vlax-ename->vla-object b))<br />   (setq a (vla-get-name a))<br />   (vlax-for x<br />     (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object))) a)<br />     (if (= (vla-get-objectname x) "AcDbRotatedDimension")<br />       (progn<br />   (vla-put-textfill x :vlax-true)<br />   (vla-put-textfillcolor x acGreen)<br />   )<br />       )<br />     )<br />   )

但是如果把代码稍作更改，比如改为直线改为红色，却又运行正常

2. (defun c:testline ( / a x)
   
3.   (setq a (car (entsel)))
   
4.   (setq a (vlax-ename->vla-object a))
   
5.   (setq a (vla-get-name a))
   
6.   (vlax-for x
   
7.     (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object))) a)
   
8.     (if (= (vla-get-objectname x) "AcDbLine")
   
9.       (vla-put-color x acRed);直线改为红色
   
10.     )
    
11.   )
    
12. )

(defun c:testline ( / a x)<br />   (setq a (car (entsel)))<br />   (setq a (vlax-ename->vla-object a))<br />   (setq a (vla-get-name a))<br />   (vlax-for x<br />     (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object))) a)<br />     (if (= (vla-get-objectname x) "AcDbLine")<br />       (vla-put-color x acRed);直线改为红色<br />     )<br />   )<br /> )

关键是标注已经更改了，块内不刷新，炸开了反而显示了，百思不得其解？

iLisp

command regen
更新引用显示

zdqwy19

iLisp 发表于 2015-11-9 21:51
command regen
更新引用显示

已经试过了，没有作用

csharp

目前发现只有双击进入位编辑状态，双击一下标注文字，保存后即可更新，也许这是一个 Bug

zdqwy19

原想写一个块内标注检查的lsp，结果卡在了这里。

liuyun242

同修改块内属性对象一样，需要重新插块

zdqwy19

csharp 说得对双击编辑保存就可以了。

xinxirong

move一下，再移回去