胡说 发表于 2006-1-19 21:22:00

[VBA]我程序中的一个问题，弱弱地问！！

<P>&nbsp;&nbsp;&nbsp;&nbsp;以下变量已经定义。<BR>&nbsp;&nbsp;&nbsp; inttmp = 0<BR>&nbsp;&nbsp;&nbsp; For inti = 0 To sngSum - 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If <FONT style="BACKGROUND-COLOR: #828877" color=#f70909>ssetObj.Item(inti).ObjectName</FONT> = "AcDbCircle" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ssetCircle = ssetObj.Item(inti)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ssetCircle.Radius = sngPileD / 2 Then inttmp = inttmp + 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; Next inti</P>

<P>选中部位出错。出错信息如下：</P>
<P>方法“ITEM”作用于对象“IACADSelectionset”时失败。</P>
<P>什么原因？各位大侠。</P>

xinghesnak 发表于 2006-1-20 14:49:00

<P>你的ssetObj声明的是什么东东？是selection吗？selection好像不支持你的Item这种方法吧？用这个：</P>
<P>for each object in ssetObj</P>
<P>&nbsp;&nbsp;&nbsp; XXXXXXXXXXXXXXXXXX</P>
<P>next</P>
<P>&nbsp;</P>
页: [1]
查看完整版本: [VBA]我程序中的一个问题，弱弱地问！！