各位幫我看看有什么問題?

joe · 发表于 2004-7-23 21:23:00

我觉得好像没什么问题﹐可是就是不行﹐请高手帮帮忙﹗
(DEFUN C:TXM ()
   (SETQ FIL (OPEN "D:\TXM.TXT" "R"))
   (SETQ PT1 (GETPOINT "\nINPUT POINT:"))
   (SETQ O 0.2)
   (REPEAT 80
   (SETQ LO (ATOF (READ-LINE FIL)))
   (SETQ PT2 (POLAR PT1 (* PI 1.5) 10))
   (COMMAND "PLINE" PT1 "W" LO "" PT2 "")
   (SETQ PT1(POLAR PT1 0 (+ LO O)))
   )
)

joe · 发表于 2004-7-23 22:05:00

怎么没人理我啊﹗﹗﹗
上的面程序我在R14里试行时提示﹕
Command: TXM
INPUT POINT:error: bad argument type
(READ-LINE FIL)
(ATOF (READ-LINE FIL))
(SETQ LO (ATOF (READ-LINE FIL)))
(REPEAT 80 (SETQ LO (ATOF (READ-LINE FIL))) (SETQ PT2 (POLAR PT1 (* PI 1.5)
10)) (COMMAND "PLINE" PT1 "W" LO "" PT2 "") (SETQ PT1 (POLAR PT1 0 (+ LO O))))
(C:TXM)
*Cancel*
是READ-LINE这个函数有问题吗?

xyp1964 · 发表于 2004-7-23 22:55:00

(SETQ FIL (OPEN "D:\TXM.TXT" "R"))
应改为
(SETQ FIL (OPEN "D:/TXM.TXT" "R"))
OK?

joe · 发表于 2004-7-24 08:18:00

谢谢三楼的仁兄﹐可是我改过之后还是问题依就啊﹗
555!!!到底问题在哪???

meflying · 发表于 2004-7-24 08:41:00

看你的提示应该是open失败，看看你的D:\TXM.TXT是否存在，或者是否有权限打开

joe · 发表于 2004-7-24 08:50:00

谢谢飞哥﹐不过我想open应该没问题﹐因为我把遁环去掉只画一条线的话是OK的﹐所以我就不明白了。

meflying · 发表于 2004-7-24 09:14:00

可能是你的TXT中没有80行，所以最后读出来的就是nil，而(atof nil)当然就出错了
你把你的TXT文件传上来看看（主要要文件，不要直接贴内容）

xyp1964 · 发表于 2004-7-24 09:26:00

;;txm.lsp
(DEFUN C:TXM ()
   (SETQ FIL (OPEN "F:/TXM.TXT" "R"))
   (SETQ PT1 (GETPOINT "\nINPUT POINT:"))
   (SETQ n1 0.2)
   (REPEAT 50
   (SETQ LO (ATOF (READ-LINE FIL)))
   (SETQ PT2 (POLAR PT1 (* PI 1.5) 10))
   (COMMAND "PLINE" PT1 "W" LO "" PT2 "")
   (SETQ PT1 (POLAR PT1 0 (+ LO n1)))
   )
)
;;TXM.TXT
10
20
30
100
……
可以运行。
此程序有何用？请教！