用于看书及学习单词程序

linshucai

;林树才 设计
;此程序版权没有,可以有意无意地进行复制与散布,不过请务将此信息删除
(defun learnword( / f m n)
 (setq n 1)
 (setq f (strcat (GetApplicationPath "InstPath") "\\" (getfiled "选择要阅读的文件" (GetApplicationPath "InstPath")  "txt" 8)))
 ;文件所在目录一定要为支持搜索
 (initget 1 )
 (setq m (getint "\n按Esc退出,可输入[1~8]数值越大则越快:->"))
 (if (= m nil) (setq m 1))
 (setq f (open f "r"))
 (while n
 (princ (strcat "\n" (read-line f)))
 (command "delay" (fix (/ 1000 m )))
; (setq n (getint))
;  (if (= n 1)
;     (princ "继续")
;     (setq n 0)
;  )
  )
  (close f)
 
  )
  (learnword)
 

linshucai

另附英语单词库,供各位学习英语.

linshucai

在程序中加入

(setvar "cmdecho" 0)

(setvar "cmdecho" 1)

这样才能连续显示

希望大家给予建议

;林树才 设计
;此程序版权没有,可以有意无意地进行复制与散布,不过请务将此信息删除
(defun learnword( / f m n)
 (setq n 1)
 (setq f (strcat (GetApplicationPath "InstPath") "\\" (getfiled "选择要阅读的文件" (GetApplicationPath "InstPath")  "txt" 8)))
 ;文件所在目录一定要为支持搜索
 (initget 1 )
 (setq m (getint "\n按Esc退出,可输入[1~8]数值越大则越快:->"))
 (setq f (open f "r"))
 (setvar "cmdecho" 0)
 (while n
 (princ (strcat "\n" (read-line f)))
 (command "delay" (itoa (fix (/ 1000 m ))))
; (setq n (getint))
;  (if (= n 1)
;     (princ "继续")
;     (setq n 0)
;  )
  )
  (close f)
  (setvar "cmdecho" 1)
  )
  (learnword)
 

无痕

词库呢？

linshucai

受到限制只能上传一个词库

fools

1.将文件全部读入为表,并用随机函数将表打乱,这样不用每次都从abandon学起

2.对着命令行看多累,可以在绘图区里生成一组文字,然后根据读入的内容不断刷新这组文字,程序结束后删除这组文字.有兴趣的话还可以在这些文字周围整一些动画制造气氛.

jxlnlsh

顶先!

linshucai

;林树才 设计
;此程序版权没有,可以有意无意地进行复制与散布,不过请务将此信息删除
(defun learnword( / f m n)
 (setq n 1)
 (setq f (getfiled "选择要阅读的文件" "C:\\Program Files\\AutoCAD 2004" "txt" 8)))
 ;文件所在目录一定要为支持搜索
 (initget 1 )
 (setq m (getint "\n按Esc退出,可输入[1~8]数值越大则越快:->"))
 (setq f (open f "r"))
 (setvar "cmdecho" 0)
 (while n
 (princ (strcat "\n" (read-line f)))
 (command "delay" (itoa (fix (/ 8000 m ))))
; (setq n (getint))
;  (if (= n 1)
;     (princ "继续")
;     (setq n 0)
;  )
  )
  (close f)
  (setvar "cmdecho" 1)
  )
  (learnword)

重新修改了一下,速度不可过快,不然来不及看完就跳到下一行了

linshucai

;林树才 设计
;此程序版权没有,可以有意无意地进行复制与散布,不过请务将此信息删除
(defun learnword( / f m n)
 (setq n 1)
 ;(setq f (getfiled "选择要阅读的文件" "" "txt" 8))
 ;文件所在目录一定要为支持搜索
 (setq f (open (findfile (getfiled "选择要阅读的文件" "" "txt" 8)) "r"))
 (initget 1 )
 (setq m (getint "\n按Esc退出,可输入[1~8]数值越大则越快:->"))
 (setvar "cmdecho" 0)
 (while n
 (princ (strcat "\n" (read-line f)))
 (command "delay" (itoa (fix (/ 8000 m ))))
; (setq n (getint))
;  (if (= n 1)
;     (princ "继续")
;     (setq n 0)
;  )
  )
  (close f)
  (setvar "cmdecho" 1)
  )
  (learnword)

总算改得像样了,(setq f (open (findfile (getfiled "选择要阅读的文件" "" "txt" 8)) "r"))
这句修改了一下.祝各位工作,学习快乐.

hhc

呵呵 真是想得出来~~