[求助]：水利工程使用lisp來自動畫出斷面圖

nova123

請問有沒有人知道那裏可以下載到已寫好 lisp ，輸入距離和高程時，可以用來自動畫出河道的斷面圖，謝謝您的協助。

xyp1964

先建立数据文件：高程.txt
文件格式：
距离 高程
距离 高程
距离 高程
……

程序待发。

nova123

大大那只是格式，有沒有已寫好的 lisp 或 vba 程式可用．

eobser

水利的很多用zdm的,广东
期待斑竹的原码,好教程

xyp1964

本程序未经测试！！

2. [FONT=courier new]
   
3. (load "xyp_lib.vlx");版本 V.20060303(2153)
   
4. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
7. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
8. ■3·在command下，输入(load"xyp_lib.vlx")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. ;;;由数据文件画所谓“断面图”
    
16. ;|
    
17. 数据格式:
    
18. 距离 高程
    
19. 距离 高程
    
20. 距离 高程
    
21. 距离 高程
    
22. 距离 高程
    
23. 距离 高程
    
24. ...
    
25. |;
    
26. (defun c:test ()
    
27.   (CMDLA0)
    
28.   (alert
    
29. "数据格式:
    
30.   距离 高程
    
31.   距离 高程
    
32.   距离 高程
    
33.   距离 高程
    
34.   距离 高程
    
35.   距离 高程
    
36.   ..."
    
37.   )
    
38.   (prompt "\n稍候 ")
    
39.   (MKLA "断面图" 2)
    
40.   (setq        fle (findfile
    
41.               (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2)
    
42.             )
    
43.   )
    
44.   (if (not fle)
    
45.     (setq fle (getfiled "请选择数据文件" "" "txt;dat;*" 8))
    
46.   )
    
47.   (if fle
    
48.     (progn
    
49.       (setq fn (open fle "r")
    
50.             pt0 (getpoint"\n起点位置: ")
    
51.             )
    
52.       (command"ucs""n"pt0)
    
53.       (command "pline" (list 0 0))
    
54.       (while (setq pt (read-line fn))
    
55.         (princ ".")
    
56.         (command (read (strcat "(" pt ")")))
    
57.       )
    
58.       (command "")
    
59.       (close fn)
    
60.       (prompt " 完毕！")
    
61.     )
    
62.     (princ "\n未选择数据文件，退出")
    
63.   )
    
64.   (CMDLA1)
    
65. )[/FONT]

[FONT=courier new]<br /> (load "xyp_lib.vlx");版本 V.20060303(2153)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;由数据文件画所谓“断面图”<br /> ;|<br /> 数据格式:<br /> 距离 高程<br /> 距离 高程<br /> 距离 高程<br /> 距离 高程<br /> 距离 高程<br /> 距离 高程<br /> ...<br /> |;<br /> (defun c:test ()<br />   (CMDLA0)<br />   (alert<br /> "数据格式:<br />   距离 高程<br />   距离 高程<br />   距离 高程<br />   距离 高程<br />   距离 高程<br />   距离 高程<br />   ..."<br />   )<br />   (prompt "\n稍候 ")<br />   (MKLA "断面图" 2)<br />   (setq        fle (findfile<br />               (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2)<br />             )<br />   )<br />   (if (not fle)<br />     (setq fle (getfiled "请选择数据文件" "" "txt;dat;*" 8))<br />   )<br />   (if fle<br />     (progn<br />       (setq fn (open fle "r")<br />             pt0 (getpoint"\n起点位置: ")<br />             )<br />       (command"ucs""n"pt0)<br />       (command "pline" (list 0 0))<br />       (while (setq pt (read-line fn))<br />         (princ ".")<br />         (command (read (strcat "(" pt ")")))<br />       )<br />       (command "")<br />       (close fn)<br />       (prompt " 完毕！")<br />     )<br />     (princ "\n未选择数据文件，退出")<br />   )<br />   (CMDLA1)<br /> )[/FONT]