[CASIO]切线长反算缓和曲线半径TXC

A=tan (J/2) ◢          B=L/2-T◢                  C=L2 tan (J/2)/24◢R=(-B+√(B2 -4AC))/2A◢J?41.07444   偏角L?90         缓和曲线长T?           切线长R  2000       半径

  • 2
  • 0
  • admin
  • 发布于 2018-11-30 15:53
  • 阅读 ( 54 )

曲线任意里程中边桩坐标正反算(VB6.0)函数

'本文的两个函数是根据“曲线任意里程中边桩坐标正反算(CASIO FX—4800P计算器) '程序”'移植而成'一、约定       ' (1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,'...

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 15:52
  • 阅读 ( 75 )

[VB]已知两点坐标,求距离及角度的VB6.0源码.

Private Sub Command1_Click() G = Sqr(Abs(Val(D.Text) - Val(B.Text)) ^ 2 + Abs(Val(C.Text) - Val(A.Text)) ^ 2) F = Atn(Abs(Val(D.Text) - Val(B.Text)) / Abs(Val(C.Text) - Val(A.Tex...

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 15:52
  • 阅读 ( 57 )

曲线任意里程中边桩坐标正反算(LISP)函数

;本文的两个函数是根据“曲线任意里程中边桩坐标正反算(CASIO FX—4800P计算器) '程序”;移植而成;一、约定       ; (1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,;...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:42
  • 阅读 ( 39 )

利用EXCEL表格进行复合导线近似平差计算

2.xls

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:42
  • 阅读 ( 565 )

[lisp]批量提取离散点坐标(plscdzb)(更正)

1.rar 批量提取CAD图中的地形点(point命令画的点)的坐标、高程,输出为文本文件用法  命令“appload”导入该lisp文件,运行命令“plscdzb”

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 15:41
  • 阅读 ( 112 )

几何元素间关系的几个常用函数

'求两点的方向角 Public Function Angle2D(ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double) As Double     Dim dx As Double, dy As Double     dx = X2...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:40
  • 阅读 ( 45 )

曲线转化为多段线(LWPOLYLINE)

;;;测试程序;;;曲线转化为多段线(LWPOLYLINE);;;1. 将首尾相接的直线(LINE)、多段线(LWPOLYLINE,POLYLINE)、圆弧(ARC)、;;;   椭圆弧(ELLIPSE)、样条曲线(SPLINE)转化为一多段线(LWPOLYLINE);...

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 15:39
  • 阅读 ( 53 )

界址点成果表

3.rar ;;;请试用以下程序;;;by yshf 2002.02;;;1.将下载的文件“gndbg1.fas”;;;  存到“H”盘中,如存入其它地方,;;;  请更改程序中第二行中的相应路径名。;;;2.支持任选一封闭界址线(多段线)的...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:38
  • 阅读 ( 63 )

已知圆弧的起点、终点和弧长(或者弓高、或者弓弦比)求半径和圆心

已知圆弧的起点、终点和弧长(或者弓高、或者弓弦比)求半径和圆心;已知圆弧的起点、终点和弧长(或者弓高、或者弓弦比)求半径和圆心;1.到“下载”网页中下载文件“bjyx.vlx”;  并存到“G”盘中,如存入...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:37
  • 阅读 ( 49 )

[CASIO]已知外巨交点桩和偏角算圆曲线半径

Lbl0{E N Q}R=E÷(1÷cos(N÷2)-1) ◢T=Rtan(N÷2) ◢L=RNπ÷180◢P=2T-L◢A“ZY”=Q-T◢B“QZ”=A“ZY”+L÷2◢C“YZ”=B“QZ”+L÷2◢C“YZ2”=Q+T-P◢Goto 0E外巨    N线路转角     Q交点桩号

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:36
  • 阅读 ( 37 )

VB反余弦函数和VB反正弦函数

Private Function Arccos(x As Double) As Double     Arccos = PI / 2 - Atn(x / Sqr(-x * x + 1)) End Function Private Function Arcsin(x As Double) As Double     Arcsin = Atn(x /...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:34
  • 阅读 ( 37 )

[Excel]在一个Excel单元格中实现度、分、秒转换

怎样在Excel一个 单元格中输入度分秒再转换成小数度或弧度一直困绕许多测量同行,网上有许多用VBA 编辑的自定义函数当然可行,但对大多数不会编辑VBA的测量同行而言,这不仅存在编辑上的困难,...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:34
  • 阅读 ( 86 )

建立文本格式表函数

AcDbObjectId CreateNewTextStyle(){ AcDbTextStyleTable *pTextStyleTable; AcDbTextStyleTableRecord *pTextStyleTableRcd AcDbObjectId textId; acdbHostApplicationServices()->worki...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:33
  • 阅读 ( 53 )

[Lisp]逐个输出点坐标到文本文件(scdzb)

1.rar CAD中逐个点击提取三维坐标,输出为文本文件用法  命令“appload”导入该lisp文件,运行命令“scdzb”

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:33
  • 阅读 ( 86 )

EXCEL计算表格 直线 缓和 圆曲

1.xls

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:32
  • 阅读 ( 110 )

[Excel]圆曲线偏角法计算

2.rar 适合于经纬仪测量圆曲线时的偏角计算,用Excel编写的,没什么特殊的,只是一些简单的函数和工式.虽然全站仪遍地都是了,但还是有些穷单位的,像我干市政的全站用的时候也不多,经纬一架,一镜看...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:31
  • 阅读 ( 63 )

判断点P(x,y)与有向直线P1(x1,y1)-P2(x2,y2)之间的关系

Public Function fxpb(x1 As Double, y1 As Double, x2 As Double, x As Double, y As Double) As Integer    '判断点P(x,y)与有向直线P1(x1,y1)-P2(x2,y2)之间的关系    '当点在直线上时返回...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:29
  • 阅读 ( 38 )

5800交点法坐标正反算,加入高程,隧道超欠挖,带数据库

2.doc 本程序交点法正反算程序主程序为汤工的程序,在此程序的基础上增加了高程(带数据库),及隧道超欠挖(超欠挖数据为我们工地隧道数据),希望各位老师对此程序给予优化,不对的地方欢迎...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:29
  • 阅读 ( 56 )

曲线线元绘制(LISP)函数

;一、约定       ; (1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,;线元偏向标志=-1;当线元往右偏时,线元偏向标志=1;当线元为直线时,线元偏向标志=0。        ;...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 15:28
  • 阅读 ( 62 )