字段（Feild）转TEXT

marting

1. ;; Delete fields from selected text and mtext objects.
   
2. ;; Requires 2005 or later.
   
3. ;; Joe Burke - 12/7/2007
   
4. (defun c:FITOTXT (/ *error* doc i ss obj str)
   
5.   (defun *error* (msg)
   
6.     (cond
   
7.       ((not msg))
   
8.       ((wcmatch (strcase msg) "*QUIT*,*CANCEL*"))
   
9.       (T
   
10.         (princ (strcat "\nError: " msg))
    
11.       )
    
12.     )
    
13.     (vla-EndUndoMark doc)
    
14.     (princ)
    
15.   )                                       ; end error
    
16.   (if (not (>= (atof (getvar "AcadVer")) 15.0))
    
17.     (progn
    
18.       (princ "\nRequires 2005 or later. Exiting... ")
    
19.       (exit)
    
20.     )
    
21.   )
    
22.   (vl-load-com)
    
23.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
    
24.   (vla-StartUndoMark doc)
    
25.   (setq i 0)
    
26.   (if (setq ss (ssget ":L" '((0 . "TEXT,MTEXT"))))
    
27.     (repeat (sslength ss)
    
28.       (setq obj (vlax-ename->vla-object (ssname ss i))
    
29.             str (vlax-get obj 'TextString)
    
30.       )
    
31.       (if (not (eq str (vla-FieldCode obj)))
    
32.         (progn
    
33.           (vlax-put obj 'TextString " ")
    
34.           (vlax-put obj 'TextString str)
    
35.         )
    
36.       )
    
37.       (setq i (1+ i))
    
38.     )
    
39.   )
    
40.   (*error* nil)
    
41. )
    
42. ;end
    

;; Delete fields from selected text and mtext objects.<br /> ;; Requires 2005 or later.<br /> ;; Joe Burke - 12/7/2007<br /> (defun c:FITOTXT (/ *error* doc i ss obj str)<br />   (defun *error* (msg)<br />     (cond<br />       ((not msg))<br />       ((wcmatch (strcase msg) "*QUIT*,*CANCEL*"))<br />       (T<br />         (princ (strcat "\nError: " msg))<br />       )<br />     )<br />     (vla-EndUndoMark doc)<br />     (princ)<br />   )                                       ; end error<br />   (if (not (>= (atof (getvar "AcadVer")) 15.0))<br />     (progn<br />       (princ "\nRequires 2005 or later. Exiting... ")<br />       (exit)<br />     )<br />   )<br />   (vl-load-com)<br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (vla-StartUndoMark doc)<br />   (setq i 0)<br />   (if (setq ss (ssget ":L" '((0 . "TEXT,MTEXT"))))<br />     (repeat (sslength ss)<br />       (setq obj (vlax-ename->vla-object (ssname ss i))<br />             str (vlax-get obj 'TextString)<br />       )<br />       (if (not (eq str (vla-FieldCode obj)))<br />         (progn<br />           (vlax-put obj 'TextString " ")<br />           (vlax-put obj 'TextString str)<br />         )<br />       )<br />       (setq i (1+ i))<br />     )<br />   )<br />   (*error* nil)<br /> )<br /> ;end<br />

kqqt6236

什么是字段？