- 博客(8)
- 收藏
- 关注
RSS订阅
原创 microstation 批量插入单元和文字
这里写自定义目录标题Microstation利用VBA批量插入单元和文字需要的工具Microstation利用VBA批量插入单元和文字在油田总图绘制过程中，总是要批量插入井、间、站。我习惯的做法是，点状要素在一个图层，要素的注记在另一个图层，利用vba工具实现批量插入需要的工具详细工具如下：Microsoft Excel ；MICROSTATION VBA；cel文件真实代码如下...
2019-06-29 15:55:47
1338
原创 批量插入多段线
批量插入多段线利用autocadvba功能利用autocadvba功能Public ii% '定义全局变量，iiSub DrawPL()On Error Resume NextSet ExcelApp = GetObject(, “excel.Application”)If Err ThenErr.ClearSet ExcelApp = CreateObject(“excel.application”)If Err ThenMsgBox (“不能运行excel,检查是否安装了excel”
2020-09-17 10:53:35
409
1
原创 批量插入CAD块及标注（带程序运行计时功能）
'说明：'1、autocad 2010版本以下自带VBA编辑器，2010版本以上需要自行下载'2、按住ALT+F11，打开vba编辑器，工具-引用，勾选microsoft excel library'3、批量插入块时，需要提前插入块然后再删除，目的是让系统知道块的名字'4、文字样式需提前设置，设置成什么样式，插入时就是什么样式'''===============Sub ExcelR...
2020-04-29 08:17:48
1696
原创 Excel VBA连接ORACLE数据库
'装好oracle客户端，不需引用直接粘贴下列格式运行Sub connect()Dim strconnt As StringSet connt = New ADODB.ConnectionDim rs As ObjectSet rs = New ADODB.RecordsetDim sevip, Db, user, pwd As String'设服务器地址、所连数据，及登录用户密码...
2020-04-29 08:16:26
2160
原创 利用CAD VBA批量插入多段线
CAD VBA批量插入多段线，利用一维动态数组Sub aa() '定义一个运行过程Dim arr() As Double '定义一个空的动态数组m = 4 '随便定一个值nn = Array(7, 13, 15, 23) '定义一个数组，有几个代表最终生成几条线，数字加1 表示线的节点For mn = 0 To UBound(nn) '动态定义数组宽度n = nn(mn) '给数赋值...
2020-04-22 19:38:16
1705
原创 autocad vba从excel表格插入单条多段线
Sub DrawPL() On Error Resume Next Set ExcelApp = GetObject(, "excel.Application") If Err Then Err.Clear Set ExcelApp = CreateObject("excel.application") If Err Then ...
2020-04-19 10:47:02
456
原创 Microstation VBA记录
1 创建单元_creatcellelement2函数Sub cell2() '创建函数Dim ease As CellElement '定义一个单元对象Set ease = CreateCellElement2(“131110”, Point3dZero(), Point3dOne(), True, Matrix3dIdentity()) '设置该对象等于这些ease.Level = ...
2019-07-01 21:14:14
498
1
原创 Arcgis导出至Autocad的一些经验
1、 点要素针对点要素、注记要素点要素：添加cadtype、refname、layer字段，layer控制每一元素输出的图层，color控制每一个元素的颜色，颜色以cad索引颜色输入，1，2，3……cadtype赋值insert,refname输入块的名称，即可转出单元。颜色根据块的颜色来定义，无需单独设置★提前准备cad种子文件，包含所需要的块注记要素：layer字段一样，不再重复，下同...
2019-03-29 21:15:40
9460
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人