AutoCAD VBA尺寸标注，包括转角标注、对齐标注、角度标注、半径标注、直径标注和坐标标注，代码如下。 Public Function AddDimAligned(ByVal pt1 As Variant, ByVal pt2 As Variant, ByVal ptText As Variant) As AcadDimAligned Set AddDimAligned =...
转载
2011-03-21 21:55:00
601阅读
2评论
AutoCAD VBA标注圆弧长度，代码如下。 Public Sub DimArcLeng() Dim Arc As AcadArc Dim Pnt As Variant Err.Clear On Error Resume Next ThisDrawing.Utility.GetEntity Arc, Pnt, "请选择圆弧：" I...
转载
2011-03-19 19:24:00
167阅读
2评论
使用pinyin-pro这个npm包 github: https://github.com/zh-lx/pinyin-pro特色功能 支持汉字、词语、句子多种格式输入获取 获取拼音 获取声母 获取韵母 获取拼音首字母 获取音调 获取多音字的多种拼音 支持字符串和数组两种输出形式 版本更新 当前版本： 3.0.7 -> 3.1.0增加获取拼音首字母功能 修复 readme 中音调形式参数 to
CAD制图时，经常会遇到需要使用CAD文字、标注等命令完善图纸参数信息内容的情况。尤其是在标注连续性数字信息、或者批量修改相同文字内容时，传统做法是使用文字命令+复制命令+文字修改来完成，常常需要耗费大量的时间。浩辰CAD提供了新思路，设计师可以使用文字递增标注功能、批量修改文字功能来高效应对上述情况。所以大家别再一个个CAD复制、修改了，试试这些高效方法吧！ 1. 文字递增标注功能文字
转载
2023-09-28 01:02:49
61阅读
前几天有网友提出这样的需求，文件夹里有n个txt文档，每个文档的内容都是一列数据，现在需要将所有txt导入到Excel，按列排放，如果手动操作的话，那是相当耗时间的，今天我来讲一下用VBA怎么快速实现将txt文档批量导入至Excel。首先，创建一个Excel宏文件，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub写入以下代码00Sub inTxt()01 Dim
Python 支持两种类型的注释，分别是单行注释和多行注释。Python 单行注释Python 使用井号#作为单行注释的符号，语法格式为：# 注释内容从井号#开始，直到这行结束为止的所有内容都是注释。Python 解释器遇到#时，会忽略它后面的整行内容。说明多行代码的功能时一般将注释放在代码的上一行，例如：#使用print输出字符串
print("Hello World!")
print("C语言
转载
2023-09-06 19:57:37
199阅读
问题描述： 在ppt vba中如果要循环批量删除Shape对象，会遇到很多困难。比如当执行如下For Each … In 的vba代码删除ppt中第一页的所有图片后，会发现并没有将图片全部删除：Sub DeleteBrandLogo()
Dim pre As PowerPoint.Presentation, shp As PowerPoint.Shape, Sli As PowerPoi
在CAD绘图过程中，当需要进行有大量CAD坐标标注时，该如何操作呢？下面就来和小编一起来了解一下浩辰CAD建筑中关于批量标注普通坐标的相关操作步骤吧！CAD批量标注普通坐标操作步骤：首先打开浩辰CAD建筑软件；然后找到菜单位置，建筑设计→总图设计→坐标标注(ZBBZ)；点击对话框中的批量标注普通坐标按钮后，框选标注坐标用的特征点作为坐标标注点，一次标注多个坐标点。显示批量标注对话框如下图所示：1、
在开始建筑测量之前我们会根据施工总平面定位图上的提供的坐标用全站仪或者GPS放样出需要的点，但是总图提供的坐标只有3到4个，如果能把基础图套上坐标特别是桩基础的，那么就可以轻而易举的查看出每颗桩或基础轴线的坐标1、首先我们需要有甲方提供的总图和基础平面布置图的电子版图纸。2、复制一份基础平面布置图并改名为“ 例如：29#基础套坐标图 ”大家随意只要辨别区分就可以了。 总图，这里提供了三个坐
上文提到文件名的录入，那么，如果文件名是不规律的呢，找找老朋友Excel，VBA可以做到。
在要提取文件名的文件夹中新建一个Excel文档，“工具”--“宏”--“Visual Basic编辑器”--“插入”--“模块”，粘贴以下内容：
Sub 提取同目录下文件名()
转载
精选
2012-02-28 17:31:19
3663阅读
点击查看代码 Public Sub MyCMD_导出VBA代码() Const Module = 1 Const ClassModule = 2 Const Form = 3 Const Document = 100 Const Padding = 24 Dim VBComponent As Obj ...
转载
2021-10-09 19:50:00
783阅读
2评论
前几天有网友提出这样的需求，文件夹里有n个txt文档，每个文档的内容都是一列数据，现在需要将所有txt导入到Excel，按列排放，如果手动操作的话，那是相当耗时间的，今天我来讲一下用VBA怎么快速实现将txt文档批量导入至Excel。首先，创建一个Excel宏文件，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub写入以下代码00 Sub inTxt()01 Dim tx
条码软件(Label mx)按数量字段批量打印标签不少客户在打印标签的时候有这样的需求，不同的产品标签需要打印的数量不同，拿服装吊牌来说，连衣裙吊牌尺寸一般是S、M、L，如果S码需要5个，M码需要12个，L码需要9个，这些信息都在同一个数据库里且每款只有一条记录，只是标明了各自打印的数量， 使用 Label mx 轻松实现上述三个尺寸的标签的不同数量的批量打印，具体步骤如下： 一、打开
利用VBA可以轻松地将某文件夹下的所以WORD文档中的某个字符串全部替换为其他字符串。下面是具体操作步骤。 第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。 第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。 第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。 第四，双击该按钮，进入VB
0基础到做程序真的好累 还有很多功能没实现
原创
2021-09-03 23:31:59
4849阅读
Private Sub 导出图片_Click()Application.ScreenUpdating = False On Error Resume Next MkDir ThisWorkbook.Path & "\图片" ActiveSheet.Shapes For Each PIC In ShapesIf PIC.Type = msoPicture Then RN = PIC.Top
转载
2021-03-27 10:18:56
3503阅读
3评论
1 任务需求 首先，我们来明确一下本文所需实现的需求。 现有所绘制的北京市在2019年05月18日00时至23时（其中不含19时）等23个逐小时PM2.5浓度插值数据栅格图层，每小时一个图层，因此共23个图层；以当日10时为例，该时刻的栅格图层如下所示。 我们希望做到的有两点。首先，我们可以看到前述23个栅格图层的符号系统都为灰度拉伸的状态，因此希望按照一个给定的模板图层文件m.lyr，调整
记录一下实现这个功能的过程，每天实现一点点，上班开心一点点直接上源码（软件：UiFox）/*
// 控件库已经录制好的控件，不启用此处代码。但是源代码需要直接复制到其他地方使用的时候，需要启用此处代码，否则会报控件不存在
// 为方便理解，这里的控件都用中文命名，UiFox支持中文变量，这点很适合小白
var 微信搜索框,托盘按钮,微信托盘图标
微信搜索框 = [ { "aid" : null,
一、为什么要搞？前几天有同学在讨论家中小盆友的作业问题，说连一些拼音作业的难度已经超出了能力范围，感叹自己已经比不上现在的小学生了。听得滋滋有味的我又产生了一个大胆的想法：使用Python自动给文本标注拼音并把对应的拼音标注到每个文字的上方预期输出示例如下：二、准备如何搞？查阅一番资料后，发现一个神奇的库：pypinyin，可以轻松将汉字文本转换为拼音先来安装pypinyinpip install
分享一个关于Excel下拉框多选，并且支持搜索的案例点击下载示例Excel文件（内含代码）
相信接触过Excel的同学都知道，Excel的下拉框本身不支持多选，只能单选，但是如果业务一定要你能够支持多选怎么办呢？于是便要从Excel的宏说起了（有关于Excel的宏的概念请左转百度搜索，这里只讲如果实现）效果预览输入筛选词后：第一步、新建xlsx工作表，打开后另存为启用宏的工作簿，即xlm格式第二步
