如何用VB为AUTO CAD创建选择集,提取选择集的属性?

发布网友发布时间：2024-10-21 04:56

共1个回答

热心网友时间：2024-10-26 01:01

Set objacad = GetObject(, "autocad.application")
Dim sset As AcadSelectionSet '定义选择集对象
Dim element As AcadEntity '定义选择集中的元素对象

Set sset = objacad.ActiveDocument.SelectionSets.Add("ss1") '新建一个选择集
sset.Select acSelectionSetPrevious '前一个选择集
sset.SelectOnScreen '提示用户选择

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com