道路逐桩坐标计算

道路逐桩坐标计算[可读数据库文件(.mdb)，或读文本文件(.txt或.dat)
附件(点击下载)：
;;; by yshf
;;;道路逐桩坐标计算[可读数据库文件(.mdb)，或读文本文件(.txt或.dat)]
;;;1. 根据“道路设计参数文件”[.txt或.dat(文本文件)，
;;; 或者.mdb(Access 2000 数据库)] ”中的平面曲线线元参数、
;;; 道路纵断面参数成批地计算所求点坐标和相应中线点的设计高程，
;;; 并在Auto CAD中绘制出逐桩坐标表。

;;;
;;;2. 必须将下载的文件“zbjgchjsb1.fas”存到“E:\\算例文件夹”中，
;;; 如存入其它地方，则程序不会进行计算。

;;;
;;;3. 运行环境为：Auto CAD 2000以上版，Access 2000以上版数据库。

;;;
;;;4. 计算前，先准备数据：
;;; (一)平面曲线
;;; 平面曲线按线元法将各线元要素录入到Access 2000以上版数据
;;; 库的“道路平面曲线线元参数表”中，或者录入到文本文件(.txt或
;;; .dat)。

当曲线左偏时，其线元长度输入负值；右偏及直线时其线元
;;; 长度输入正值。

;;; 起点切线方位是以度.分分秒秒的形式录入的，例如57°09′13.32″
;;; 录入为57.091332。

;;;
;;; (二)平曲线曲率半径约定如下：
;;; (1).当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次;;; 代替。

;;; (2).当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半;;; 径均等于圆弧的半径。

;;; (3).当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，;;; 以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

止点与直;;; 线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半;;; 径等于圆曲线的半径。

;;; (4) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计;;; 规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

止点与直线相接;;; 时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的;;; 半径。

;;;
;;; (三)竖曲线
;;; 竖曲线按变坡点里程、变坡点高程、竖曲线半径的方式录入到
;;; “道路纵断面参数表”中，在变坡点未设有竖曲线的，其竖曲线半径
;;; 输入0。

;;;
;;; (四)注意事项
;;; 注意：(1)“道路平面曲线线元参数表”、“道路纵断面参数表”的表
;;; 名及结构不得更改。

将算“XX道路设计参数.mdb”(空数据库文件)文件
;;; 复制一份，并将文件名改为你所需要的，例如“8号道路设计参数.mdb”，
;;; 然后打开“8号道路设计参数.mdb”，将你所施工的道路设计参数录入到
;;; 的表中，即完成数据准备。

;;; (2)文本文件中的两个表头文字
;;; “起点里程起点坐标X 起点坐标起点切线方位角线元长度起点曲率半径止点曲率半径”
;;; “变坡点里程变坡点高程竖曲线半径”
;;; 否则程序会出错。

;;; (3). 平面线元必须首尾相接，按起点里程由小到大顺序录入。

竖曲线数据
;;; 也必须按变坡点里程由小到大顺序录入。

;;; (4).必须有与平面线元相匹配的竖曲线数据部分，否则将出错，不能进行计算。

;;;
;;;5. 进入Auto CAD环境后，加载zbjscx1.lsp，并在命令行键入"zbjscx1"回车后，;;; 按提示输入以下数据即可得到逐桩坐标表:
;;; 选择(道路设计参数)数据库文件(对话框方式选择) 8号道路设计参数.mdb ;;; 计算起始里程S0:
;;; 计算终止里程S1:
;;; 间距(必须大于0):
;;; 请输入第1个边距离(中线为零，左侧为负值，右侧为正值)<回车结束边距输入，进行坐标计算>:
;;; 计算结果写入点:
;;;6. 附件中的“算例1逐桩坐标表.dwg”是根据“算例1道路设计参数.mdb”
;;; 从480至966.46每隔20米计算左10米、中线上、右5.65米而得到的。

(defun c:zbjscx1()
(if (null zbjgchjsb1)(load "E:\\算例文件夹\\zbjgchjsb1.fas"));请注意文件“zbjgchjsb1.fas”存盘路径名
(zbjgchjs1)
(princ)
)。