自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

Qin Dong

注册测绘师、高级工程师 github.com/Qin-Dong

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

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

2019-06-10 17:15:26 1255

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

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

2019-06-10 17:05:02 210

原创 AutoCAD VBA点抽稀程序

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

2019-06-09 15:46:24 530

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

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

2019-06-08 11:34:02 415

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

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

2019-06-07 17:16:53 5335

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

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

2019-06-07 15:45:07 468

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

惠普HP Prime计算器是一个比较好用的计算器,它的程序源代码是纯文本字符,不象CASIO计算器的程序代码会用到许多特殊字符,除了在计算器上编程时输入外,在电脑上只有用替换的折中方法,给编程和共享带来不小的麻烦。惠普HP Prime计算器的程序完全可以在计算机上用文本编辑软件进行输入,再传到计算器上直接拷入即可。更方便的是网上有安卓版的模拟器,可以安装在安卓手机上,功能齐全,几乎是全功能模式,不...

2019-06-07 15:14:03 909

原创 AutoLISP笔记——常用代码片断

1、字符串按指定分隔符分隔;;;功能:字符串按指定分隔符分隔;;;(split "1,,255280.791,3743764.732,2786.206" ",");;;返回:("1" "" "255280.791" "3743764.732" "2786.206")(defun split (str delim / LST POS) (while (setq pos (vl-str...

2019-06-06 14:43:40 1098

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

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

2019-06-05 17:19:46 622

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

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

2019-06-05 17:14:03 828 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 nil ) (setq fi "F:\\lisp\\datfile2.dat") (se...

2019-06-05 17:03:50 336

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

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

2019-06-05 08:34:19 924

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

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

2019-06-04 11:45:01 406

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

语法:(ssget [sel-method] [pt1 [pt2]] [pt-list] [filter-list])ssget 的参数均为可选参数,需要注意的是可选参数之间的组合条件。以下语法表示中 尖括号代表必选,[parameter] 方括号代表可选。一、选择集的窗口参数[sel-method] 字符串类型,不区分大小写,指定一个选择方法。[pt1 [pt2]] 表类型,由...

2019-06-03 16:06:59 5044

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

使用AutoCAD Civil 3D打开CASS生成的地形图,由于CASS地形图中的地形点是以块形式存在的,虽然我们可以使用CAD的图元对象中的块进行曲面定义,但这样做的结果就是虽有曲面但没有对应的地形点。我们需要将块状地形点转换成CAD的点对象,再在AutoCAD Civil 3D里根据CAD点生成Civil 3D格式的点对象,并加入点编组用于后组定义曲面或导出等操作。以下代码的使用方法是,用...

2019-06-02 16:36:46 2040

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

测量人员对CASS格式的地形坐标数据文件格式都非常熟悉:1,-64.3340,396.9300,2608.63802,-63.6600,399.6750,2611.67603,-62.6690,403.5490,2615.93104,-60.4640,412.3790,2625.6420文件格式为:Pn,E,N,H在Pn和坐标E之间的空白字段其实是点的特征码,用于指定该点对应的地物地形...

2019-06-02 15:55:47 1150

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

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

2019-06-02 14:53:52 354

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

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

2019-06-02 14:34:38 393

原创 Auto\Visual LISP代码片断

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

2019-06-02 11:15:47 203

原创 测量计算方位角万能公式及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} $ 为了使除数不为零而加一个很小的数(注:在参与计算前加一个极小值后参与sign函数计算,这样sign(ΔY\Delta YΔY)就只会出现1或-1两种情况...

2019-06-02 11:13:21 472

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