![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vba
热爱代码的圈外人
这个作者很懒,什么都没留下…
展开
-
批量插入多段线
批量插入多段线利用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 · 432 阅读 · 1 评论 -
批量插入CAD块及标注(带程序运行计时功能)
'说明:'1、autocad 2010版本以下自带VBA编辑器,2010版本以上需要自行下载'2、按住ALT+F11,打开vba编辑器,工具-引用,勾选microsoft excel library'3、批量插入块时,需要提前插入块然后再删除,目的是让系统知道块的名字'4、文字样式需提前设置,设置成什么样式,插入时就是什么样式'''===============Sub ExcelR...原创 2020-04-29 08:17:48 · 1794 阅读 · 0 评论 -
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 · 2225 阅读 · 0 评论 -
利用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 · 1767 阅读 · 0 评论 -
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 · 467 阅读 · 0 评论 -
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 · 519 阅读 · 1 评论