Convert Field to String

Free-Lancer

1. (defun C:CFTT (/ del-field index ss1 item)
   
2.   (vl-load-com)
   
3.   (defun del-field (ent / edic elist etype obj val)
   
4.     (if
   
5.       (and
   
6. (setq edic (cdr (assoc 360 (setq elist (entget ent)))))
   
7. (dictsearch edic "ACAD_FIELD")
   
8.       )     ;and
   
9.        (progn
   
10.   (setq obj   (vlax-ename->vla-object ent)
    
11.         etype (cdr (assoc 0 elist))
    
12.   )    ;setq
    
13.   (cond
    
14.     ((= etype "DIMENSION")
    
15.      (setq val (vla-get-textoverride obj))
    
16.      (dictremove edic "ACAD_FIELD")
    
17.      (vla-put-textoverride obj val)
    
18.     )
    
19.     ((= etype "MTEXT")
    
20.      (setq val (vla-get-textstring obj))
    
21.      (dictremove edic "ACAD_FIELD")
    
22.      (vla-put-textstring obj val)
    
23.     )
    
24.     (T (dictremove edic "ACAD_FIELD"))
    
25.   )    ;cond
    
26.        )    ;progn
    
27.     )     ;if
    
28.   )     ;defun
    
29. ;;;----------Convert all selected field text to plain text
    
30.   (if
    
31.     (setq ss1 (ssget (list (cons 0 "TEXT,MTEXT,MULTILEADER,DIMENSION")
    
32.       (cons 67 1)
    
33.        )
    
34.        )
    
35.     )
    
36.      (progn
    
37.        (setq index 0)
    
38.        (repeat (sslength ss1)
    
39.   (setq item (ssname ss1 index))
    
40.   (if (del-field item)
    
41.     (entupd item)
    
42.   )
    
43.   (setq index (+ 1 index))
    
44.        )    ;repeat
    
45.      )
    
46.      :progn
    
47.   )     ;if
    
48. ;;;----------Convert all field attributes in blocks to text attributes
    
49.   (if
    
50.     (setq ss1 (ssget (list (cons 0 "INSERT") (cons 67 1) (cons 66 1))))
    
51.      (progn
    
52.        (setq index 0)
    
53.        (repeat (sslength ss1)
    
54.   (setq item (ssname ss1 index))
    
55.   (while (= (cdr (assoc 0 (entget (setq item (entnext item)))))
    
56.      "ATTRIB"
    
57.   )
    
58.     (if (del-field item)
    
59.       (entupd item)
    
60.     )
    
61.   )    ;while
    
62.   (setq index (+ 1 index))
    
63.        )    ;repeat
    
64.      )     ;progn
    
65.   )     ;if
    
66.   (princ)
    
67. )     ;defun

(defun C:CFTT (/ del-field index ss1 item)<br />   (vl-load-com)<br />   (defun del-field (ent / edic elist etype obj val)<br />     (if<br />       (and<br /> (setq edic (cdr (assoc 360 (setq elist (entget ent)))))<br /> (dictsearch edic "ACAD_FIELD")<br />       )     ;and<br />        (progn<br />   (setq obj   (vlax-ename->vla-object ent)<br />         etype (cdr (assoc 0 elist))<br />   )    ;setq<br />   (cond<br />     ((= etype "DIMENSION")<br />      (setq val (vla-get-textoverride obj))<br />      (dictremove edic "ACAD_FIELD")<br />      (vla-put-textoverride obj val)<br />     )<br />     ((= etype "MTEXT")<br />      (setq val (vla-get-textstring obj))<br />      (dictremove edic "ACAD_FIELD")<br />      (vla-put-textstring obj val)<br />     )<br />     (T (dictremove edic "ACAD_FIELD"))<br />   )    ;cond<br />        )    ;progn<br />     )     ;if<br />   )     ;defun<br /> ;;;----------Convert all selected field text to plain text<br />   (if<br />     (setq ss1 (ssget (list (cons 0 "TEXT,MTEXT,MULTILEADER,DIMENSION")<br />       (cons 67 1)<br />        )<br />        )<br />     )<br />      (progn<br />        (setq index 0)<br />        (repeat (sslength ss1)<br />   (setq item (ssname ss1 index))<br />   (if (del-field item)<br />     (entupd item)<br />   )<br />   (setq index (+ 1 index))<br />        )    ;repeat<br />      )<br />      :progn<br />   )     ;if<br /> ;;;----------Convert all field attributes in blocks to text attributes<br />   (if<br />     (setq ss1 (ssget (list (cons 0 "INSERT") (cons 67 1) (cons 66 1))))<br />      (progn<br />        (setq index 0)<br />        (repeat (sslength ss1)<br />   (setq item (ssname ss1 index))<br />   (while (= (cdr (assoc 0 (entget (setq item (entnext item)))))<br />      "ATTRIB"<br />   )<br />     (if (del-field item)<br />       (entupd item)<br />     )<br />   )    ;while<br />   (setq index (+ 1 index))<br />        )    ;repeat<br />      )     ;progn<br />   )     ;if<br />   (princ)<br /> )     ;defun

newer

API里面也有了 xdrx_text_fieldToText, xdrx_text_removeField

Free-Lancer

newer 发表于 2013-8-21 21:02
API里面也有了 xdrx_text_fieldToText, xdrx_text_removeField

API 的可以用于 Dimension Mtext Attrib 吗?

newer

Free-Lancer 发表于 2013-8-22 09:12
API 的可以用于 Dimension Mtext Attrib 吗?

查了下带field的API，

现在有：
xdrx_attrib_fieldLength
xdrx_table_FieldId
xdrx_table_SetFieldId
xdrx_text_FieldToText
xdrx_text_removeField

Free-Lancer

newer 发表于 2013-8-22 09:25
查了下带field的API，

现在有：

这个查询有吗?
_$ (vla-fieldcode (vlax-ename->vla-object (entlast)))
"%<\\AcObjProp Object(%<\\_ObjId 2129684384>%).Length \\f \"%lu2%pr0\">%"
_$