Field Code - Lee Mac

Free-Lancer

1. ;; Field Code  -  Lee Mac
   
2. ;; Returns the field expression associated with an entity
   
3. (defun LM:fieldcode ( ent / replacefield replaceobject enx )
   
4.     (defun replacefield ( str enx / ent fld pos )
   
5.         (if (setq pos (vl-string-search "\\_FldIdx" (setq str (replaceobject str enx))))
   
6.             (progn
   
7.                 (setq ent (assoc 360 enx)
   
8.                       fld (entget (cdr ent))
   
9.                 )
   
10.                 (strcat
    
11.                     (substr str 1 pos)
    
12.                     (replacefield (cdr (assoc 2 fld)) fld)
    
13.                     (replacefield (substr str (1+ (vl-string-search ">%" str pos))) (cdr (member ent enx)))
    
14.                 )
    
15.             )
    
16.             str
    
17.         )
    
18.     )
    
19.     (defun replaceobject ( str enx / ent pos )
    
20.         (if (setq pos (vl-string-search "ObjIdx" str))
    
21.             (strcat
    
22.                 (substr str 1 (+ pos 5)) " "
    
23.                 (LM:ObjectID (vlax-ename->vla-object (cdr (setq ent (assoc 331 enx)))))
    
24.                 (replaceobject (substr str (1+ (vl-string-search ">%" str pos))) (cdr (member ent enx)))
    
25.             )
    
26.             str
    
27.         )
    
28.     )
    
29.    
    
30.     (if
    
31.         (and
    
32.             (wcmatch  (cdr (assoc 0 (setq enx (entget ent)))) "TEXT,MTEXT,ATTRIB,MULTILEADER,*DIMENSION")
    
33.             (setq enx (cdr (assoc 360 enx)))
    
34.             (setq enx (dictsearch enx "ACAD_FIELD"))
    
35.             (setq enx (dictsearch (cdr (assoc -1 enx)) "TEXT"))
    
36.         )
    
37.         (replacefield (cdr (assoc 2 enx)) enx)
    
38.     )
    
39. )
    
40. ;; ObjectID  -  Lee Mac
    
41. ;; Returns a string containing the ObjectID of a supplied VLA-Object
    
42. ;; Compatible with 32-bit & 64-bit systems
    
43. (defun LM:ObjectID ( obj )
    
44.     (eval
    
45.         (list 'defun 'LM:ObjectID '( obj )
    
46.             (if
    
47.                 (and
    
48.                     (vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))
    
49.                     (vlax-method-applicable-p (vla-get-utility (LM:acdoc)) 'getobjectidstring)
    
50.                 )
    
51.                 (list 'vla-getobjectidstring (vla-get-utility (LM:acdoc)) 'obj ':vlax-false)
    
52.                '(itoa (vla-get-objectid obj))
    
53.             )
    
54.         )
    
55.     )
    
56.     (LM:ObjectID obj)
    
57. )
    
58. ;; Active Document  -  Lee Mac
    
59. ;; Returns the VLA Active Document Object
    
60. (defun LM:acdoc nil
    
61.     (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
    
62.     (LM:acdoc)
    
63. )

;; Field Code  -  Lee Mac<br /> ;; Returns the field expression associated with an entity<br /> (defun LM:fieldcode ( ent / replacefield replaceobject enx )<br />     (defun replacefield ( str enx / ent fld pos )<br />         (if (setq pos (vl-string-search "\\_FldIdx" (setq str (replaceobject str enx))))<br />             (progn<br />                 (setq ent (assoc 360 enx)<br />                       fld (entget (cdr ent))<br />                 )<br />                 (strcat<br />                     (substr str 1 pos)<br />                     (replacefield (cdr (assoc 2 fld)) fld)<br />                     (replacefield (substr str (1+ (vl-string-search ">%" str pos))) (cdr (member ent enx)))<br />                 )<br />             )<br />             str<br />         )<br />     )<br />     (defun replaceobject ( str enx / ent pos )<br />         (if (setq pos (vl-string-search "ObjIdx" str))<br />             (strcat<br />                 (substr str 1 (+ pos 5)) " "<br />                 (LM:ObjectID (vlax-ename->vla-object (cdr (setq ent (assoc 331 enx)))))<br />                 (replaceobject (substr str (1+ (vl-string-search ">%" str pos))) (cdr (member ent enx)))<br />             )<br />             str<br />         )<br />     )<br />     <br />     (if<br />         (and<br />             (wcmatch  (cdr (assoc 0 (setq enx (entget ent)))) "TEXT,MTEXT,ATTRIB,MULTILEADER,*DIMENSION")<br />             (setq enx (cdr (assoc 360 enx)))<br />             (setq enx (dictsearch enx "ACAD_FIELD"))<br />             (setq enx (dictsearch (cdr (assoc -1 enx)) "TEXT"))<br />         )<br />         (replacefield (cdr (assoc 2 enx)) enx)<br />     )<br /> )<br /> ;; ObjectID  -  Lee Mac<br /> ;; Returns a string containing the ObjectID of a supplied VLA-Object<br /> ;; Compatible with 32-bit & 64-bit systems<br /> (defun LM:ObjectID ( obj )<br />     (eval<br />         (list 'defun 'LM:ObjectID '( obj )<br />             (if<br />                 (and<br />                     (vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))<br />                     (vlax-method-applicable-p (vla-get-utility (LM:acdoc)) 'getobjectidstring)<br />                 )<br />                 (list 'vla-getobjectidstring (vla-get-utility (LM:acdoc)) 'obj ':vlax-false)<br />                '(itoa (vla-get-objectid obj))<br />             )<br />         )<br />     )<br />     (LM:ObjectID obj)<br /> )<br /> ;; Active Document  -  Lee Mac<br /> ;; Returns the VLA Active Document Object<br /> (defun LM:acdoc nil<br />     (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))<br />     (LM:acdoc)<br /> )

newer

这个field是怎么添加到实体上的？

Free-Lancer

newer 发表于 2013-8-22 10:34
这个field是怎么添加到实体上的？

对 Text Mtext 用 TextString 就自动解析了, Attrib 好像也是这样, 这个格式自动解释为 Field