[LISP程序]：道路逐桩坐标计算

yshf

2. ;;; by yshf
   
3. ;;;道路逐桩坐标计算
   
4. ;;;1. 根据“道路设计参数.mdb”(Access 2000 数据库)文件中表：
   
5. ;;;      “道路平面曲线线元参数表”、“道路纵断面参数表”
   
6. ;;;   的设计参数成批地计算所求点坐标和相应中线点的设计高程，
   
7. ;;;   并在Auto CAD中绘制出逐桩坐标表。
   
8. ;;;
   
9. ;;;2. 将下载的文件“zbjgchjsa.fas”存到“E:\\算例文件夹”中，
   
10. ;;;   如存入其它地方，请更改程序中第二行中的相应路径名。
    
11. ;;;
    
12. ;;;3. 运行环境为：Auto CAD 2000以上版，Access 2000以上版数据库。
    
13. ;;;
    
14. ;;;4. 计算前，先准备数据：
    
15. ;;;       (一)平面曲线
    
16. ;;;       平面曲线按线元法将各线元要素录入到Access 2000以上版数据
    
17. ;;;   库的“道路平面曲线线元参数表”中，当曲线左偏时，其线元长度输
    
18. ;;;   入负值；右偏及直线时，其线元长度输入正值。
    
19. ;;;
    
20. ;;;       (二)平曲线曲率半径约定如下：
    
21. ;;;      (1).当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次
    
22. ;;;   代替。
    
23. ;;;      (2).当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半
    
24. ;;;   径均等于圆弧的半径。
    
25. ;;;      (3).当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，
    
26. ;;;   以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直
    
27. ;;;   线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半
    
28. ;;;   径等于圆曲线的半径。
    
29. ;;;      (4) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计
    
30. ;;;   规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接
    
31. ;;;   时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的
    
32. ;;;   半径。
    
33. ;;;
    
34. ;;;       (三)竖曲线
    
35. ;;;       竖曲线按变坡点里程、变坡点高程、 竖曲线半径的方式录入到
    
36. ;;;   “道路纵断面参数表”中，在变坡点未设有竖曲线的，其竖曲线半径
    
37. ;;;   输入0。
    
38. ;;;
    
39. ;;;       (四)注意事项
    
40. ;;;       注意：“道路平面曲线线元参数表”、“道路纵断面参数表”的表
    
41. ;;;   名及结构不得更改。将算“XX道路设计参数.mdb”(空数据库文件)文件
    
42. ;;;   复制一份，并将文件名改为你所需要的，例如“8号道路设计参数.mdb”，
    
43. ;;;   然后打开“8号道路设计参数.mdb”，将你所施工的道路设计参数录入到
    
44. ;;;   的表中，即完成数据准备。
    
45. ;;;
    
46. ;;;5. 进入Auto CAD环境后，加载zbjscx.lsp，并在命令行键入"zbjscx"回车后，
    
47. ;;;   按提示输入以下数据即可得到逐桩坐标表:
    
48. ;;;         选择(道路设计参数)数据库文件(对话框方式选择) 8号道路设计参数.mdb
    
49. ;;;         计算起始里程 S0:
    
50. ;;;         计算终止里程 S1:
    
51. ;;;         间距(必须大于0):
    
52. ;;;         请输入第1个边距离(中线为零，左侧为负值，右侧为正值)<回车结束边距输入，进行坐标计算>:
    
53. ;;;         计算结果写入点:
    
54. ;;;6. 附件中的“算例1逐桩坐标表.dwg”是根据“算例1道路设计参数.mdb”
    
55. ;;;   从480至966.46每隔20米计算左10米、中线上、右5.65米而得到的。
    
56. 
    
57. (defun c:zbjscx()
    
58.   (if (null zbjgchjsa)(load "E:\\算例文件夹\\zbjgchjsa.fas"));请注意文件“zbjgchjsa.fas”存盘路径名
    
59.   (zbjgchjsa)
    
60.   (princ)
    
61. )

;;; by yshf<br /> ;;;道路逐桩坐标计算<br /> ;;;1. 根据“道路设计参数.mdb”(Access 2000 数据库)文件中表：<br /> ;;;      “道路平面曲线线元参数表”、“道路纵断面参数表”<br /> ;;;   的设计参数成批地计算所求点坐标和相应中线点的设计高程，<br /> ;;;   并在Auto CAD中绘制出逐桩坐标表。<br /> ;;;<br /> ;;;2. 将下载的文件“zbjgchjsa.fas”存到“E:\\算例文件夹”中，<br /> ;;;   如存入其它地方，请更改程序中第二行中的相应路径名。<br /> ;;;<br /> ;;;3. 运行环境为：Auto CAD 2000以上版，Access 2000以上版数据库。<br /> ;;;<br /> ;;;4. 计算前，先准备数据：<br /> ;;;       (一)平面曲线<br /> ;;;       平面曲线按线元法将各线元要素录入到Access 2000以上版数据<br /> ;;;   库的“道路平面曲线线元参数表”中，当曲线左偏时，其线元长度输<br /> ;;;   入负值；右偏及直线时，其线元长度输入正值。<br /> ;;;<br /> ;;;       (二)平曲线曲率半径约定如下：<br /> ;;;      (1).当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次<br /> ;;;   代替。<br /> ;;;      (2).当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半<br /> ;;;   径均等于圆弧的半径。<br /> ;;;      (3).当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，<br /> ;;;   以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直<br /> ;;;   线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半<br /> ;;;   径等于圆曲线的半径。<br /> ;;;      (4) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计<br /> ;;;   规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接<br /> ;;;   时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的<br /> ;;;   半径。<br /> ;;;<br /> ;;;       (三)竖曲线<br /> ;;;       竖曲线按变坡点里程、变坡点高程、 竖曲线半径的方式录入到 <br /> ;;;   “道路纵断面参数表”中，在变坡点未设有竖曲线的，其竖曲线半径 <br /> ;;;   输入0。<br /> ;;;<br /> ;;;       (四)注意事项<br /> ;;;       注意：“道路平面曲线线元参数表”、“道路纵断面参数表”的表<br /> ;;;   名及结构不得更改。将算“XX道路设计参数.mdb”(空数据库文件)文件<br /> ;;;   复制一份，并将文件名改为你所需要的，例如“8号道路设计参数.mdb”，<br /> ;;;   然后打开“8号道路设计参数.mdb”，将你所施工的道路设计参数录入到<br /> ;;;   的表中，即完成数据准备。<br /> ;;;<br /> ;;;5. 进入Auto CAD环境后，加载zbjscx.lsp，并在命令行键入"zbjscx"回车后，<br /> ;;;   按提示输入以下数据即可得到逐桩坐标表:<br /> ;;;         选择(道路设计参数)数据库文件(对话框方式选择) 8号道路设计参数.mdb<br /> ;;;         计算起始里程 S0:<br /> ;;;         计算终止里程 S1:<br /> ;;;         间距(必须大于0):<br /> ;;;         请输入第1个边距离(中线为零，左侧为负值，右侧为正值)<回车结束边距输入，进行坐标计算>:<br /> ;;;         计算结果写入点:<br /> ;;;6. 附件中的“算例1逐桩坐标表.dwg”是根据“算例1道路设计参数.mdb”<br /> ;;;   从480至966.46每隔20米计算左10米、中线上、右5.65米而得到的。<br /> <br /> (defun c:zbjscx()<br />   (if (null zbjgchjsa)(load "E:\\算例文件夹\\zbjgchjsa.fas"));请注意文件“zbjgchjsa.fas”存盘路径名<br />   (zbjgchjsa)<br />   (princ)<br /> )

jinsong-liao

非常不错的东东，请问楼主“如何通过lisp读取Access数据
库中的数据”，能否请你详细介绍一下。

yshf

看郑老师的文章
http://mjtd.com/Develop/ArticleShow.asp?ArticleID=668

jinsong-liao

非常感谢yshf  
兄弟的指点！