[求助]请教高手，如何把这个属性块里的1：10改成1：20？

userzhl

请教高手，如何把这个属性块里的1：10改成1：20？

 

 

fgq86233246

直接双击该块,就可以编辑啊

userzhl

我是想用LSP完成。

xyh

程序通过,是针对单个块改的,修改一下可以针对所有选择块和通用性，容错性还待改进。

(defun c:test()
(setq str0 "1:10" strn "1:20")
(setq en (car (entsel "\n选择块:")))
(setq e1 (entnext en))
(while e1
(setq s1 (assoc 1 (setq el1 (entget e1))))
(setq str1 (cdr s1))
(if (= str1 str0)
  (progn
    (setq el1 (subst (cons 1 strn) s1 el1))
    (entmod el1)
    (entupd e1)
;   (subst newitem olditem lst)
  )
  (princ)
)
(setq e1 (entnext e1))
)
)