sccat 发表于 2005-3-2 11:15:00

[求助]主窗口不可见是什么问题

Private Sub CommandButton1_Click()<BR>Dim DataType(0 To 1) As Integer<BR>Dim Data(0 To 1) As Variant<BR>DataType(0) = 1001: Data(0) = TextBox1.Text<BR>DataType(1) = 1000: Data(1) = "String"


Dim ssetObj As AcadSelectionSet<BR>                       Dim elem As AcadObject<BR>                       <BR>                       On Error Resume Next<BR>                       ThisDrawing.SelectionSets("text").Delete<BR>                       Set ssetObj = ThisDrawing.SelectionSets.Add("text")<BR>                       Err.Clear<BR>                       On Error GoTo 0<BR>                       



                       <BR>                       ' Add objects to a selection set by prompting user to select on the screen<BR>                       'While (True)<BR>selectagain:<BR>                       ssetObj.SelectOnScreen<BR>                       For Each elem In ssetObj


                       Next<BR>               ' Wend<BR>               <BR>               <BR>               If ssetObj.Count &lt;&gt; 0 Then<BR>               ssetObj.Clear<BR>               GoTo selectagain<BR>               End If<BR>               <BR>                       ssetObj.Delete<BR>End Sub


在运行到


ssetObj.SelectOnScreen<BR>


时


提示错误：主窗口不可见



请问怎么可以解决啊？

sccat 发表于 2005-3-2 11:18:00

哦，解决了。


showmodel=false


旧问题了。
页: [1]
查看完整版本: [求助]主窗口不可见是什么问题