[求助] 自己的一个画股市K线图的小程序。请高手指教帮优化

ztt

3. (defun  c:htt( / x0 op co hh ll vv xop xco xhh xll xvv )
4. (setq tt 0)
5. (while (= tt 0)
6. (setq x0 (getint  "输入日期坐标值"))　　；用于定位横坐标、原想直接通过计算当天日期得到，后无法实现
7. (setq op (getint  "开盘价 :"))
8. (setq co (getint  "收盘价  :"))
9. (setq hh (getint  "最高价  :"))
10. (setq ll (getint   "最低价 :"))
11. (setq vv (getint   "成交量  :"))
13. (setq xop (list x0 op))
14. (setq xco (list x0 co))
15. (setq xhh (list x0 hh))
16. (setq xll (list x0 ll))
17. (setq xvv (list (+ 1 x0) (- ll 10)))
19. (command "pline"  xop “w” 2  xco "") ;设置多线宽２　
20. (command "line" xhh  xll "" )
21. (command "text" xvv  2 90 vv "" )
22. (setq tt  (getint  " 0 继续/其他退出 : "))
23.   )
24. )

(defun  c:htt( / x0 op co hh ll vv xop xco xhh xll xvv ) (setq tt 0) (while (= tt 0) (setq x0 (getint  "输入日期坐标值"))　　；用于定位横坐标、原想直接通过计算当天日期得到，后无法实现 (setq op (getint  "开盘价 :")) (setq co (getint  "收盘价  :")) (setq hh (getint  "最高价  :")) (setq ll (getint   "最低价 :")) (setq vv (getint   "成交量  :")) (setq xop (list x0 op)) (setq xco (list x0 co)) (setq xhh (list x0 hh)) (setq xll (list x0 ll)) (setq xvv (list (+ 1 x0) (- ll 10))) (command "pline"  xop “w” 2  xco "") ;设置多线宽２　 (command "line" xhh  xll "" ) (command "text" xvv  2 90 vv "" ) (setq tt  (getint  " 0 继续/其他退出 : "))   ) )

个人感觉程序很不优化。请高手帮优化一下。

另外希望能够增加　。自动判断，是红线还是绿线。然后自动画出红、绿线来。
自己想应该是判断开盘与收盘。然后通过画在不同图层上来实现，不知道行不？能有高手有简便方法，帮讲解一下，最好有源码。谢谢！

另外，一直想通过LISP　　直接读　TXT　　数据实现多天的绘图功能，但不知道读文件后是一整串　字符，如何来应用
就是日期、开盘、收盘、最高、最低、量

ztt

4. (defun  c:htt( / x0 op co hh ll vv xop xco xhh xll xvv )
5. (setq tt 0)
6. (while (= tt 0)
7. (setq x0 (getint  "输入日期坐标值"))
8. (setq op (getint  "开盘价 :"))
9. (setq co (getint  "收盘价  :"))
10. (setq hh (getint  "最高价  :"))
11. (setq ll (getint   "最低价 :"))
12. (setq vv (getint   "成交量  :"))
14. (setq xop (list x0 op))
15. (setq xco (list x0 co))
16. (setq xhh (list x0 hh))
17. (setq xll (list x0 ll))
18. (setq xvv (list (+ 1 x0) (- ll 10)))
19. (if (< op co)  (command "layer" "s" "red" "" )
20.   (command "layer" "s" "blue" "" ) )
21. (command "pline"  xop  "w"  2 2  xco "")
22. (command "line" xhh  xll "" )
23. (command "text" xvv  2 90 vv "" )
24. (setq tt  (getint  " 0 继续/其他退出 : "))
25.   )
26. )

(defun  c:htt( / x0 op co hh ll vv xop xco xhh xll xvv ) (setq tt 0) (while (= tt 0) (setq x0 (getint  "输入日期坐标值")) (setq op (getint  "开盘价 :")) (setq co (getint  "收盘价  :")) (setq hh (getint  "最高价  :")) (setq ll (getint   "最低价 :")) (setq vv (getint   "成交量  :")) (setq xop (list x0 op)) (setq xco (list x0 co)) (setq xhh (list x0 hh)) (setq xll (list x0 ll)) (setq xvv (list (+ 1 x0) (- ll 10))) (if (< op co)  (command "layer" "s" "red" "" )   (command "layer" "s" "blue" "" ) ) (command "pline"  xop  "w"  2 2  xco "") (command "line" xhh  xll "" ) (command "text" xvv  2 90 vv "" ) (setq tt  (getint  " 0 继续/其他退出 : "))   ) )

提前设置　RED图层　并定为红色。BLUE图层并定为蓝色。运行程序通过

liu_kunlun

"一直想通过LISP　　直接读　TXT　　数据实现多天的绘图功能，但不知道读文件后是一整串　字符...."

能够做到，但要看txt文件的具体格式

 

xiaoquansb

没想到cad还可以做股票

ztt

0 984 1003 979 1003 1476
6 1003 1008 992 995 2005年04月11日 1593
8 993 993 978 978 1022
10 988 1006 988 1000 1607
12 1004 1006 985 987 1294
14 982 982 971 974 1040
20 970 970 958 963 2005年04月18日 859
22 962 968 957 965 921
24 964 964 946 950 885

横坐标  开盘 最高 最低 收盘 成交量

4. (setq dat_file (getfiled "展点范例" "g:\\399" "txt" 2))
5.     (setq ff (open dat_file "r"))
6.     (setq data (read-line ff))
7.     (while data
8. (setq data1 data x0 0 op 0 co 0 high 0 low 0 tx "0" xop() xvv() xco() xhh() xll() )
9. (setq x0 (read data1))
10. (setq data1 (vl-string-left-trim (itoa x0) data1))
11. ;(setq data1 (vl-string-left-trim " " data1))
12. (setq op (read data1))
13. (setq data1 (vl-string-left-trim " " data1))
14. (setq data1 (vl-string-left-trim (itoa op) data1))
15. (setq high (read data1))
16. (setq data1 (vl-string-left-trim " " data1))
17. (setq data1 (vl-string-left-trim (itoa high) data1))
18. (setq low (read data1))
19. (setq data1 (vl-string-left-trim " " data1))
20. (setq data1 (vl-string-left-trim (itoa low) data1))
21. (setq co (read data1))
22. (setq data1 (vl-string-left-trim " " data1))
23. (setq data1 (vl-string-left-trim (itoa co) data1))
24. (setq tx (vl-string-left-trim " " data1))
25. (setq xop (list x0 op))
26. (setq xco (list x0 co))
27. (setq xhh (list x0 high))
28. (setq xll (list x0 low))
29. (setq xvv (list (- x0 1) (- low 10)))
30. (if (< op co)
31.      (command "layer" "s" "399red" "")
32.      
33.      (command "layer" "s" "399blue" "")
34.      ) ;_ 结束if
35. (command "pline" xco   xop "")
36. (command "line" xhh xll "")
37. (command "text" xvv 2 270 tx "")
38. (setq data (read-line ff))
39. ) ;_ 结束while
40.     (close ff)
41.     (prin1)
42.     ;(prompt "<< 10TEST2>>自动展点串行技巧程序")
43.     (prin1)
44.     ;(setvar "cmdecho" 1)

(setq dat_file (getfiled "展点范例" "g:\\399" "txt" 2))     (setq ff (open dat_file "r"))     (setq data (read-line ff))     (while data (setq data1 data x0 0 op 0 co 0 high 0 low 0 tx "0" xop() xvv() xco() xhh() xll() ) (setq x0 (read data1)) (setq data1 (vl-string-left-trim (itoa x0) data1)) ;(setq data1 (vl-string-left-trim " " data1)) (setq op (read data1)) (setq data1 (vl-string-left-trim " " data1)) (setq data1 (vl-string-left-trim (itoa op) data1)) (setq high (read data1)) (setq data1 (vl-string-left-trim " " data1)) (setq data1 (vl-string-left-trim (itoa high) data1)) (setq low (read data1)) (setq data1 (vl-string-left-trim " " data1)) (setq data1 (vl-string-left-trim (itoa low) data1)) (setq co (read data1)) (setq data1 (vl-string-left-trim " " data1)) (setq data1 (vl-string-left-trim (itoa co) data1)) (setq tx (vl-string-left-trim " " data1)) (setq xop (list x0 op)) (setq xco (list x0 co)) (setq xhh (list x0 high)) (setq xll (list x0 low)) (setq xvv (list (- x0 1) (- low 10))) (if (< op co)      (command "layer" "s" "399red" "")            (command "layer" "s" "399blue" "")      ) ;_ 结束if (command "pline" xco   xop "") (command "line" xhh xll "") (command "text" xvv 2 270 tx "") (setq data (read-line ff)) ) ;_ 结束while     (close ff)     (prin1)     ;(prompt "<< 10TEST2>>自动展点串行技巧程序")     (prin1)     ;(setvar "cmdecho" 1)

单步走的时候是对的。但循环一次后，数据就乱了？？？

liu_kunlun

关捕捉