请问lispj里怎么样知道插入的块或字体已经存在？

badgirl

1                         我用LISP调用了COMMAND命令建立一个新字体格式，第一次执行没有问题，但第二次时就有问题。因为我建的字体格式已存在。


2                 LISP 里用COMMAND新建一个块，第一次执行没有问题，但第二次时就有问题。因为我建的块已存在。


怎么样解决这类的问题呢？

王咣生

用tblsearch判断符号表是否存在,用tblnext得到所有符号表. 如 (defun c:test ( / style_list start sty)
(setq style_list '())
(setq start t)
(while (setq sty (cdr (assoc 2 (tblnext "STYLE" start))))
(setq start nil)
(setq style_list (cons sty style_list))
);while
style_list
) 得到所有STYLE

badgirl

谢谢！