[求助]神了！ 坐标正确却乱画线？？？？？？？？

ztt

2. (defun c:399 (/ data data1 dat_file ff    high low op co tx x0 xco xhh xll xop xvv)
3. ;(setvar "cmdecho" 0)
4. (setq dat_file (getfiled "展点范例" "f:\\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.     (command "layer" "s" "399blue" "")
33.     ) ;_ 结束if
35.     (command "pline" xop "w" 2 2 xco "")
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 "")
43. ;(prompt "<< 10TEST2>>自动展点串行技巧程序")
44. (prin1)
45. ;(setvar "cmdecho" 1)
46. ) ;_ 结束defun
48. ;(command "layer" "m" "szblue" "")
49. ;(command "layer" "m" "szred" "")

(defun c:399 (/ data data1 dat_file ff    high low op co tx x0 xco xhh xll xop xvv) ;(setvar "cmdecho" 0) (setq dat_file (getfiled "展点范例" "f:\\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" xop "w" 2 2 xco "")     (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) ) ;_ 结束defun ;(command "layer" "m" "szblue" "") ;(command "layer" "m" "szred" "")

数据文件: 399.txt

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

复制代码

明明监视里显示 坐标都是正确的，但是到了第三个循环时，就开始乱画线？但后面又有会画对的？？？？？


转用手工输入 数据文件，同样的数据文件内容。按以下代码输入  。结果到了第四个数据时出错开始乱画？第五个却又正确了？？

实在是打破头也找不到原因。请高手指点？？？

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 (- x0 1) (- ll 10)))
19. (if (< op co)  (command "layer" "s" "399red" "" )
20.   (command "layer" "s" "399blue" "" ) )
21. (command "pline"  xop  "w"  2 2  xco "")
22. (command "line" xhh  xll "" )
23. (command "text" xvv  2 270 vv "" )
24. (setq tt  (getint  " 0 继续/其他退出 : "))
25.   )
26. )
27. ;(command "layer" "m" "str" )
28. ;(command "layer" "m" "txt" "")
29. ;(command "layer" "s" "red" "" ))

(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 (- x0 1) (- ll 10))) (if (< op co)  (command "layer" "s" "399red" "" )   (command "layer" "s" "399blue" "" ) ) (command "pline"  xop  "w"  2 2  xco "") (command "line" xhh  xll "" ) (command "text" xvv  2 270 vv "" ) (setq tt  (getint  " 0 继续/其他退出 : "))   ) ) ;(command "layer" "m" "str" ) ;(command "layer" "m" "txt" "") ;(command "layer" "s" "red" "" ))

masterlong

程序开头加一个(setvar "osmode" 0)试试

小神仙

关闭对象捕捉

程序开头加上

(setq oldosmode (getvar "osmode“))

(setvar "osmode" 0)

 

程序结尾再加上(setvar "osmode"  oldosmode)还原对象捕捉

 

xyp1964

2. (defun c:tt ()
3.   (prompt "\n稍候...")
4.   (defun Str2Lst (str / i str1 s)
5.     (setq i 0
6.    str1 ""
7.     )
8.     (while (vl-string-search "  " str)
9.       (setq str (vl-string-subst " " "  " str))
10.     )
11.     (while (/= "" (setq s (substr str (setq i (1+ i)) 1)))
12.       (setq str1 (strcat str1
13.     (if (= " " s)
14.       "" ""
15.       s
16.     )
17.    )
18.       )
19.     )
20.     (read (strcat "("" str1 "")"))
21.   )
22.   (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))
23.   (if (setq fle (findfile tn))
24.     (progn
25.       (setq fn (open fle "r"))
26.       (command "pline")
27.       (while (setq tx (read-line fn))
28. (setq b (Str2Lst tx))
29. (command (list (atoi (nth 1 b)) (atoi (nth 2 b))))
30. (command (list (atoi (nth 3 b)) (atoi (nth 4 b))))
31.       )
32.       (command "")
33.       (close fn)
34.     )
35.   )
36.   (princ)
37. )

(defun c:tt ()   (prompt "\n稍候...")   (defun Str2Lst (str / i str1 s)     (setq i 0    str1 ""     )     (while (vl-string-search "  " str)       (setq str (vl-string-subst " " "  " str))     )     (while (/= "" (setq s (substr str (setq i (1+ i)) 1)))       (setq str1 (strcat str1     (if (= " " s)       "" ""       s     )    )       )     )     (read (strcat "("" str1 "")"))   )   (setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))   (if (setq fle (findfile tn))     (progn       (setq fn (open fle "r"))       (command "pline")       (while (setq tx (read-line fn)) (setq b (Str2Lst tx)) (command (list (atoi (nth 1 b)) (atoi (nth 2 b)))) (command (list (atoi (nth 3 b)) (atoi (nth 4 b))))       )       (command "")       (close fn)     )   )   (princ) )

ztt

行了。谢谢楼上两位指点