[求助]：LSP中修改TEXTSTYLE对象的NAME属性

winabcd

如何在lisp中修改一个TextStyle对象的name属性。

阿_Q

(command ".rename")

fsxm

对于块名下面的无效.只能用vlisp or command
其它的tb应当可以

2. 
   
3. (defun tblrename (tbl newstyle_name oldstyle_name / data)
   
4.   (setq data (entget (tblobjname tbl oldstyle_name)))
   
5.   (entmod (subst (cons 2 newstyle_name) (assoc 2 data) data))
   
6. )
   
7. 如:
   
8. (test "STYLE" "new" "old")
   

<br /> (defun tblrename (tbl newstyle_name oldstyle_name / data)<br />   (setq data (entget (tblobjname tbl oldstyle_name)))<br />   (entmod (subst (cons 2 newstyle_name) (assoc 2 data) data))<br /> )<br /> 如:<br /> (test "STYLE" "new" "old")<br />

阿_Q

或者用(vla-put-Name Object value)