这篇文章没有需要总结归纳的内容。
本文介绍了CAD设计中用prompt及selectonscreen函数进行命令行输入与选择集的方法。虽然用prompt可以提示命令栏输入，但无法避免选择提示消息。采用两点确定选择集的方式可以改变命令栏提示，但存在一次必须全部选择、选不完整则无法完成的问题。因此，一般情况下还是建议使用selectonscreen函数实现选择操作。
1、使用setO1=ADoc.ActiveSelectionSet进行前选的选择集设置。
2、使用ADoc.Utility.GetEntity获取文本所在位置。
3、将获取到的文本加入选择集中，使用setO1.AddItems At1。
4、按照上述步骤完成后，尝试进行操作。
该段内容是初学者对于CAD选择元素的理解，需要通过组码进行过滤。
高亮只是CAD自带的视觉效果，不能说明元素被选中。
VBA选择集操作确实不太容易，慢慢学吧，别急
1、Close 方法：关闭一个打开的 TextStream 文件。
2、语法：object.Close
3、应用于：TextStream 对象。
4、请参阅：
程序没错，可能是以下几个原因导致：
本文介绍了如何选择对象并建面域。
可以通过选择集取出实体对象再建面域，代码示例如下：
Public Sub ss_region()
Dim ss As AcadSelectionSet, region As Variant
Set ss = ThisDrawing.SelectionSets.Add("sss")
ss.SelectOnScreen
Dim ents() As AcadEntity
ReDim ents(ss.Count - 1)
Dim i As Integer
For i = 0 To ss.Count - 1
Set ents(i) = ss.Item(i)
Next i
ss.Delete
region = ThisDrawing.ModelSpace.AddRegion(ents)
End Sub
本文介绍了如何在CAD中将两个选择集合并为一个，具体方法为：
1、使用“thisdrawing.selection.add”命令将两个选择集添加到CAD中。
2、使用“for...next”命令将其中一个选择集的所有项都添加到另一个选择集中。
3、合并后即可得到一个完整的选择集。
该文介绍了一个CAD的VBA代码例子，用于向模型空间中添加一个新的MInsert块：
在最后一行代码中还提到了一个关于CAD帮助中的函数的具体用法。
本文链接：http://task.lmcjl.com/news/1829.html