找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1104|回复: 4

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

[复制链接]
发表于 2008-5-27 20:16:09 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

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

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

那么前面怎么判断,这幅图纸存在不?如果不存在就不执行下面命令,也就是说不插入了。
请指教。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 10395个

财富等级: 富甲天下

发表于 2008-5-27 20:23:56 | 显示全部楼层
(if (findfile (strcat str ".dwg"))
(command ".insert" str p0 "1" "1" "0")
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 10395个

财富等级: 富甲天下

发表于 2008-5-27 20:35:31 | 显示全部楼层
(if (findfile (strcat str ".dwg"))
(command ".insert" str p0 "1" "1" "0")
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-27 22:04:31 | 显示全部楼层
谢谢ZXG0220的指教
感激不尽啊,佩服的五体投地。。。。不知道怎么说

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

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


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

如果把 (exit) 删掉,不存在图形时,有如下提示:
不存在!;错误:错误函数:"\n不存在!"
请问各位大侠,是什么原因造成的呢
我的要求就是:存在就插入,
不存在就提示不存在,然后退出
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 7222个

财富等级: 富甲天下

发表于 2008-5-28 08:30:44 | 显示全部楼层
Try

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

  3.   (progn
  4.     (princ "\n不存在!")
  5.     ;; (exit)
  6.   )
  7. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-14 14:40 , Processed in 0.298777 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表