wholin 发表于 2006-8-16 17:11:00

看看下面的阵列所选文本的代码错在那里？

<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim TextSSet As AcadSelectionSet<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.Utility.Prompt vbCr &amp; "选择单行文字："<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TextSSet.SelectOnScreen<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim RetVal As Variant<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; RetVal = TextSSet.ArrayRectangular(4, 4, 1, 10, 10, 1)</P>
<P>运行后报什么：运行时错误'91',对象变量或with块变量未设置.</P>

wyj7485 发表于 2006-8-16 18:41:00

<P>On Error Resume Next<BR>Dim TextSSet As AcadSelectionSet<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.Utility.Prompt vbCr &amp; "选择单行文字："</P>
<P>ThisDrawing.SelectionSets.Item("TextSSet ").Delete<BR>&nbsp;Set TextSSet = ThisDrawing.SelectionSets.Add("TextSSet ")</P>
<P><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TextSSet.SelectOnScreen<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim RetVal As Variant<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; RetVal = TextSSet.ArrayRectangular(4, 4, 1, 10, 10, 1)</P>

雪山飞狐_lzh 发表于 2006-8-17 10:07:00

<P>选择集没有ArrayRectangular方法!</P>
页: [1]
查看完整版本: 看看下面的阵列所选文本的代码错在那里？