大加快帮我看看这个while语句

island1000 · 发表于 2003-11-13 16:52:00

他怎么会告诉我一个参数类型错误呢？
(while (= Flag 1)
      (progn
         (setq Data       (read-line fp)
               temp       (VD:2dPoints->3dPoints (read Data))
               ptList             (cons temp ptList)
         )
         (if(not Data)    (setq Flag -1) )
      )
  )
错误: 参数类型错误: stringp nil

BDYCAD · 发表于 2003-11-13 17:08:00

這樣試試.
(while (= Flag 1)
   (setq Data  (read-line fp)
         temp  (VD:2dPoints->3dPoints (read Data))
         ptList  (cons temp ptList))
   (if(not Data)
   (setq Flag -1) )
  )
to 樓主, 你給的程序片斷別人很難給你指出錯誤的. 發方便可以把整個程序放上來看看

meflying · 发表于 2003-11-13 17:52:00

看提示应该是变量Data为空造成的。
建议：这种问题可以用VLISP编辑器中的跟踪功能，跟踪看是那里出了问题，否则以后遇到了，你还是无法判断

island1000 · 发表于 2003-11-13 18:19:00

其实我的目的是从一个文本文件读入数据，因为可能不知道数据有多少行，所以另外设置一个值来控制逻辑判断，我把逻辑判断式改为(3dPoints (read Data))
            ptList (cons temp ptList)
      )
      (setq Flag 0)
   )

meflying · 发表于 2003-11-13 18:28:00

因为对data做了判断，如果(read-line fp)返回空，即data为空，这时有if判断，就不会执行下面的
(setq
temp (VD:2dPoints->3dPoints (read Data))
ptList (cons temp ptList)
)
这句了，所以就不会执行(read data)，就不会出错了。
注：(setq data (read-line fp))，如果(read-line fp)返回空，使得data为空，(setq ...)语句也将返回空，即if的判断条件为空（即假），所以就发生了跳转

大加快帮我看看这个while语句

发表回复

精选推荐

浏览过的版块