帮忙看看错在哪儿？

peng197806

这是一个建立新标注样式的程序，先搜索是否有my122样式如果有，删除，然后建立。如果没有，建立。运行后出现如下错：“"Automation 错误。未提供说明。"” 但是有时候运行又没有此错误。 判断错误出在下面：(vla-delete (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))) "my122"))，但是不知道具体错在哪儿比较郁闷。请高手给指点指点 (defun c:dims( / dimsn)
(setq dimsn (tblsearch "dimstyle" "my122"))
(if (/= nil dimsn);搜索my122样式，若有，删除
(progn
(command "-dimstyle" "r" "standard" ) ;设置当前式样为standard，为了删除my122
(vl-load-com)
(vla-delete (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))) "my122"))
)
)
(setvar "dimexe" 0.0938)
(setvar "dimdli" 0)
(setvar "dimtofl" 1)
(setvar "dimtmove" 2)
(setvar "dimblk" "dimtick")
(setvar "dimasz" 0.000000015 )
(setvar "dimadec" 5)
(setvar "dimtxt" 0.152)
(setvar "dimgap" 0.005)
(setvar "dimtoh" 0)
(setvar "dimtad" 1)
(setvar "dimclrt" 3)
(setvar "dimtxsty" "my122
")
(setvar "dimtix" 1)
(setvar "dimtih" 0)
(setvar "dimzin" 1)
(command "-dimstyle" "s" "my122" )
(command "-dimstyle" "r" "my122" )
(prompt "\n标注建立完毕!")
)

alin

注意如果图中有my122式样的尺寸，你的方法不能删除该式样。建议你看看这个贴。 dispbbs.asp?boardID=3&ID=35165&page=1

peng197806

恩，对，我刚刚测试了确实如此！！！那应该怎么删除呢？请斑竹指教

alin

将已有的MY122尺寸改成另外一种式样，或把它们删除，或直接修改已存在的MY122式样

peng197806

直接修改已存在的MY122式样?怎么用LISP修改呢？如果直接(setvar )改完的只是样式替代。而且不能直接(command "-dimstyle" "s" "my122" )存成MY122。要怎么修改呢？谢谢斑竹：）

sssssss

刚好遇到同样的问题，请试试： 1.改名称
(command "reanme" "dimstyle" "MY122" "NEW-DIM") 2.改变量设定值
(command "-dimstyle" "v" "MY122"
"dimexe" "0.0938"
"dimdli" "0"
"dimtofl" "1"
"dimtmove" "2"
"dimblk" "dimtick"
"dimasz" "0.000000015"
"dimadec" "5"
"dimtxt" "0.152"
"dimgap" "0.005"
"dimtoh" "0"
"dimtad" "1"
"dimclrt" "3"
"dimtxsty" "my122"
"dimtix" "1"
"dimtih" "0"
"dimzin" "1"
)
(graphscr)