hd464011547 发表于 2010-6-2 14:52:00

新手求助，大家帮帮忙

<p><font face="Verdana">Private Sub CommandButton1_Click()<br/>Dim ass As AcadSelectionSet<br/>Dim ftype As Integer<br/>Dim fdata As String<br/>ftype = 0<br/>fdata = "TEXT"<br/>Set ass = ThisDrawing.SelectionSets.Add("ass")<br/>ass.Select acSelectionSetAll, , , ftype, fdata<br/>sco = ass.Count<br/>MsgBox "选中对象数:" &amp; CStr(sco)<br/>End Sub</font></p>
<p><font face="Verdana">我想在选取图中的文字，怎么执行了没结果</font></p>

学至于行 发表于 2010-6-2 19:56:00

<p><font face="Verdana">Private Sub CommandButton1_Click()<br/>Dim ass As AcadSelectionSet<br/>Dim ftype（0） As Integer<br/>Dim fdata（0） As <font face="Verdana">Variant</font></font></p>
<p><font face="Verdana">ftype（0） = 0<br/>fdata（0） = "TEXT"<br/>Set ass = ThisDrawing.SelectionSets.Add("ass")<br/>ass.Select acSelectionSetAll, , , ftype, fdata<br/>sco = ass.Count<br/>MsgBox "选中对象数:" &amp; CStr(sco)<br/>End Sub</font></p>

hd464011547 发表于 2010-6-2 22:41:00

<p>谢谢二楼</p>
页: [1]
查看完整版本: 新手求助，大家帮帮忙