]求助：读文本数据表画不连续线段问题

yl222222 · 发表于 2004-3-4 09:54:00

本人是这里的新人，工作中遇到画线段问题。请教各位高手赐教。如何用LISP语言实现自动读取该文件画不连续线段？
___________
_______
_________表文件如下：文件名比如说是：sj.txt
1208 20
1218 12
1228 15
1298 18
......

yl222222 · 发表于 2004-3-4 14:53:00

为什么没人帮我？请哪位版主赐教。

meflying · 发表于 2004-3-4 20:22:00

(defun c:test( / filename f y pos line len lst)
   (setq filename "e:\\sj.txt")
   (setq f (open filename "r"))
   (while (setq line (read-line f))
   (if (/= line "")
   (progn
(setq y (read line))
(setq pos (vl-string-search (rtos y) line))
(setq line (substr line (+ pos (strlen (rtos y)) 1) (- (strlen line) pos (strlen (rtos y)))))
(setq len (read line))
(setq lst (append lst (list (list y len))))
   )
   )
   )
   (close f)
   lst
   (mapcar '(lambda(e) (command "_.line" (list 0 (car e) 0) (polar (list 0 (car e)) 0 (cadr e)) "")) lst)
   (princ)
)

yl222222 · 发表于 2004-3-10 15:50:00

非常，非常，非常感谢meflying给予的帮助。（等待帮助的日子真难熬啊，本以为没人理我的贴子，有谁知道自学者的艰辛啊）我爱乐筑天下CAD论坛，在这里，我学到了不少书本上难找到的知识。
不过，在日常修改LISP程序中，常遇到参数类型错误。比如上面的sj.txt中的数据如果变化成如下格式，运行meflying给的程序就会出现错误提示：错误: 输入中的点位置不正确。如何解决命令与参数类型匹配这一问题呢？
1208.00    20.00
1218.00    12.00
1228.00    15.00
1298.00    18.00
在读取数据时用read ，substr时与采用car,cadr有什么区别吗？

meflying · 发表于 2004-3-10 20:44:00

“substr时与采用car,cadr有什么区别吗？”
不明白你想问什么，函数不一样，结果肯定是不一样的
(defun c:test (/ filename f line lst)
   (setq filename "e:\\sj.txt")
   (setq f (open filename "r"))
   (while (setq line (read-line f))
   (if (/= line "")
   (progn
(setq line (read (strcat "(" line ")")))
(setq lst (append lst (list line)))
   )
   )
   )
   (close f)
   lst
   (mapcar '(lambda (e)
   (command "_.line"
   (list 0 (car e) 0)
   (polar (list 0 (car e)) 0 (cadr e))
   ""
   )
   )
   lst
   )
   (princ)
)

yl222222 · 发表于 2004-3-11 08:43:00

meflying：用你上面的程序后，我的问题解决了。再一次表示感谢。
（注：上面的问题是数据类型转换问题。）

yl222222 · 发表于 2004-3-11 14:55:00

问题是解决了，可程序中这句不知道什么意思，解释一下行吗？
lst
(mapcar '(lambda (e)

yl222222 · 发表于 2004-3-11 15:50:00

不用回复，我已经明白了！

lei6699 · 发表于 2004-3-22 16:29:00

这里我还不太明白：
1。监视里面看到，最后lst的返回值是((1208 20.00)(1218 12)(1228 15)(1298 18))
这样的话，距离为什么可以用(cadr e)？e 难道是lst表中的一个子表？
2。为什么 (close f)后面的lst左边都没有括号？
刚开始学习，请版主多多指教：）

meflying · 发表于 2004-3-22 16:59:00

1、不错，你要熟悉mapcar的用法就知道了。
2、这只是写在不同行而已，如(setq a 0)可以写成
(setq
a
0)

]求助：读文本数据表画不连续线段问题

发表回复

精选推荐

浏览过的版块