您可以将对象添加到活动选择集中。 使用以下任一方法将对象添加到选择集:
将选定对象添加到选择集本示例提示用户选择对象,然后将这些对象添加到选择集中。 Sub Ch4_AddToASelectionSet()
' Create a new selection set
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS1")
' Prompt the user to select objects
' and add them to the selection set.
' To finish selecting, press ENTER.
sset.SelectOnScreen
End Sub
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-10-29 06:02
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.