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