![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
AutoCAD
热爱代码的圈外人
这个作者很懒,什么都没留下…
展开
-
批量插入多段线
批量插入多段线利用autocadvba功能 利用autocadvba功能 Public ii% '定义全局变量,ii Sub DrawPL() On Error Resume Next Set ExcelApp = GetObject(, “excel.Application”) If Err Then Err.Clear Set ExcelApp = CreateObject(“excel.application”) If Err Then MsgBox (“不能运行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 评论 -
利用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 评论