自AutoCAD2004之后的版本，增加了一个字段命令，字段是包含说明的文字，这些说明用于显示可能会在图形生命周期中修改的数据，后续版本的图纸集也使用了字段功能来排序等等。
没有值的字段将显示连字符 (----)。 例如，在“图形特性”对话框中设置的“作者”字段可能为空。 无效字段将显示井号 (####)。 例如，“当前图纸名”字段仅在图纸空间中有效，将它放置到模型空间中则显示井号。
我们通常在编辑或分开某些含有字段的图形的时候，就会丢失字段链接对象，造成无效字段。
为了避免出现此类问题，可以通过转换为文字来解决，因此有了下面的lisp。
  3. ;将字段转换为文字.lsp
  4. ;modified by edata
  5. ;setupdata@qq.com
  6. ;2010年9月13日17:07:08
  7. (vl-load-com)
  8. (defun c:FLD2TXT (/ ss n bn an ad s)
  9.   (prompt
  10.     "请选择需要转换的对象(块,单行/多行文字,标注): "
  11.   )
  12.   (setq ss (ssget '((0 . "INSERT,MTEXT,DIMENSION,TEXT,MULTILEADER"))))
  13.   (setq n 0)
  14.   
  15.   (while (< n (sslength ss))
  16.     (setq bn (ssname ss n))
  17.     (setq ad (entget bn))
  18.     (cond
  19.       ((= "INSERT" (cdr (assoc 0 ad)))
  20.        (setq an (entnext bn))
  21.        (while (and an
  22.                    (setq ad (entget an))
  23.                    (= "ATTRIB" (cdr (assoc 0 ad)))
  24.               )
  25.          (setq s (cdr (assoc 1 ad)))
  26.          (entmod (list (assoc -1 ad) (cons 1 "")))
  27.          (entmod (list (assoc -1 ad) (cons 1 s)))
  28.          (entupd an)
  29.          (setq an (entnext an))
  30.        )
  31.       )
  32.       ((= "MULTILEADER" (cdr (assoc 0 ad)))
  33.        (setq ad (vlax-ename->vla-object bn)
  34.              s (vla-get-TextString ad)
  35.              )
  36.        (vla-put-TextString ad "")
  37.        (vla-put-TextString ad s)
  38.       )
  39.       ((= "MTEXT" (cdr (assoc 0 ad)))
  40.        (setq ad (vlax-ename->vla-object bn)
  41.              s (vla-get-TextString ad)
  42.              )
  43.        (vla-put-TextString ad "")
  44.        (vla-put-TextString ad s)
  45.       )
  46.       (t
  47.        (setq s (cdr (assoc 1 ad)))
  48.        (entmod (list (assoc -1 ad) (cons 1 "")))
  49.        (entmod (list (assoc -1 ad) (cons 1 s)))
  50.        (entupd an)
  51.       )
  52.     )
  53.     (setq n (1+ n))
  54.   )
  55.   (setq ss nil)
  56.   (gc)
  57.   (princ)
  58. )


网友答: 有一点小错误，我修正了一下
  1. ;;;将字段转换为文字.lsp;modified by edata;setupdata@qq.com;2010年9月13日17:07:08
  2. ;;;modified by yjtdkj---------------yjtdkj8156262@163.com-------------2022.07.01
  3. (vl-load-com)
  4. (defun c:FLD2TXT (/ ss n bn an ad s)
  5.   ;;;========更新图元组码===========================yjtdkj.2021.07======
  6. ;;;参数
  7. ;;;en      图元名
  8. ;;;number  群码代号(整数)
  9. ;;;content 更新后的新内容
  10. ;;;返回：无
  11. (defun put-dxf (en number content / en_data new-list old-list)
  12.   (setq en_data (entget en))
  13.   (setq old-list (assoc number en_data))
  14.   (setq new-list (cons number content))
  15.   (setq en_data (subst new-list old-list en_data))
  16.   (entmod en_data)
  17.   (entupd en)
  18. ) ;_ 结束defun
  19.   (prompt "请选择需要转换的对象(块,单行/多行文字,标注): ")
  20.   (setq ss (ssget '((0 . "INSERT,MTEXT,DIMENSION,TEXT,MULTILEADER"))))
  21.   (setq n 0)
  22.   (while (< n (sslength ss))
  23.     (setq bn (ssname ss n))
  24.     (setq ad (entget bn))
  25.     (cond ((= "INSERT" (cdr (assoc 0 ad)))
  26.      (setq an (entnext bn))
  27.      (while (and an
  28.            (setq ad (entget an))
  29.            (= "ATTRIB" (cdr (assoc 0 ad)))
  30.       )
  31.        (setq s (cdr (assoc 1 ad)))
  32.        (put-dxf an 1 "")
  33.        (put-dxf an 1 s)
  34.        ;(entmod (list (assoc -1 ad) (cons 1 "")))
  35.        ;(entmod (list (assoc -1 ad) (cons 1 s)))
  36.        ;(entupd an)
  37.        (setq an (entnext an))
  38.      )
  39.     )
  40.     ((= "MULTILEADER" (cdr (assoc 0 ad)))
  41.      (setq ad (vlax-ename->vla-object bn)
  42.      s  (vla-get-TextString ad)
  43.      )
  44.      (vla-put-TextString ad "")
  45.      (vla-put-TextString ad s)
  46.     )
  47.     ((= "MTEXT" (cdr (assoc 0 ad)))
  48.      (setq ad (vlax-ename->vla-object bn)
  49.      s  (vla-get-TextString ad)
  50.      )
  51.      (vla-put-TextString ad "")
  52.      (vla-put-TextString ad s)
  53.     )
  54.     ((= "DIMENSION" (cdr (assoc 0 ad)))
  55.      (setq ad (vlax-ename->vla-object bn)
  56.      s  (vla-get-TextOverride ad)
  57.      )
  58.      (vla-put-TextOverride ad "")
  59.      (vla-put-TextOverride ad s)
  60.     )
  61.     (t
  62.      (setq s (cdr (assoc 1 ad)))
  63.      (put-dxf bn 1 "")
  64.      (put-dxf bn 1 s)
  65.      ;(entmod (list (assoc -1 ad) (cons 1 "")))
  66.      ;(entmod (list (assoc -1 ad) (cons 1 s)))
  67.      ;(entupd ad)
  68.     )
  69.     )
  70.     (setq n (1+ n))
  71.   )
  72.   (setq ss nil)
  73.   (gc)
  74.   (princ)
  75. )



网友答: 在edata、yjtdkj和两位大神的代码的基础上让元宝AI做出修改，FLD2TXT_2命令后，直接将布局和模型内全部字段转换为普通文字，无需选择，一次命令全局处理完。感谢两位大佬的代码，这是非常实用的批量处理功能

网友答: 帮大忙了啊，500多张图打算复制黏贴来着，抱着试试的心态来找找居然找到了

网友答: 没看懂什么意思

网友答: 好东西，我配铝模板正好用上了。哈哈

网友答: 令: FLD2TXT 请选择需要转换的对象(块,单行/多行文字,标注):
选择对象: 指定对角点: 找到 6 个
选择对象:  ; 错误: 参数类型错误: lentityp nil
多选的时候出错了

网友答: 帮大忙了啊，500多张图打算复制黏贴来着，抱着试试的心态来找找居然找到了

网友答: 好像高版本   直接  X 炸开也可以

网友答: 常用字段功能才会碰到的困扰，顶一个！

网友答: 用了字段，分图会很困扰
  • 上一篇：（国外搬运）面积统计软件 Areatester
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025