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

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 …… 可以运行。此程序有何用？请教！

joe · 发表于 2004-7-24 11:10:00

谢谢二位﹐我在2000i里面用也可以﹐就是在R14里就不行﹐我把TXT﹐和LSP文件都贴上来请帮我看一下。

我是想从另外的系统里面生成一组数据﹐然后用AutoCAD生成条形码

joe · 发表于 2004-7-24 11:11:00

这是LSP

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源