SeanX 发表于 2019-7-22 11:50:36

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

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

(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 发表于 2019-7-22 13:41:44

论坛搜个万能刷看看吧

SeanX 发表于 2019-7-22 14:05:29

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

感谢！找到了另一个大佬的相同刷。
页: [1]
查看完整版本: 求更改属性块里面值的数据