Qin 的博客

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

AutoCAD中删除封闭多义线区域外(内)的点

在AutoCAD中用多义线绘制一封闭区域,用以下扩展命令将对应的地形数据文件(.dat)中该区域外(稍加修改可变为区域内)的点删除。后续将改进为只对图面点进行处理。 (defun C:zzQydx (/ ptName ptSign ptE ptN ptH ptCount filename1 f...

2019-06-10 17:15:26

阅读数 146

评论数 0

AutoCAD实体添加和读取扩展信息的AutoLISP函数

这是以前编写断面绘图程序时写的两个函数,一是给AutoCAD实体(可见对象)添加扩展信息的代码,另一个是从实体读取扩展信息的代码。本意是用此程序绘出的断面线在绘图时将该横断面的参数以扩展信息添加到多义线上,后续处理时可判断断面线是否是程序所绘并从断面线上提取断面线所在横断面的参数,如断面基准点坐标...

2019-06-10 17:05:02

阅读数 107

评论数 0

AutoCAD VBA点抽稀程序

本文提及的程序acad.dvb可以在CSDN下载中心下载。 在AutoCAD中使用VBA开发只需在命令行输入“vbaide”即可打开自带的VBA编辑器。 打开VBAIDE后添加一个窗体,如图添加以下控件: 窗体控件对应代码: Option Explicit Private...

2019-06-09 15:46:24

阅读数 108

评论数 0

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

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

2019-06-08 11:34:02

阅读数 145

评论数 0

Excel表格中通过单元格值调取特定单元格的值

在Excel表格中的一定区域中输入详细统计数值,在表的上部区域用作统计汇总,现要动态调用详表中的数据如下图,则需要在目的单元格中输入以下代码。 =CELL("contents",INDIRECT("D"&B1)) 或 =CELL(&q...

2019-06-07 17:16:53

阅读数 134

评论数 0

惠普HP Prime可编程计算器之添加坐标表及写入与读取

1、创建一个新表 按Apps键进入应用列表界面,用方向键找到“电子表格”,点击左下角的“保存”命令,在随后界面输入表名“Points”,则应用列表中多出一个名为“Points”的电子表格: 输入表名: 保存后出现在列表中: 2、用下列代码向表中写入数据 EXPORT 控制点...

2019-06-07 15:45:07

阅读数 97

评论数 0

惠普HP Prime可编程计算器之工程测量计算

惠普HP Prime计算器是一个比较好用的计算器,它的程序源代码是纯文本字符,不象CASIO计算器的程序代码会用到许多特殊字符,除了在计算器上编程时输入外,在电脑上只有用替换的折中方法,给编程和共享带来不小的麻烦。惠普HP Prime计算器的程序完全可以在计算机上用文本编辑软件进行输入,再传到计算...

2019-06-07 15:14:03

阅读数 123

评论数 0

AutoLISP笔记——常用代码片断

1、字符串按指定分隔符分隔 ;;;功能:字符串按指定分隔符分隔 ;;;(split "1,,255280.791,3743764.732,2786.206" ",") ;;;返回:("1" "" "255...

2019-06-06 14:43:40

阅读数 67

评论数 0

判断点是否在多边形区域内的AutoLISP程序

本代码根据网上某网友代码稍作修改,版权归原作者所有^_^! (defun pt_inorout (regionObj pt / pt_list e1 pt n i j va va_count) (setq pt_list (mapcar 'cdr (vl-remove-if ...

2019-06-05 17:19:46

阅读数 89

评论数 0

工程测量内业中提取横断面线折点坐标数据并写入文件

在工程测量内业处理中,有时需将横断面线数据提取出来,横断面线关键点是以“偏轴距,高程”二维形式提取,使用时选择一条横断面线(多义线),指定横断面的基准点(通常是一个特别的交叉点及其在横断面中的坐标,一般选择断面轴线与某一已高程的点),程序将把断面线(多义线)的折点坐标逐点计算出对应于横断面的平面坐...

2019-06-05 17:14:03

阅读数 129

评论数 1

点抽稀AutoLISP程序

(defun C:dcx (/ ptE ptN ptH ptName ptSign tmpSign rIndex rIndex2) (setq ptSign nil ptE nil ptN nil ptName nil tmpSign nil rIndex nil rIndex2 ...

2019-06-05 17:03:50

阅读数 70

评论数 0

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

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

2019-06-05 08:34:19

阅读数 164

评论数 0

Qt(C++)-01、创建空项目从零做起

Qt可以象VB那样用设计器来设计窗口界面,在新建项目里选择相应的项目即可由Qt自动完成工程文件、源代码和窗口界面文件。对于初学者来说,由向导建好的新的项目里生成的这些文件一时半会还消化不了。相反地,从空项目手动添加代码能更好的掌握Qt的真谛,而且也没有想象中复杂,相反地比向导创建的一开始就包含几个...

2019-06-04 11:45:01

阅读数 65

评论数 0

AutoLisp——选择对象函数ssget用法

语法: (ssget [sel-method] [pt1 [pt2]] [pt-list] [filter-list]) ssget 的参数均为可选参数,需要注意的是可选参数之间的组合条件。 以下语法表示中 尖括号代表必选,[parameter] 方括号代表可选。 一、选择集的窗口参数 [s...

2019-06-03 16:06:59

阅读数 486

评论数 0

AutoCAD Civil 3D中将CASS地形图中地形点转换成CAD点实体

使用AutoCAD Civil 3D打开CASS生成的地形图,由于CASS地形图中的地形点是以块形式存在的,虽然我们可以使用CAD的图元对象中的块进行曲面定义,但这样做的结果就是虽有曲面但没有对应的地形点。我们需要将块状地形点转换成CAD的点对象,再在AutoCAD Civil 3D里根据CAD点...

2019-06-02 16:36:46

阅读数 246

评论数 0

AutoCAD Civil 3D创建点文件描述码(点特征码)集控制展点样式与特性

测量人员对CASS格式的地形坐标数据文件格式都非常熟悉: 1,-64.3340,396.9300,2608.6380 2,-63.6600,399.6750,2611.6760 3,-62.6690,403.5490,2615.9310 4,-60.4640,412.3790,2625.6420 ...

2019-06-02 15:55:47

阅读数 131

评论数 0

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

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

2019-06-02 14:53:52

阅读数 70

评论数 0

Auto Lisp代码片断-读取CASS测量地形数据文件生成表

功能:读取CASS格式测量地形数据文件生成Lisp表用于后续处理。 (defun C:readDatFile (/ ptName ptSign ptE ptN ptH) (setq fi "F:\\lisp\\datfile.dat") (setq f (open fi...

2019-06-02 14:34:38

阅读数 45

评论数 0

Auto\Visual LISP代码片断

Auto\Visual LISP代码片断-创建对象创建直线对象创建多义线对象生成指定宽度的多义线创建文本对象创建点实体创建居中文本创建图层创建图层创建文本样式创建文本样式(注释性) 创建直线对象 ;用法:(EntMakeLine 起点X 起点Y 终点X 终点Y 颜色 层名) (defun EntM...

2019-06-02 11:15:47

阅读数 52

评论数 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

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