我用VB写了一段选择集程序,目的是选择图纸中所有文本,但在运行时总会出现“参数FilterType (位于SelectOnSCreen中) 无效”这样的提示,程序如下:
Private Sub Form_Load()
Dim AcadDocs As Object
Set AcadDocs = AcadApp.Documents
Set AcadDocs = AcadDocs.Open("H:\新建文件夹\标准件汇总表.dwg")
Dim Selset As AcadSelectionSet
Dim FType As Integer
Dim FData As Variant
Dim entry As AcadEntity
Set Selset = AcadDocs.SelectionSets.Add("text")
FType = 0
FData = "TEXT"
Selset.SelectOnScreen FType, FData '
For Each entry In Selset
Text1.Text = entry.ObjectID
Text1.Text = entry.ObjectName
Next entry
End Sub
还请高手指点。
谢谢!
看这样行吧?
Dim FType(0) As Integer
Dim FData(0) As Variant
Dim entry As AcadEntity
Set Selset = AcadDocs.SelectionSets.Add("text")
FType(0) = 0
FData(0) = "TEXT"
或者通过函数
BuildFilter Ftype,Fdate,0,"Text"