[求助]：问一下下面的代码LISP

温柔女神

一个朋友的程序：
。。。。。。
通过计算得出某一个数字str,,如62254350，其实就是一幅图的名字，现在把她插进来。

(command "insert" str p0 "1" "1" "0")

那么前面怎么判断，这幅图纸存在不？如果不存在就不执行下面命令，也就是说不插入了。
请指教。

zxq0220

(if (findfile (strcat str ".dwg"))
(command ".insert" str p0 "1" "1" "0")
)

zxq0220

(if (findfile (strcat str ".dwg"))
(command ".insert" str p0 "1" "1" "0")
)

温柔女神

谢谢ZXG0220的指教
感激不尽啊，佩服的五体投地。。。。不知道怎么说

再问大家一个：
(if (findfile (strcat str ".dwg"))
    (command ".insert" str p0 "1" "1" "0")

  (
      (princ "\n不存在！")        
      (exit)
     )
)


远行上面，如果不存在图形时，有如下提示：
错误: quit / exit abort

如果把 (exit) 删掉，不存在图形时，有如下提示：
不存在！；错误：错误函数："\n不存在！"
请问各位大侠，是什么原因造成的呢
我的要求就是：存在就插入，
不存在就提示不存在，然后退出

Underway

Try

2. 
   
3. (if (findfile (strcat str ".dwg"))
   
4.   (command ".insert" str p0 "1" "1" "0")
   
5. 
   
6.   (progn
   
7.     (princ "\n不存在！")
   
8.     ;; (exit)
   
9.   )
   
10. )
    

<br /> (if (findfile (strcat str ".dwg"))<br />   (command ".insert" str p0 "1" "1" "0")<br /> <br />   (progn<br />     (princ "\n不存在！")<br />     ;; (exit)<br />   )<br /> )<br />