AutoCAD VBA选择集操作

最新推荐文章于 2026-06-27 09:05:44 发布

转载

最新推荐文章于 2026-06-27 09:05:44 发布 · 5.5k 阅读

收录于

当前文章被以下社区和专栏收录：

这篇博客介绍了如何在AutoCAD中使用VBA进行选择集操作，包括创建线、圆、弧，设置选择集过滤器，以及改变选中对象颜色和删除元素。示例代码展示了如何选择交叉区域内的弧、圆和椭圆，并将它们设为红色，最后删除所选元素。

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) As Double
Dim ObjLine As AcadLine
Dim objCir As AcadCircle
Dim objArc As AcadArc
pt1(0) = 0: pt1(1) = 0: pt1(2) = 0
pt2(0) = 5: pt2(1) = 8: pt2(2) = 0
pt3(0) = 15: pt3(1) = 0: pt3(2) = 0
pt4(0) = 15: pt4(1) = 8: pt4(2) = 0
pt5(0) = 20: pt5(1) = 0: pt5(2) = 0
Set objCir = AddCirCR(pt1, 1)
AddCirCR pt3, 3
AddCirCR pt5, 5
Set ObjLine = AddLine(pt1, pt2)
AddLine pt4, pt5
Set objArc = AddArc3Pt(pt1, pt3, pt4)
On Error Resume Next
Dim SSet As AcadSelectionSet
If Not IsNull(ThisDrawing.SelectionSets.Item("Example")) Then
Set SSet = ThisDrawing.SelectionSets.Item("Example")
SSet.Delete
End If
Set SSet = ThisDrawing.SelectionSets.Add("Exam