[求助]怎样判断一个标注样式是否存在？ ◆已解决

b1i7n

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

这个IF语句怎样写？

sailorcwx

(if (tblsearch "STYLE" "standard")(alert "存在")(alert "不存在"))

b1i7n

呃，我不会用。

"standard"写什么啊？

我的整个LISP脚本是这样的：

前提：CAD图形样板文件中已有一个名称为“1”，全局标注比例为1的标注样式。

流程如下：

输入命令

输入一个实数GP

判断，如果有以这个实数为名的标注样式，则将它置为当前。

如果没有以这个实数命名的标注样式，则新建这个标注样式，并置为当前。

b1i7n

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

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

(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))

b1i7n

请帮帮我啊

ZZXXQQ

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

b1i7n

好了，自己解决了

3. (defun c:aw (/ gp)
4.   (setq gp (getstring "\n请输入要建立的标注样式比例："))
5.   (if (tblobjname "DIMSTYLE" gp)
6.     (command "dimstyle" "r" gp)
7.     (progn
8.       (command "dimstyle" "r" 1)
9.       (setvar "dimscale" (atof gp))
10.       (setvar "dimtofl" 1)
11.       (command "dimstyle" "s" gp)
12.       (setvar "dimtofl" 0)
13.       (command "dimstyle" "s" (strcat gp "$3"))
14.       (command "dimstyle" "s" (strcat gp "$4"))
15.       (command "dimstyle" "r" gp)
16.     )
17.   )
18.   (princ)
19. )

(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) )