[求助]高手们，再帮我看看，关于标注样式的问题。

userzhl

哪位高手能够用LSP更改标注样式的名称？

carrot1983

这个问题我以前也想问，因为没有什么大用，所以一直都放着．不知道有没有更简单的方法，比如command

3. (defun c:tt (/    acaddocument acadobject   dimname
4.       dimobj   dimstylesel  mspace     new_name
5.       orig_name
6.      )
7.   (vl-load-com)
8.   (if (and (/= (setq orig_name (getstring "\n输入原来标注样式名:"))
9.         ""
10.     )
11.     (/= (setq new_name (getstring "\n输入新的标注样式名:"))
12.         ""
13.     )
14.     (tblsearch "dimstyle" orig_name)
15.     (not (tblsearch "dimstyle" new_name))
16.       )
17.     (setq acaddocument (vla-get-activedocument (vlax-get-acad-object))
18.    dimstylesel  (vla-get-dimstyles acaddocument)
19.    ;;下面的,我自己也不懂为什么用add方法才能得到dimobj,有别的方法得到dimobj吗？
20.    dimobj       (vla-add dimstylesel orig_name)
21.    dimname      (vla-put-name dimobj new_name)
22.     )
23.   )
24.   (princ)
25. )

(defun c:tt (/    acaddocument acadobject   dimname       dimobj   dimstylesel  mspace     new_name       orig_name      )   (vl-load-com)   (if (and (/= (setq orig_name (getstring "\n输入原来标注样式名:"))         ""     )     (/= (setq new_name (getstring "\n输入新的标注样式名:"))         ""     )     (tblsearch "dimstyle" orig_name)     (not (tblsearch "dimstyle" new_name))       )     (setq acaddocument (vla-get-activedocument (vlax-get-acad-object))    dimstylesel  (vla-get-dimstyles acaddocument)    ;;下面的,我自己也不懂为什么用add方法才能得到dimobj,有别的方法得到dimobj吗？    dimobj       (vla-add dimstylesel orig_name)    dimname      (vla-put-name dimobj new_name)     )   )   (princ) )

userzhl

如果存在new_name 的标注样式

就不能更改了？

carrot1983

好像是这样子的！

要不你把那句去掉，调试一下！

我个人认为改标注样式名称没有什么大用吧！要改，自己动手重命名一下很快的吧！！

userzhl

(if (and (/= (setq orig_name (getstring "\n输入原来标注样式名:"))
        ""
    )
    (/= (setq new_name (getstring "\n输入新的标注样式名:"))
        ""
    )
    (tblsearch "dimstyle" orig_name)
    (not (tblsearch "dimstyle" new_name))
      )
如果存在new_name,把上面的条件去掉的话,就会出错

userzhl

可不可以这样,如果存在new_name,则把orig_name和new_name的样式合并成new_name

carrot1983

有请版主！

userzhl

版主！到哪去了？

carrot1983

可不可以这样,如果存在new_name,则把orig_name和new_name的样式合并成new_name

其实这句话可以做到的:

1.存在new_name,ssget全选标注样式名为orig_name.

2.将这个选择集里面的标注样式名,全部subst取代为new_name

3.然后再删除标注样式名orig_name

nonsmall

打散、tlbnext取里面元素，取得该文字后用entmake重新生成新的标注，注意打散的需要放选择集然后删掉。2007-7-18 12:15:00

=================================

当年上面这话和标题不符,是说改标注中的文字,方法也很烂,大家不要被误导!

可以使用vla-item取得标注样式后使用put-name修改

(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq dimstyles (vla-get-dimstyles doc))

(if (and (tblsearch "dimstyle" "Standard")(not(tblsearch "dimstyle" "new")))
    (progn
   (setq dim (vla-item dimstyles "Standard"))
   (vla-put-name dim "new")
    )
)