[求助]：请帮看看错在那里行吗

zwz9608 · 发表于 2008-8-12 01:05:19

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

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

×

(setq zhou1 (open "d:\\aa.txt" "r"))
(setq zhou2 (open "d:\\bb.txt" "r"))
(setq zhou3 (open "d:\\cc.txt" "r"))
(setq zhou4 (open "d:\\dd.txt" "r"))
(setq zhou5 (open "d:\\ee.txt" "r"))
   (repeat 200
   (setq aa (read-line zhou1))
   (setq bb (read-line zhou2))
   (setq cc (read-line zhou3))
   (setq dd (read-line zhou4))
   (setq ee (read-line zhou5))

      (setq aaa (atof aa))
      (setq bbb (atof bb))
      (setq ccc (atof cc))
      (setq ddd (atof dd))
      (setq eee (atof ee))

      (setq aa1 (list ddd aaa))
      (setq bb1 (list ddd bbb))
      (setq cc1 (list ddd ccc))
      (setq dd1 (list eee bbb))

      (command "line" dd1 bb1 aa1 cc1)
      (command "")
   )

我编了一下，目的是想读取文本中的数据画k线，每一个循环就画一个坚的和一条横的线，但不知上面写的lisp总是有问题，画不出来

libo2000 · 发表于 2008-8-12 02:33:13

d:/aa.txt
d:/bb.txt

zxq0220 · 发表于 2008-8-12 08:34:33

将特征点捕捉关掉试试。(setvar "OSMODE" 0)

ahopera · 发表于 2008-8-12 10:14:00

(command "line" dd1 bb1 aa1 cc1)
(command "")
转换成
(command "line" dd1 bb1 “”)
(command "line" aa1 cc1 "")
其中dd1 bb1 或 aa1 cc1 是横线或竖线的起止点

zwz9608 · 发表于 2008-8-12 11:39:25

谢谢3楼楼主的帮忙吗，成功了

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

[求助] [求助]：请帮看看错在那里行吗

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

相关帖子