求更改属性块里面值的数据

SeanX

请问下各位大佬，如何更改属性块里面的值？我用文字是可以更改，但是用属性块的话就不会了，不是改块的名称，而是改块里面的值以下是用改文字的，怎么修改才能改块里面的值？

(defun c:FF();;文字修改
      (setvar "cmdecho" 0)
      (princ "\n选择文字:")
      (setq ss (ssget))
      (setq e1 (strcat "输入缩写:"))
      (setq txt (getstring e1))
      (if (= txt "")(setq p2  "SG-1"))
      (if (= txt "S1")(setq p2  "SG-1"))
      (if (= txt "S2")(setq p2  "SG-2"))
      (if (= txt "S3")(setq p2  "SG-3"))
      (if (= txt "S4")(setq p2  "SG-4"))
      (if (= txt "S5")(setq p2  "SG-5"))
      (setq n 0)
      (repeat (sslength ss )
            (setq ent (ssname ss n))
            (setq ent_data (entget ent))
            (setq ent_type (cdr (assoc 0 ent_data)))
            (if (= ent_type "TEXT")
              (progn
                    (setq txt (cdr (assoc 1 ent_data)))
                    (setq ent_data (subst (cons 1 p2) (assoc 1 ent_data) ent_data))
                    (entmod ent_data)
                )
            
              )
            (setq n (1+ n))
        )
      (princ)
    )

start4444

论坛搜个万能刷看看吧

SeanX

start4444 发表于 2019-7-22 13:41
论坛搜个万能刷看看吧

感谢！找到了另一个大佬的相同刷。