[原创]道路逐桩坐标计算[第三稿]

yshf 发表于 2006-7-1 17:20:00

;;; by yshf ;;;道路逐桩坐标计算[可读数据库文件(.mdb)，或Excel文件(.xls),或读文本文件(.txt或.dat)] ;;;1. 根据“道路设计参数文件”[.txt或.dat(文本文件)， ;;;   或者.mdb(Access 2000 数据库), 或者Excel文件(.xls)] ”中的平面曲线线元参数、 ;;;   道路纵断面参数成批地计算所求点坐标和相应中线点的设计高程， ;;;   并在Auto CAD中绘制出逐桩坐标表。 ;;; ;;;2. 必须将下载的文件“zbjgchjs3.fas”存到“E:\\算例文件夹”中， ;;;   如存入其它地方，则程序不会进行计算。 ;;; ;;;3. 运行环境为：Auto CAD 2000以上版，Access 2000以上版数据库，Excel 2000以上版电子表格。 ;;; ;;;4. 计算前，先准备数据： ;;;       (一)平面曲线 ;;;       平面曲线按线元法将各线元要素录入到Access 2000以上版数据 ;;;   库的“道路平面曲线线元参数表”中，Excel 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)Excel电子表格中必须有“道路平面曲线线元参数表”、“道路纵断面参数表” ;;;   两个工作表，其表名及结构、表头不得更改，否则程序会出错。 ;;;       (3)文本文件中的两个表头文字 ;;;    “起点里程  起点坐标X    起点坐标   起点切线方位角   线元长度  起点曲率半径  止点曲率半径” ;;;    “变坡点里程   变坡点高程   竖曲线半径” ;;;   否则程序会出错。 ;;; ;;;5. 进入Auto CAD环境后，加载zbjscx3.lsp，并在命令行键入"zbjscx3"回车后， ;;;   按提示输入以下数据即可得到逐桩坐标表: ;;;         选择(道路设计参数)数据库文件(对话框方式选择) 8号道路设计参数.mdb ;;;         计算起始里程 S0: ;;;         计算终止里程 S1: ;;;         间距(必须大于0): ;;;         请输入第1个边距离(中线为零，左侧为负值，右侧为正值)<回车结束边距输入，进行坐标计算>: ;;;         计算结果写入点: ;;;6. 附件中的“算例1逐桩坐标表.dwg”是根据“算例1道路设计参数.mdb” ;;;   从480至966.46每隔20米计算左10米、中线上、右5.65米而得到的。
(defun c:zbjscx3()   (if (null zbjgchjs3)(load "E:\\算例文件夹<A href="file://zbjgchjs3.fas/" target="_blank" >\\zbjgchjs3.fas</A>"));请注意文件“zbjgchjs3.fas”存盘路径名   (zbjgchjs3)   (princ) )

yshf 发表于 2006-7-1 17:22:00

jjjyxcm 发表于 2006-7-14 21:06:00

本帖最后由 jjjyxcm 于 2013-10-5 23:08 编辑

我试了,用你的EXCEL模板确实可用,谢谢,有时间限制。

qunaihan 发表于 2006-7-22 15:40:00

谢谢！下载了。

blueniaoman 发表于 2011-8-11 17:12:22

谢谢楼主分享了。。。

zst1978 发表于 2020-8-20 05:49:08

谢谢楼主分享

f4800 发表于 2020-10-30 12:19:23

道路逐桩坐标计算[第三稿] 工程测量人员必备希望好用

页: [1]

明经CAD社区's Archiver

[原创]道路逐桩坐标计算[第三稿]