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

yshf · 发表于 2006-5-13 19:33:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;; 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)
)

;;; 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) 
)

jinsong-liao · 发表于 2006-5-15 08:43:09

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

yshf · 发表于 2006-5-15 12:28:03

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

jinsong-liao · 发表于 2006-5-15 15:18:05

非常感谢yshf
兄弟的指点！

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子