[LISP函数]：在LSP中怎么删除或覆盖已经建立的标注样式？？

lcsfm

我想用LISP建立新的标注样式，

(defun c:test()
        (setq sf (getreal "输入全局比例因子gsf:"))
        (setvar "dimscale" (* 1 gsf))

        (command "-dimstyle" "s" "gdimstd"）   
  (prin1)
)

第一次运行TEST通过，建立了新的标注样式。但是第二次运行重新输入比例因子后，提示

“该名称已经使用，是否重新定义？<n>

我想覆盖原来的哪个标注样式gdimstd怎么覆盖？

或者我想先搜索样式，然后删除已存在的同名样式。但是有不知道什么命令能删除已存在的标注样式。“-DIMSTYLE”里面没有。

(setq dimsn (tblsearch "dimstyle" "gdimstd"))
          (if (/= nil dimsn) ；接下来想删除gdimstd怎么删除？

     请大家帮忙

LADESIGNER

PURGE

peng197806

啊!这是我的程序啊!在明净里的贴子,现在被斑竹解决了.给你分享吧

(if (/= nil dimsn);搜索样式，若有，删除gdimstd
          (progn
          (command "-dimstyle" "r" "standard" ) ;设置当前式样为standard，为了删除gdimstd
          (vla-delete (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))) "gdimstd"))
          )
      )

egos

如果恰好该图形文件并没有standard标注样式，你这程序恐怕又要出问题了吧？？？