求助！
<FONT id=text1 style="FONT-SIZE: 10pt" face="宋体,verdana, arial, helvetica">求助！要实现这样的功能：对某图层的所有图形逐一比较，然后完全一样的图形归一类，每一类图形抽一个放到一个集合中去逐一编辑,还要每一类图形的个数。<BR><BR><BR>**************<BR>以下是我的尝试：<BR>Dim sstext As AcadSelectionSet<BR>Dim FilterType(0) As Integer<BR>Dim FilterData(0) As Variant<BR>ThisDrawing.SelectionSets.Item("ss2").Delete<BR><BR>Set sstext = ThisDrawing.SelectionSets.Add("SS2")<BR>FilterType(0) = 0<BR>FilterData(0) = "Circle"<BR>sstext.SelectOnScreen FilterType, FilterData<BR>运行提示 FilterType 不能用在这里<BR><BR><BR>尝试：<BR>redim ss(o to ThisDrawing.ModelSpace.count-1) as AcadEntity<BR>……(不记得了^|^,因为是在网吧上网）<BR>之后遇到问题，怎样向一个选择集中不断添加我检测到的图形？？<BR>***************<BR>拜托师长！！</FONT> <P><FONT size=2>Dim sstext As AcadSelectionSet<BR>Dim FilterType(0) As Integer, FilterData(0) As Variant<BR>Dim GroupCode as variant, DataCode as variant</FONT><FONT size=2><BR>ThisDrawing.SelectionSets.Item("ss2").Delete<BR><BR>Set sstext = ThisDrawing.SelectionSets.Add("SS2")<BR>FilterType(0) = 0: FilterData(0) = "Circle"<BR></FONT><FONT size=2>GroupCode = <FONT size=2>FilterType</FONT>: DataCode = <FONT size=2>FilterData</FONT><BR>sstext.SelectOnScreen GroupCode, DataCode</FONT></P>
页:
[1]