AutoCAD（VBA）中引用excel程序。
原创
2023-11-20 21:28:16
307阅读
AutoCAD VBA多重延伸，将多条直线延伸至同一条直线，代码如下。 Public Sub MultiExtend() Dim number As Integer Dim ObjSelectionSet As AcadSelectionSet number = ThisDrawing.SelectionSets.Count While...
转载
2011-03-22 20:06:00
218阅读
2评论
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
754阅读
2评论
AutoCAD VBA创建圆弧，已经圆心、起点和终点；圆心、起点和角度；三点法；圆心、起点和弧长等。代码如下。 ‘模块中代码 Public Function AddArcCSEA(ByVal ptCen As Variant, ByVal radius As Double, ByVal stAng As Double, ByVal enAng As Double) As AcadAr...
转载
2011-03-20 19:40:00
333阅读
2评论
AutoCAD VBA图案填充，包括图案填充、真彩色填充和渐变填充，代码如下。 Public Function AddHatch(ByRef objList() As AcadEntity, ByVal patType As Integer, ByVal parName As String, ByVal associativity As Boolean) As AcadHatch ...
转载
2011-03-21 15:00:00
528阅读
2评论
AutoCAD VBA对齐对象，代码如下。 Sub AlignEnt() Dim ss As AcadSelectionSet Set ss = CreateSelectionSet ss.SelectOnScreen Dim ent As AcadEntity Dim MinPoint As Variant ...
转载
2011-03-22 20:33:00
565阅读
2评论
AutoCAD VBA创建圆，包括利用圆心半径、圆心直径、两点法和三点发四种方式，代码如下。 Public Function AddCircle(ByVal ptCen As Variant, ByVal radius As Variant) As Variant Dim objCir As AcadCircle Set objCir = ThisDrawing.Mode...
转载
2011-03-20 16:52:00
141阅读
2评论
AutoCAD VBA面域操作，和图案填充类似，代码如下。 Public Function AddRegion(ByRef objList() As AcadEntity) As Variant On Error GoTo errHandle AddRegion = ThisDrawing.ModelSpace.AddRegion(objList) ...
转载
2011-03-21 15:51:00
313阅读
2评论
AutoCAD VBA简单文字操作，包括几个简单的文字操作函数，代码如下。 Public Function AddText(ByVal text As String, ByVal ptinsert As Variant, ByVal height As Double) As AcadText Set AddText = ThisDrawing.ModelSpace.AddTex...
转载
2011-03-21 13:57:00
475阅读
2评论
Autocad VBA初级教程(第一课:入门)
1.为什么要写这个教程
市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。
2.什么是Autocad VBA？
VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成
转载
2009-10-29 11:06:00
607阅读
2评论
AutoCAD VBA根据对象缩放，代码如下。代码完。
转载
2011-03-22 21:54:00
384阅读
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
193阅读
2评论
AutoCAD VBA选择集操作，示例代码如下。 Public Sub Test() Dim pt1(0 To 2) As Double Dim pt2(0 To 2) As Double Dim pt3(0 To 2) As Double Dim pt4(0 To 2) As Double Dim pt5(0 To 2)...
转载
2011-03-21 22:41:00
1309阅读
2评论
AutoCAD VBA欢迎程序，代码如下。 Public Sub HelloVba() Dim strname As String strname = InputBox("请输入你的名字", "helloVBA", "My Friend") MsgBox strname & "让我们在图形窗口中欢迎你！" Dim text As AcadText ...
转载
2011-03-19 21:57:00
808阅读
2评论
AutoCAD生成边界，VBA凸包算法
原创
2023-11-20 11:35:36
364阅读
点击查看代码 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
861阅读
2评论
AutoCAD VBA基于对象的分层，讲不同对象根据特性分层，代码如下。 Dim Value As Variant Value = ThisDrawing.GetVariable("cmdecho") ThisDrawing.SetVariable "cmdecho", 0 Dim ObjLayer As AcadLayer Set O...
转载
2011-03-22 22:23:00
263阅读
2评论
AutoCAD VBA文字自动对齐，代码如下。 Public Type TextWithPnt Index As Long TextObj As AcadText PntIntX As Double PntIntY As Double PntLeftX As Double PntMidX As Double PntRigX...
转载
2011-03-19 16:09:00
440阅读
2评论
利用VBA宏代码绘制直线，可以设置线性，设置直线颜色，对直线进行操作。 绘制直线主要用到addline函数，该函数接受两个参数，第一个参数指点直线起点startpoint，第二个参数指定直线终点endpoint，新的直线实例被添加到绘图空间。 定义绘制直线的函数creatline，代码如下。 Sub creatline() Dim startpoint(0 To 2) ...
转载
2011-06-01 21:56:00
277阅读
2评论
AutoCAD二次开发，按图层进行缩放操作，代码如下。 Private Function GetLeftBottomPt(ByRef ptArr() As Variant) As Variant Dim ptleftbottom(0 To 2) As Double Dim i As Long For i = 0 To UBound(ptArr) If ...
转载
2011-03-19 11:15:00
354阅读
2评论
