yeguoshun3 发表于 2005-6-26 15:50:00

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

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


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

xyp1964 发表于 2005-6-26 16:08:00

把数据文件帖出来。

yeguoshun3 发表于 2005-6-29 23:27:00

数据格式如下：


时间,水位<BR>12:05,105.56<BR>12:10,105.57<BR>12:15,105.58<BR>12:20,105.59<BR>12:25,105.60<BR>12:30,105.56<BR>12:35,105.57<BR>12:40,105.58<BR>12:45,105.59<BR>12:50,105.60<BR>12:55,105.56<BR>.<BR>.<BR>.<BR>.<BR>.<BR>.<BR>.<BR>

mountains 发表于 2005-6-30 10:52:00

xyp1964 发表于 2005-7-5 23:16:00

(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)
)
页: [1]
查看完整版本: 关于在坐标方格纸上画出曲线