关于在坐标方格纸上画出曲线

yeguoshun3

我要做的工作是：在一张坐标方格纸上（时间横坐标，高度纵坐标）点出过高度变化的过程线，


请问高手们，能不能把我们画过程线的坐标方格纸放入cad中，然后导入数据文件在上的数据画出过程线出来呢？ 有谁有这方面的经验啊，能不能告诉我啊 ！！！！

xyp1964

把数据文件帖出来。

yeguoshun3

数据格式如下： 时间,水位
12:05,105.56
12:10,105.57
12:15,105.58
12:20,105.59
12:25,105.60
12:30,105.56
12:35,105.57
12:40,105.58
12:45,105.59
12:50,105.60
12:55,105.56
.
.
.
.
.
.
.

xyp1964

2.   (load "xyp_lib");加载通用函数
3. ;|
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. 通用函数下载地址:
12. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
13. |; ;;;时间曲线
14. (defun c:test ()
15.    (cmdla0)
16.    (MKLA "时间曲线" 1)
17.    (while (not
18.        (setq tn (getfiled "数据文件(txt;dat;*)" "" "txt;dat;*" 2))
19.    )
20.    )
21.    (setq fle (findfile tn))
22.    (if (not fle)
23.        (setq fle (getfiled "请选择数据文件" "" "txt;dat;*" 8))
24.    )
25.    (if fle
26.        (progn
27.            (setq fn (open fle "r"))
28.            (command "pline")
29.            (while (setq pt (read-line fn))
30.   (setq time1 (atof (substr pt 1 2))
31.              time2 (/ (atof (substr pt 4 2)) 60.0)
32.              pt       (list (+ time1 time2) (atof (substr pt 7 6)))
33.   )
34.   (command pt)
35.   (princ ".")
36.            )
37.            (command "")
38.            (close fn)
39.        )
40.        (princ "\n未选择数据文件，退出")
41.    )
42.    (cmdla1)
43. )

  (load "xyp_lib");加载通用函数 ;| 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 5.将xyp_lib.vlx文件直接拽到cad屏幕 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554 |; ;;;时间曲线 (defun c:test ()    (cmdla0)    (MKLA "时间曲线" 1)    (while (not        (setq tn (getfiled "数据文件(txt;dat;*)" "" "txt;dat;*" 2))    )    )    (setq fle (findfile tn))    (if (not fle)        (setq fle (getfiled "请选择数据文件" "" "txt;dat;*" 8))    )    (if fle        (progn            (setq fn (open fle "r"))            (command "pline")            (while (setq pt (read-line fn))   (setq time1 (atof (substr pt 1 2))              time2 (/ (atof (substr pt 4 2)) 60.0)              pt       (list (+ time1 time2) (atof (substr pt 7 6)))   )   (command pt)   (princ ".")            )            (command "")            (close fn)        )        (princ "\n未选择数据文件，退出")    )    (cmdla1) )