[讨论]：编一个属性文字转单行文字

yjtdkj

我有时会遇到属性文字转单行文字情况，想编个程序，但不知道思路，请大家指教!!
或者编一个这样的程序：从块中COPY一个属性文字出来自动转为单行文字。

panzhongw

用attext提取属性后用TEXT写一遍

aidraft

(defun c:Gtext (/ el)
  (if (setq sel (nentsel "Select an attribute:"))
    (progn
      (setq el (entget (car sel)))
      (if (= (cdr (assoc 0 el)) "ATTRIB")
        (if
          (entmake (list
                     '(0 . "TEXT")
                     '(100 . "AcDbEntity")
                     (assoc 67 el)
                     '(410 . "Model")
                     (assoc 8 el)
                     '(100 . "AcDbText")
                     (assoc 10 el)
                     (assoc 40 el)
                     (assoc 1 el)
                     (assoc 50 el)
                     (assoc 41 el)
                     (assoc 51 el)
                     (assoc 7 el)
                     (assoc 71 el)
                     (assoc 72 el)
                     (assoc 11 el)
                     (assoc 210 el)
                     '(100 . "AcDbText")
                     (assoc 73 el)
                     ) ;list
                   ) ;entmake
           (princ "\nText created.")
           (princ "\nEntmake text failed.")
           )
        )
      )
    )
  (princ)
  )

狂刀

从组码中提取有用信息

zk_hisen

好好学习学习，可以用<code>
(setq ss (entsel))
  (setq dd (entget (car ss)))</code>来提取任何你想要的对象属性！

bloodtempt

谢谢分享1111