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对象的组合和拆散，很好用的操作，代码如下。 Sub AddUnNameGroup() Dim SelObjects As AcadSelectionSet Dim appendObjs() As AcadEntity Set SelObjects = GetSelSet Dim UnNameGroup As Aca...
转载
2011-03-22 21:11:00
283阅读
2评论
AutoCAD VBA创建椭圆和样条曲线，代码如下。 Public Function AddEllipse(ByVal ptCen As Variant, ByVal ptmajAxis As Variant, ByVal radRatio As Double) As AcadEllipse Set AddEllipse = ThisDrawing.ModelSpace.Add...
转载
2011-03-20 20:24:00
308阅读
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评论
Lineweight属性控制图形在屏幕上可以显示不同的宽度，线宽的使用包括设置线宽和显示线宽，线宽的设置与显示可以使用户在绘图中减少差错。 设置线宽 Lineweight属性设置线宽，语法格式：object.Lineweight。 Lineweight属性值不能任意设置，而是由内置常数决定，编程输入时将自动显示出来供选择，线宽默认单位为毫米，Lineweight属性默认值为25，即...
转载
2011-06-15 22:23:00
267阅读
2评论
可以对Viewport对象的栅格Gride、捕捉Snap和正交Ortho模式进行设置，使绘图定位更加精确。在VB中可以对上面的属性进行控制。 ActiveViewport对象的GrideOn属性可以改变栅格的显示状态，栅格显示时，可作为绘图的向导。 acadapp.ActiveDocument.ActiveViewport.GridOn = True acadapp.Active...
转载
2011-06-11 22:32:00
99阅读
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阅读
AutoCAD（VBA）中引用excel程序。
原创
2023-11-20 21:28:16
307阅读
制图标准规定，不同意义的线型需要不同的线型来描述。 使用线型 Linetype为线型对象，是线型集合的成员，通过破折号、点和空格的不同组合，行程不同的线型，每一个图形文件，系统均自动创建了3个线型对象：BYLARER，BYBLOCK和CONTINUOUS。 对象在创建时的线型继承所在的图层的线型，要使用其线型，首先用Linetype对象的Load方法装载线型，然后用Document对...
转载
2011-06-15 21:31:00
111阅读
2评论
