自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(7)
  • 资源 (7)
  • 收藏
  • 关注

原创 中海达Hi-Survey轨迹记录导出电脑端

中海达Hi-Survey轨迹记录导出电脑端

2023-08-18 10:05:53 664 1

原创 测绘南方Cass,CAD删除居民地(JMD)房屋内高程点 (GCD)

;LISP程序:测绘南方Cass,CAD删除居民地(JMD)房屋内高程点 (GCD)

2022-10-24 10:52:45 1783 2

原创 关于CAD字体打开乱码,字体自动替换LSP,默认simplex,hztxt

CAD自动字体替换

2022-10-24 10:47:35 2197

原创 农村削坡建房风险点详情表

本文通过根据前期调查的《农村削坡建房风险点详情表》excel信息表,及各个风险点的照片数据,再通过邮件功能批量生产《农村削坡建房风险点详情表》Word信息展示表格。1 我们先根据下村的调查数据整理出先关信息excel序号 风险点编号 经度 (度分秒) 纬度 (度分秒) 市 县 乡镇 村(居委会) 地名 (地段) 边坡最大高度(米) 边坡最大坡度(度) 边坡宽度(米) 边坡类别 坡脚距房屋最近距离(米)

2022-04-26 15:53:51 316

原创 Office Word 工作薄间工作表合并 VBA

在日常生活中,我们经常使用到Word;有时我们要将Word合并,这时候一个个复制站点体贴显得不那么方便快捷,这时候就要使用到Word自带的开发者工具,进行VBA编程实现。具体实现代码如下:Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.x.

2022-04-12 08:56:34 489

原创 AutoCAD Lisp LSP小程序 实现面积注记

(defun c:MJZJ()(if *error*(command "_boundary" (setq p1 (getpoint "\n点取要标注的封闭区域内部一点:")) ""))(setq EN (entlast))(command "area" "o" EN)(setq smj (getvar "area"))(setq imj smj)(setq smj (rtos smj 2 3))(setq smj (strcat "S=" smj "m2")) (if (= ht.

2022-04-02 15:18:28 1823

原创 CAD LISP 施工、规划设计点位的编号注记

CAD LISP 施工、规划设计点位的编号注记

2022-04-02 14:52:07 856

WORD OFFICE vba :docx转pdf、doc、rtf、txt

'docx转pdf、doc、rtf、txt Option Explicit Sub docx2other() On Error Resume Next Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String Dim CurDoc As Object sSourcePath = "E:\DOCX文件\" '假定待转换的docx文件全部在"E:\DOCX文件\"下,你需要按实际情况修改。 sEveryFile = Dir(sSourcePath &"*.docx") Do While sEveryFile "" Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse) sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".docx", ".pdf") '如果想导出doc/rtf/txt等,就把上一行行

2022-05-06

农村削坡建房风险点详情表

农村削坡建房风险点详情表

2022-04-26

Office Word利用邮件功能,批量插入照片(在同文件夹内)

生活中,我们往往需要制作通信录、明信片、介绍卡等;而这些就需要批量插入照片。例如班级通信录,我们需要通过表格Excel收集各个同学信息,再去制作成Word;同时收集了同学们的照片,照片放在同一文件夹里面。我们需要链接同学们的一张或者多张照片,Office Word邮件功能,配合插入文档部件>域,选择includepicture批量插入照片,对应修改域名末尾参数,实现插入各类照片(JPG,PDF,PNG等)。

2022-04-15

Office Word利用邮件功能,批量插入照片(不同文件夹内)

生活中,我们往往需要制作通信录、明信片、介绍卡等;而这些就需要批量插入照片。例如班级通信录,我们需要通过表格Excel收集各个同学信息,再去制作成Word;同时收集了同学们的照片,放在对应的文件夹里面。我们需要链接同学们的一张或者多张照片,Office Word邮件功能,配合插入文档部件>域,选择includepicture批量插入照片,对应修改域名末尾参数,实现插入各类照片(JPG,PDF,PNG等)。

2022-04-15

不动产单元设定与代码编制规则

不动产单元设定与代码编制规则适用于:不动产登记发证,房地一体等项目。

2022-04-12

CAD LISP 施工、规划设计点位的编号注记

CAD LISP 施工、规划设计点位的编号注记

2022-04-02

实现AutoCAD图纸快捷打印(房地一体,削坡建房,林权发改等项目)

1 AutoCAD;lisp; 2 在整饰大量CAD图纸,需要输出PDF、JPG等格式时,需要打印,但是每次都要点击打印页面并且设置参数,费事费力。 3 程序使用时需要在CAD命令栏中,输入Appload( 或 AP),在启动组>>内容>>加载Q-PLOT.LSP;可以自行设置输出类型,打印机,打印区域,比例尺等plot参数。 4 使用时快捷打印代码:QQ,Q1,Q2,Q3...

2022-03-23

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

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