[LISP程序]：字段(FIELD)的添加及取消

mmmm

使用字段，直接附加文本1的内容到文本2，支持块内属性。
通过点取，直接将字段转换成普通文本，包括块内属性。

2. 
   
3. (Defun c:AddCField (/ src tar)
   
4.   (if (and (setq src (nentselp "\n Please pick the source annotation {Text or Attribute} [Exit]:"))
   
5.            (setq src (vlax-ename->vla-object (car src)))
   
6.            (vlax-property-available-p src "TextString")
   
7.            (null (redraw (vlax-vla-object->ename src) 3))
   
8.       )
   
9.     (while (and        (setq tar (nentselp "\n Please pick the attached annotation {Text or Attribute} [Exit]:"))
   
10.                 (setq tar (vlax-ename->vla-object (car tar)))
    
11.                 (vlax-property-available-p tar "TextString")
    
12.            )
    
13.       (vla-put-textstring tar "AddCField")
    
14.       (vla-put-textstring
    
15.         tar
    
16.         (strcat        "%<\\AcObjProp Object(%<\\_ObjId "
    
17.                 (rtos (vla-get-objectid src) 2 0)
    
18.                 ">%).TextString>%"
    
19.         )
    
20.       )
    
21.       (command "_.Regen")
    
22.     )
    
23.   )
    
24. )
    
25. (Defun c:DelCField (/ tar txt)
    
26.   (while
    
27.     (and (setq tar (nentselp "\n Please pick the annotation to remove the field [Exit]:"))
    
28.          (setq tar (vlax-ename->vla-object (car tar)))
    
29.          (vlax-property-available-p tar "TextString")
    
30.          (setq txt (vla-get-textstring tar))
    
31.     )
    
32.      (vla-put-textstring tar "DelCField")
    
33.      (vla-put-textstring tar txt)
    
34.   )
    
35. )
    

<br /> (Defun c:AddCField (/ src tar)<br />   (if (and (setq src (nentselp "\n Please pick the source annotation {Text or Attribute} [Exit]:"))<br />            (setq src (vlax-ename->vla-object (car src)))<br />            (vlax-property-available-p src "TextString")<br />            (null (redraw (vlax-vla-object->ename src) 3))<br />       )<br />     (while (and        (setq tar (nentselp "\n Please pick the attached annotation {Text or Attribute} [Exit]:"))<br />                 (setq tar (vlax-ename->vla-object (car tar)))<br />                 (vlax-property-available-p tar "TextString")<br />            )<br />       (vla-put-textstring tar "AddCField")<br />       (vla-put-textstring<br />         tar<br />         (strcat        "%<\\AcObjProp Object(%<\\_ObjId "<br />                 (rtos (vla-get-objectid src) 2 0)<br />                 ">%).TextString>%"<br />         )<br />       )<br />       (command "_.Regen")<br />     )<br />   )<br /> )<br /> (Defun c:DelCField (/ tar txt)<br />   (while<br />     (and (setq tar (nentselp "\n Please pick the annotation to remove the field [Exit]:"))<br />          (setq tar (vlax-ename->vla-object (car tar)))<br />          (vlax-property-available-p tar "TextString")<br />          (setq txt (vla-get-textstring tar))<br />     )<br />      (vla-put-textstring tar "DelCField")<br />      (vla-put-textstring tar txt)<br />   )<br /> )<br />

因网络问题重复发的请斑竹删除：
http://www.xdcad.net/forum/showthread.php?s=&threadid=621814

SHUNDocker

感谢楼主，为啥添加字段是###呢