关于选择集的问题
Dim acadApp As AcadApplication = CType(Application.AcadApplication, AcadApplication)Dim SSText As AcadSelectionSet
Dim FilterType(0) As Short
Dim FilterData(0) As Object
Dim i As Integer
FilterType(0) = 0
FilterData(0) = "*TEXT"
SSText = acadApp.ActiveDocument.SelectionSets.Add("text")
SSText.SelectOnScreen(FilterType, FilterData)
此代码在类模块下可以，为何在窗体下不好用呢？
页:
[1]