2013-07-15 明经 AutoLISP 编程②(177027547) 群聊记录：http://item.taobao.com/item.htm?spm=6

明经快报

蓝色眼眸 14:42:36

http://item.taobao.com/item.htm? ... &id=26186100646 全套劲爆价，史上最全的AutoCAD2012/2010经典视频教程，高清视频，入门到精通一应俱全

明经快报

[zhongguola]秋水 15:13:25

诸位高人，请问(defun Getdata (/ f line rtnlst)
   (setq f (open "C:\\Documents and Settings\\Administrator\\桌面\\2010.3.14.txt" "r"))
  (while (setq line (read-line f))
    (setq rtnlst (cons (mapcar 'read (string_to_numbers line)) rtnlst))
  )
  (close f)

明经快报

[zhongguola]秋水 15:26:14

(defun Getdata (/ f line rtnlst)
   (setq f (open (getfiled title default ext flags))
  (while (setq line (read-line f))
    (setq rtnlst (cons (mapcar 'read (string_to_numbers line)) rtnlst))
  )
  (close f)
  (reverse rtnlst)
  (foreach f rtnlst
     (setq rtnlst (subst (cons (car f) (cons (caddr f) (cons (cadr f) (cdddr f))))
                                  f
                                rtnlst
                         )          
     )
  )
)

明经快报

和光同尘 15:38:58

哦

看来我只能是业余了

阿Q 15:39:22

哈哈

[zhongguola]秋水 15:39:37

向专业选手学习

阿Q 15:39:44

大部分人只是把这个当成干活的工具，

专业的是靠这个吃饭的

考做软件吃饭

和光同尘 15:40:29

呵呵

阿Q 15:40:30

我们业余的是靠使用软件吃饭