设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：继续求助，我下面这个lisp到底错在那呢 ...
返回列表 发新帖
查看: 1473|回复: 12

[求助] [求助]：继续求助，我下面这个lisp到底错在那呢

  [复制链接]
zwz9608
发表于 2008-8-27 20:10:06 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
(setq zhou1 (open "d:\\ee.txt" "r"))
(setq zhou2 (open "d:\\gg.txt" "r"))
(setq zhou3 (open "d:\\ff.txt" "r"))
(setq zhou4 (open "d:\\hh.txt" "r"))

(setvar "OSMODE" 0)
(while aa
(setq aa (read-line zhou1))
(setq bb (read-line zhou2))
(setq cc (read-line zhou3))
(setq dd (read-line zhou4))



(command "line" aa cc bb dd)

(command "")
)

加载后画了一次后，再加载就画不出了，而把(while aa  这一句改成（repeat 100)就可以，大家帮我看看行吗
setq, line, read

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

hb198075
发表于 2008-8-27 20:19:52 | 显示全部楼层
1，你这几个变量是不是没在函数头作声明，成了全局变量；
2，看你是不是关闭了已打开的文件。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

158466939
发表于 2008-8-27 21:42:00 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
在程序结束后把变量aa置空
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zwz9608
 楼主| 发表于 2008-8-28 01:19:28 | 显示全部楼层
如何修该，如何置空，帮写写行吗？我是个新手
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2008-8-28 07:00:55 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
1.修改一下：
[php]
(setvar "OSMODE" 0)
(if (and (setq ZHOU1 (open "d:\\ee.txt" "r"))
         (setq ZHOU2 (open "d:\\gg.txt" "r"))
         (setq ZHOU3 (open "d:\\ff.txt" "r"))
         (setq ZHOU4 (open "d:\\hh.txt" "r"))
    )
    (while (and
               (setq AA (read-line ZHOU1))
               (setq BB (read-line ZHOU2))
               (setq CC (read-line ZHOU3))
               (setq DD (read-line ZHOU4))
           )
        (command "_line" AA CC BB DD "")
    )
)
[/php]
2. 要 关闭 文件。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zwz9608
 楼主| 发表于 2008-8-30 14:33:21 | 显示全部楼层
(setvar "OSMODE" 0)
(if (and (setq ZHOU1 (open "d:\ee.txt" "r"))
     (setq ZHOU2 (open "d:\gg.txt" "r"))
     (setq ZHOU3 (open "d:\ff.txt" "r"))
     (setq ZHOU4 (open "d:\hh.txt" "r"))
    )
    (while (and
           (setq AA (read-line ZHOU1))
           (setq BB (read-line ZHOU2))
           (setq CC (read-line ZHOU3))
           (setq DD (read-line ZHOU4))
       )
    (command "_line" AA CC BB DD "")
    )
)
(close zhou1)
(close zhou2)
(close zhou3)
(close zhou4)
运行后出现：命令: _appload 已成功加载 新的stock.LSP。
命令: ; 错误: 参数类型错误: streamp nil
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 9856个

财富等级: 富甲天下
发表于 2008-8-30 17:26:36 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
数据文件中的数据格式是什么样的？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zwz9608
 楼主| 发表于 2008-8-30 22:42:46 | 显示全部楼层

数据的格式如下，我相当于要打开个4个txt文件

10，600
20，900
30，500
。
。
。
我相当于要打开个4个txt文件，每个文件的每一行是一个点的坐标
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2008-8-31 01:05:56 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
条件不尽，当存在空行空串的时候，出错；看这个：
(setq a "")
(if a 1 2)
_$

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

使用道具 举报

zxq0220

已领礼包: 9856个

财富等级: 富甲天下
发表于 2008-8-31 09:55:40 | 显示全部楼层

Re: 数据的格式如下，我相当于要打开个4个txt文件

最初由 zwz9608 发布
[B]10，600
20，900
30，500
。
。
。
我相当于要打开个4个txt文件，每个文件的每一行是一个点的坐标 [/B]

数据格式错误。中间分隔符不应用全角的逗号。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zwz9608
 楼主| 发表于 2008-8-31 12:52:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
格式没有错的，那个只是我打在论坛时打错，我只是想解决
(setq zhou1 (open "d:\\ee.txt" "r"))
(setq zhou2 (open "d:\\gg.txt" "r"))
(setq zhou3 (open "d:\\ff.txt" "r"))
(setq zhou4 (open "d:\\hh.txt" "r"))

(setvar "OSMODE" 0)
(while aa
(setq aa (read-line zhou1))
(setq bb (read-line zhou2))
(setq cc (read-line zhou3))
(setq dd (read-line zhou4))



(command "line" aa cc bb dd)

(command "")
)

加载后画了一次后，再加载就画不出了，而把(while aa 这一句改成（repeat 100)就可以
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hb198075
发表于 2008-8-31 16:48:32 | 显示全部楼层
你没把程序贴全，所以看不出具体问题出在哪。
我发个完整的你对照一下。

  3.   [FONT=courier new]
  4. (defun c:test (/ zhou1 zhou2 zhou3 zhou4 aa bb cc dd oldvar)
  5.   (if (setq zhou1 (open "d:\\ee.txt" "r"))
  6.     (if        (setq zhou2 (open "d:\\gg.txt" "r"))
  7.       (if (setq zhou3 (open "d:\\ff.txt" "r"))
  8.         (if (setq zhou4 (open "d:\\hh.txt" "r"))
  9.           (progn
  10.             (setq oldvar(getvar "OSMODE"))
  11.             (setvar "OSMODE" 0)
  12.             (while (and        (setq aa (read-line zhou1))
  13.                         (setq bb (read-line zhou2))
  14.                         (setq cc (read-line zhou3))
  15.                         (setq dd (read-line zhou4))
  16.                    )
  17.               (command "line" aa cc bb dd "")
  18.             )
  19.             (setvar "OSMODE" oldvar)
  20.             (MAPCAR 'close (list zhou1 zhou2 zhou3 zhou4))
  21.           )
  22.           (MAPCAR 'close (list zhou1 zhou2 zhou3))
  23.         )
  24.         (MAPCAR 'close (list zhou1 zhou2))
  25.       )
  26.       (close zhou1)
  27.     )
  28.   )
  29.   (princ)
  30. )
  31. [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zwz9608
 楼主| 发表于 2008-8-31 19:42:36 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢hb198075 ，已经用上了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-5-12 05:07 , Processed in 0.284503 second(s), 55 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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