mlyd 发表于 2007-4-16 10:10:00

[求助]VB开发，选择集问题

<p>我用VB写了一段选择集程序，目的是选择图纸中所有文本，但在运行时总会出现“参数FilterType (位于SelectOnSCreen中) 无效”这样的提示，程序如下：</p><p>Private Sub Form_Load()<br/>&nbsp;&nbsp;&nbsp; Dim AcadDocs As Object<br/>&nbsp;&nbsp;&nbsp; Set AcadDocs = AcadApp.Documents<br/>&nbsp;&nbsp;&nbsp; Set AcadDocs = AcadDocs.Open("H:\新建文件夹\标准件汇总表.dwg")<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Dim Selset As AcadSelectionSet<br/>&nbsp;&nbsp;&nbsp; Dim FType As Integer<br/>&nbsp;&nbsp;&nbsp; Dim FData As Variant<br/>&nbsp;&nbsp;&nbsp; Dim entry As AcadEntity</p><p>&nbsp;&nbsp;&nbsp; Set Selset = AcadDocs.SelectionSets.Add("text")</p><p>&nbsp;&nbsp;&nbsp; FType = 0<br/>&nbsp;&nbsp;&nbsp; FData = "TEXT"<br/>&nbsp;&nbsp;&nbsp; <font color="#ff0000">Selset.SelectOnScreen FType, FData&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '&lt;----出问题处</font></p><p><br/>&nbsp;&nbsp;&nbsp; For Each entry In Selset<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Text1.Text = entry.ObjectID<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Text1.Text = entry.ObjectName</p><p>&nbsp;&nbsp; &nbsp;Next entry<br/>End Sub</p><p>还请高手指点。</p><p>谢谢！</p>

fjfhgdwfn 发表于 2007-4-16 12:15:00

<p>Dim FType(0) As Integer<br/>&nbsp;&nbsp;&nbsp; Dim FData(0) As Variant</p><p>试试</p>

mlyd 发表于 2007-4-16 14:59:00

<p>果然如此，修改之后没问题啦！</p><p>谢谢！</p>

JimPan 发表于 2007-4-24 21:30:00

<p>&nbsp;&nbsp;&nbsp; 看这样行吧?</p><p>&nbsp;&nbsp;&nbsp; Dim FType(0) As Integer<br/>&nbsp;&nbsp;&nbsp; Dim FData(0) As Variant<br/>&nbsp;&nbsp;&nbsp; Dim entry As AcadEntity</p><p>&nbsp;&nbsp;&nbsp; Set Selset = AcadDocs.SelectionSets.Add("text")</p><p>&nbsp;&nbsp;&nbsp; FType(0) = 0<br/>&nbsp;&nbsp;&nbsp; FData(0) = "TEXT"<br/>&nbsp;&nbsp; 或者通过函数</p><p>&nbsp;&nbsp; BuildFilter Ftype,Fdate,0,"Text"</p>
页: [1]
查看完整版本: [求助]VB开发，选择集问题