Convert Field to String

Free-Lancer · 发表于 2013-8-21 20:17:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

newer · 发表于 2013-8-21 21:02:56

API里面也有了 xdrx_text_fieldToText, xdrx_text_removeField

Free-Lancer · 发表于 2013-8-22 09:12:33

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

API 的可以用于 Dimension Mtext Attrib 吗?

newer · 发表于 2013-8-22 09:25:56

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 · 发表于 2013-8-22 09:32:09

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

现在有：

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

账号		自动登录	找回密码
密码			立即注册

[他山之石] Convert Field to String

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评