<求助>有关标注对象替换更新

AMTONNY

我有一程序需要如下功能，选择标注对象（一般为直径或者单径标注），将所选标注的内容更改为已经设置好了的内容，但我程序只对单行文字有效，对多行文字和标注文字无效，把过滤对象设为  (ssget '((0 . "DIMENSION")))或者  MTEXT 都不能成功更新，请各位高手出手相助，谢谢！


现程序对单行文本运行正常，

AMTONNY

怎么没有人出手呀？

AMTONNY

怎么没有那位大侠帮忙哦

AMTONNY

真不知此贴难度过大还是各位大侠很忙，放上不这么久也没有人能解决，难道这么点问题也没有人能做出来吗？

yshf

试试这个：

2. 
   
3. (defun C:jh ()
   
4.      (vl-load-com)
   
5.      (setq text_M5_A "5.00")
   
6.      (setq text_M5_B "5.0 孔 ( %%C5钻穿 )")
   
7.      (if (setq text_txt (ssget '((0 . "DIMENSION"))))
   
8.          (progn
   
9.             (setq index 0)
   
10.             (repeat (sslength text_txt)
    
11.                 (setq text_ent (ssname text_txt index)
    
12.                       Object   (vlax-ename->vla-object text_ent)
    
13.                       ObjectName (vla-get-ObjectName Object)
    
14.                 )
    
15.                 (if (= ObjectName "AcDbDiametricDimension") ;直径
    
16.                     (progn
    
17.                         (if (= (setq text_A (vla-get-TextOverride Object)) "")
    
18.                             (setq text_A (strcat "%%C" (rtos (vla-get-Measurement Object))))
    
19.                         )
    
20.                         (setq text_A_L (strlen text_A))        
    
21.                         (setq text_M5_AL (strlen text_M5_A))
    
22.                         (setq n 1)
    
23.                         (if (= text_M5_A "") (setq text_A_L 1))
    
24.                         (repeat text_A_L
    
25.                             (setq text_M5_Ax (substr text_A n text_M5_AL))
    
26.                             (if (= text_M5_Ax text_M5_A)
    
27.                                 (progn               
    
28.                                     (setq newsize (vl-string-subst text_M5_B text_M5_A text_A))
    
29.                                     (vla-put-TextOverride Object newsize)
    
30.                                     (vla-update Object)
    
31.                                )
    
32.                             )
    
33.                             (setq n (1+ n))
    
34.                         )
    
35.                     )
    
36.                 )
    
37.                 (setq index (+ 1 index))
    
38.                
    
39.                
    
40.             )
    
41.          )
    
42.      )
    
43.      (princ)
    
44. )
    

<br /> (defun C:jh ()<br />      (vl-load-com)<br />      (setq text_M5_A "5.00")<br />      (setq text_M5_B "5.0 孔 ( %%C5钻穿 )")<br />      (if (setq text_txt (ssget '((0 . "DIMENSION"))))<br />          (progn<br />             (setq index 0)<br />             (repeat (sslength text_txt)<br />                 (setq text_ent (ssname text_txt index)<br />                       Object   (vlax-ename->vla-object text_ent)<br />                       ObjectName (vla-get-ObjectName Object)<br />                 )<br />                 (if (= ObjectName "AcDbDiametricDimension") ;直径<br />                     (progn<br />                         (if (= (setq text_A (vla-get-TextOverride Object)) "")<br />                             (setq text_A (strcat "%%C" (rtos (vla-get-Measurement Object))))<br />                         )<br />                         (setq text_A_L (strlen text_A))        <br />                         (setq text_M5_AL (strlen text_M5_A)) <br />                         (setq n 1)<br />                         (if (= text_M5_A "") (setq text_A_L 1))<br />                         (repeat text_A_L<br />                             (setq text_M5_Ax (substr text_A n text_M5_AL))<br />                             (if (= text_M5_Ax text_M5_A)<br />                                 (progn                <br />                                     (setq newsize (vl-string-subst text_M5_B text_M5_A text_A))<br />                                     (vla-put-TextOverride Object newsize)<br />                                     (vla-update Object)<br />                                )<br />                             )<br />                             (setq n (1+ n))<br />                         )<br />                     )<br />                 )<br />                 (setq index (+ 1 index))<br />                 <br />                <br />             )<br />          )<br />      )<br />      (princ)<br /> )<br />

AMTONNY

谢谢楼上的帮忙，但我试了一下，发现不能正常运行，返回以下：
选择对象:  ; 错误: 此类型的 LISP 值不能强制转换成 VARIANT:  (1 . "%%C5.0 孔 (
%%C5钻穿 )00")，麻烦再帮忙看看，谢谢！

yshf

5楼已修改，请重试。

AMTONNY

谢谢楼上帮忙，已经达到要求了，非常感谢你