将所有字段转换为文本

mbrandt5 · 发表于 2022-7-5 18:30:23


(defun C:R-FIELDS ( / del-field ss1 index item)
 (defun del-field (ent / edic)
   (if (setq edic (cdr (assoc 360 (entget ent))))
      (dictremove edic "ACAD_FIELD")
   )
 )
 (if (= (getvar "TILEMODE") 0)
   (progn
    (setvar "TILEMODE" 1)
    (command "REGEN")
   )
 )
 (if
   (setq ss1
     (ssget "X"
       (list (cons 0 "TEXT,MTEXT,MULTILEADER")
             (cons 67 0)
       )
     )
   )
   (progn
    (setq index 0)
    (repeat (sslength ss1)
      (setq item (ssname ss1 index))
      (if (del-field item) (entupd item))
      (setq index (+ 1 index))
    )
   )
 )
 (if 
  (setq ss1
    (ssget "X"
      (list (cons 0 "INSERT")
            (cons 67 0)
            (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))
      )
      (setq index (+ 1 index))
    )
  )
 )
 (princ)
)