内外插点计算(距离加权法)

'L为所有点个数,All_x(),All_y(),All_H()为所有点数列,(Point_x ,Point_y)需要内插高程的点,返回高程. Public Function Dist_Ins(L As Long, All_X() As Double, All_Y() As Double,...

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 16:13
  • 阅读 ( 133 )

VB反正切函数

Function Arctg(tx, ty)   ' 由X坐标差和Y坐标差输出方位角     PI = 3.14159265358979     If tx <> 0 Then       ta0 = Atn(ty / tx)     End If     Select Case tx            ...

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 16:13
  • 阅读 ( 88 )

判断点是否在多边形内

;判断点xpt是否在多边形内;所选射线xpt(x0 y0)--pxy(x0+max|x0-xi| y0+min|y0-yi|) [i=1,2 3,.......,n]不与多边形任何一点相交;入口参数多边形:xdb((x1 y1) (x2 y2) (x3 y3)……(xn yn))及待...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:12
  • 阅读 ( 72 )

计算区域面积

'Points格式: 'Points(0):X 'Points(1):Y 'Points(2):H '...公式:Area=1/2*(x1*y2-x2*y1+x2*y3-x3*y2+... ...+xn*x1-x1*yn) Private Function Area(Points() As Double) As Dou...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:12
  • 阅读 ( 125 )

对图中的单行文本进行四则运算(支持保留原数字的小数位数或自定义)

1.rar ;;;对图中的单行文本进行四则运算(支持保留原数字的小数位数或自定义) by yshf ;;;1.将下载的文件“wbszys0.fas”;;;  存到“H”盘中,如存入其它地方,;;;  请更改程序中第二行中的相应...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:11
  • 阅读 ( 60 )

实现弧度转化度分秒函数

Function RadtoDfm(ac)       '实现弧度转化度分秒(在测量坐标下PI 对180d)     ac0 = RadtoDeg(ac)       ac1 = ThisDrawing.Utility.RealToString(ac0, acDecimal, 9)        ac2 = Th...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:10
  • 阅读 ( 77 )

[VB]判断点是否在一个闭合区域内

'判断点Point_x,Point_y是否在由L个点(Polyline_X(),Polyline_Y())组成的区域中 '此次更改了点刚好落在区域范围线中也算在内。 Public Function Area_Point(L As Long, Polyline_X() As...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:10
  • 阅读 ( 65 )

[CASIO]简单实用的CASIO4800、4850坐标正算程序

简单实用的CASIO4800、4850坐标正算程序1、程序名[ZBZS]A"XO":B"YO":C"HR":D"HD"↓X"Xi"=A+cosCD▲Y"YI"=B+sinCD▲2、程序名[ZBZS]A"XO":B"YO":C"HR":D"HD"↓X"Xi"=A+Rec(D,C)▲Y"Yi"=B+J▲▲:...

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

提取曲线等分段点坐标并存盘

;提取曲线等分段点坐标并存盘;等分数可突破“Measure“及“Divide”命令最大数32767的限制;在盘结果为:点编号   X   Y,在盘后立即用记事本后打开该文件(defun c:qxcl()    (vl-load-com)    (set...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:09
  • 阅读 ( 82 )

在Auto CAD中绘制表格线

在Auto CAD中绘制表格线;入口参数:pt—表格的右上角插入点;                    jjb—表格行、列的高宽表((第一行高  第二行高  第三行高  ...... 第n行高 );                               ...

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 16:08
  • 阅读 ( 127 )

在Auto CAD中包含文本在内图元实体偏移

;;包含文本在内图元实体偏移;;Auto CAD的“offset"命令不能对文本图元偏移,利用以下“typy"命令可以实现包含文本在内的图元;;偏移功能(defun c:typy()    (setq cm (getvar "cmdecho") om (get...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:08
  • 阅读 ( 71 )

封闭多段线顶点排序

;;;封闭多段线顶点排序;;;测试程序;;;将下载的文件“dbxddpx.fas”;;;存到“L”盘中,如存入其它地方,;;;请更改程序中第二行中的相应路径名。;;;用于地藉测量中对宗地界址点编号和排序。;;;到“下载...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:07
  • 阅读 ( 65 )

用豪斯荷尔德变换法求解线性最小二乘问题方程组

'  参数:   m    - Integer型变量。系数矩阵的行数, m>=n '           n    - Integer型变量。系数矩阵的列数,n<=m '          dblA  - Double型二维数组,体积维n x n。存放系数矩...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:07
  • 阅读 ( 57 )

解析:FX-4850P与FX-4800P的编程区别

解析:FX-4850P与FX-4800P的编程区别       FX-4850P的编程语句与FX-4800P稍有不同,所以FX-4800P的程序在导入到FX-4850P运用时,会遇到一些不同点,在此做一个说明。FX-4850P比FX-4800P的编程...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:07
  • 阅读 ( 50 )

在Auot CAD中给文本添加上下标1

;;在Auot CAD中给文本添加上下标1;;by yshf (defun c:wbsb()    (vl-load-com)    (setq cm (getvar "cmdecho") om (getvar "osmode"))    (setvar "cmdecho" 0) (setvar "osmode" 0)  ...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:06
  • 阅读 ( 65 )

功能强大的表达式计算函数(模块)

将下面的代码写在模块中,调用时:结果=start(要计算的表达式),例如, Private Sub Command1_Click()       Text2.Text = Start(Text1.Text) End Sub '功能强大的表达式计算模块 '作者:...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:05
  • 阅读 ( 90 )

将60进制度分秒(d.mmss)化为弧度数

Function DEGREETORAD(DEG As Double)'将60进制度分秒化为弧度数    Dim degrees As Double    degrees = Fix(DEG) + Fix((DEG - Fix(DEG)) * 100) / 60 + (DEG * 100 - Fix(DEG * 100)) * 10...

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 16:04
  • 阅读 ( 51 )

[Lisp]自动标注绝对坐标、相对坐标(有引线)(bzzb)

2.rar CAD图中自动标注坐标,可根据一坐标基准点标注其他各点坐标,文字大小、标注位置均可设置,有引出线.AutoCAD->命令“appload”->选择打开该Lisp文件->命令“bzzb”

  • 1
  • 0
  • admin
  • 发布于 2018-11-30 16:03
  • 阅读 ( 105 )

这是一个串口调试源代码,需要的可以下载啊

1.rar 这是一个串口调试源代码,需要的可以下载啊,谢谢了,作为一个礼品呀/ CommPort.cpp : Defines the class behaviors for the application.//#include "stdafx.h"#include "CommPort....

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

观测数据利用EXCEL生成多方向观测手簿

1.rar 适用于所有边角网、导线网的水平角、竖直角及斜距方面的处理。以LEICA 2003进行6方向一等网观测为例,通过外业观测的原始记录,借助笔记本电脑或工控机,运用excel,对每站的观测数据...

  • 0
  • 0
  • admin
  • 发布于 2018-11-30 16:01
  • 阅读 ( 96 )