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