Qin 的博客

注册测绘师、高级工程师 blog.cehuis.com

Excel-测量公式及格式设置

1、生成指定范围的随机数 在0.45~0.49间随机 =CHOOSE(INT(5*RAND()+1),0.45,0.46,0.47,0.48,0.49) 生成大于3小于5的随机数 =CHOOSE(INT(3*RAND()+1),3,4,2)+CHOOSE(INT(9*RAND()+1),1...

2019-07-13 09:32:34

阅读数 34

评论数 0

Excel VBA表中添加打开文件夹按钮

Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, B...

2019-07-13 07:58:47

阅读数 41

评论数 0

64位Windows操作系统下Autocad VBA通用对话框代码

'选择文件夹(http://blog.sina.com.cn/s/blog_55fc7c2f0101mb4t.html): Option Explicit 'http://www.mvps.org/access/api/api0002.htm 'Code courtesy of Terry Kre...

2019-07-12 11:17:22

阅读数 73

评论数 0

Excel批量按页自动打印南方CASS格式测量地形数据的VBA宏

近期将对其进行一些修改,将施工坐标系、桩号前缀、页脚等参数设置放到一特定的表格里,使本工具更具通用性。 测量数据(仅指测量坐标成果数据,一般为南方CASS格式,参见下表)从仪器下载下来后,都需要打印出来签字存档,如果手动排版将是一项繁琐的工作。可在Excel中添加一个宏,将数据读出按格式分页排...

2019-06-08 11:34:02

阅读数 145

评论数 0

利用VBA给Excel或WPS表格添加自定义函数(如方位角函数)

在Excel或WPS表格中要使用VBA需要先打开“开发工具”菜单,打开方式请在网上度一下: 点击“开发工具”菜单,在“开发工具”工具栏上点击“VB编辑器”: 在“VB编辑器”内添加一模块文件(名称任意),在代码区添加函数代码: 如添加一个测量方位角计算的函数,代码如下: Fu...

2019-06-05 08:34:19

阅读数 164

评论数 0

Excel和WPS表格下CASS格式测量地形文件点按距离过滤抽稀

文件名:CASS格式地形文件点抽稀(Excel).rar Excel下的VBA程序,在WPS下也可以使用,打开此表格后点击表中按钮,选择CASS格式测量地形点文件,指定抽稀间距即可按距离进行点抽稀过滤。表格见下载中心。 Private Declare Function ShellExecute L...

2019-06-02 14:53:52

阅读数 70

评论数 0

测量计算方位角万能公式及VB、VBA源代码

使用该公式不用判断象限,直接得出方位角值 设有两点A、B,坐标分别为A(Xa,Ya)、B(Xb、Yb),则 $\Delta X=X_b-X_a $ $\Delta Y=Y_b-Y_a $ $\Delta Y=\Delta Y+1^{-10} $ 为了使除数不为零而加一个很小的数(注:在参与计算前...

2019-06-02 11:13:21

阅读数 83

评论数 0

Vecad控件添加样条曲线(Spline)

更多文章请访问:http://www.SurMap.com vecad控件中添加样条曲线需要使用到三个函数:AddVertex、ClearVertices、AddPolyline在创建样条曲线前需要将样式曲线的各个节点用AddVertex依次添加,然后用AddPolyline创建样条曲线:Veca...

2009-07-18 10:58:00

阅读数 635

评论数 0

VB环境下的矢量绘图控件Vecad介绍

更多文章请访问:http://www.SurMap.com  最近为了在程序中添加绘图功能,需要找一个矢量绘控件,在网上找了很久,国内也有几家正在编这个东西的公司,但他们的产品不是我们这等人能用得起的,比如MicroDraw的开发版要三万多一套,我简直是闻风而逃。另一个梦想绘图控件,虽然不算完美,...

2009-07-17 15:56:00

阅读数 1125

评论数 3

提示
确定要删除当前文章?
取消 删除