apollotime 发表于 2006-10-27 15:10:00

AcadSelectionSet　取图元颜色和线型，

<P>AcadSelectionSet　取图元颜色和线型，在不同图层内，只以取到２５６这个值</P>
<P>代码如下：</P>
<P>Sub main()<BR>&nbsp; Dim sets As AcadSelectionSet<BR>&nbsp; Dim i As Integer<BR>&nbsp; Set sets = ThisDrawing.SelectionSets.Add("Select")<BR>&nbsp; sets.SelectOnScreen<BR>&nbsp; For i = 0 To sets.Count - 1<BR>&nbsp;&nbsp;&nbsp; MsgBox "当前颜色值为：" &amp; sets.Item(i).color<BR>&nbsp; Next i<BR>&nbsp; sets.Delete<BR>End Sub<BR></P>
<P>谢谢！！！</P>
页: [1]
查看完整版本: AcadSelectionSet　取图元颜色和线型，