LISP文件存在查询的求助！
请问要在lisp程序中要加入一个块，怎么判定该块名是否存在，比如要先建立一个块，插入各点：(command "color" "1")<BR>(setq t21c (polar t21 0 30));插入点t21c---------------------------<BR>(setq ccd1 "1.6")<BR> <BR>(setq ch 3.5)<BR>(setq ch1 (* ch 1.61658))<BR>(setq cp1 (polar t21c (/ pi 3) (* 2 ch1)))<BR>(setq cp2 (polar t21c (/ pi 3) ch1))<BR>(setq cp3 (polar cp2 pi ch1))<BR>(setq cp4 (polar t21c (/ pi 2) (* 1.4 ch1)))<BR>(command "pline" cp2 cp3 t21c cp1 "")<BR>(setq cc1 (entlast))<BR>(command "text" "m" cp4 ch "0" ccd1)<BR>(setq cc2 (entlast))
;(command "-block" "c63" t21c cc1 cc2 "");块c63-------------------
(setq t7c (polar t7 (/ pi 2) 5));粗糙度标注点1(270度);-------------<BR>(setq t0c (polar t0 (* pi 1.5) r));粗糙度标注点2(0度)--------------<BR>(setq p5c (polar p5 (* pi 1.5) 20 ));粗糙度标注点3(270度)----------
(command "insert" "c63" "r" "0" t21c "" "" "")<BR>(command "insert" "c63" "r" "270" t7c "" "" "")<BR>(command "insert" "c63" "r" "0" t0c "" "" "") <BR>(command "insert" "c63" "r" "270" p5c "" "" "")
但是第二次以后运行就会出现重定义，如何实现判定该块不存在的时候才定义成块！ (tblsearch "block "c63") 谢谢，是不是这样？：
(setq kuai (tblsearch "block "c63") )
(if (= kuai nil) (command "-block" "c63" t21c cc1 cc2 "")
<BR>
页:
[1]