[求助]：判断一个标注样式是否存在的IF语句怎样写？

b1i7n

如题，怎样用LISP判断一个指定的标注样式是否存在？
这个IF语句怎样写？

我的整个LISP脚本是这样的：
前提：CAD图形样板文件中已有一个名称为“1”，全局标注比例为1的标注样式。
流程如下：
输入命令
输入一个实数GP
判断，如果有以这个实数为名的标注样式，则将它置为当前。
如果没有以这个实数命名的标注样式，则新建这个标注样式，并置为当前。

我写好了新建标注样式的部分：


(defun c:aw (/ gp)
   (setq gp (getreal "\n请输入要建立的标注样式比例："))
   (command "dimstyle" "r" 1)                                             ;先将标注样式设置为“1”样式
   (setvar "dimscale" gp)                                                    ;将全局标注比例设置为输入的实数
   (setvar "dimtofl" 1)                                                          ;dimtofl变量值为1
   (command "dimstyle" "s" (rtos gp 2 1))                           ;新建以这个实数为名称的标注样式
   (setvar "dimtofl" 0)                                                          ;dimtofl变量值为0，去掉一半箭头
   (command "dimstyle" "s" (strcat (rtos gp 2 1) "$3"))        ;新建直径子标注样式
   (command "dimstyle" "s" (strcat (rtos gp 2 1) "$4"))        ;新建半径子标注样式
   (command "dimstyle" "r" (rtos gp 2 1))                            ;再次将新建的“实数”标注样式置为当前
(princ))

zxq0220

(defun dstyle (dimstylename) (if (tblsearch "DIMSTYLE" dimstylename) T nil))

b1i7n

对不起，我不会用啊，那个dimstylename怎样获得所有的标注样式名啊？

zxq0220

最初由 b1i7n 发布
[B]对不起，我不会用啊，那个dimstylename怎样获得所有的标注样式名啊？ [/B]

问的是if语句怎么写，所以写了个函数。dimstylename就是标注样式名，只要将标注样式名以字串形式代到函数中就能得到指定样式是否存在。

b1i7n

已解决

(defun c:aw (/ gp)
  (setq gp (getstring "\n请输入要建立的标注样式比例："))
  (if (tblobjname "DIMSTYLE" gp)
    (command "dimstyle" "r" gp)
    (progn
      (command "dimstyle" "r" 1)(setvar "dimscale" (atof gp))(setvar "dimtofl" 1)
      (command "dimstyle" "s" gp)(setvar "dimtofl" 0)
      (command "dimstyle" "s" (strcat gp "$3"))
      (command "dimstyle" "s" (strcat gp "$4"))
      (command "dimstyle" "r" gp)
    )
  )
  (princ)
)

zxq0220

看这里
http://www.mjtd.com/bbs/dispbbs. ... ID=65006&page=1

jyzas

谢谢分享{:soso_e179:}