zhu1 发表于 2004-9-10 10:44:00

请问,关于选择集的使用

Sub SSet()<BR>'On Error Resume Next<BR>Dim SsetObj As AcadSelectionSet<BR>Dim filterType(0) As Integer, FilterDate(0) As Variant<BR>filterType(0) = 0<BR>FilterDate(0) = "Circle"<BR>ThisDrawing.SelectionSets("AA").Delete<BR>Set SsetObj = ThisDrawing.SelectionSets.Add("AA")<BR>SsetObj.SelectOnScreen filterType, FilterDate


<FONT color=#3d11ee>Dim entry As AcadEntity<BR>Dim p As Variant<BR>For Each entry In SsetObj<BR>entry.color = acCyan<BR>entry.Update<BR>Next entry<BR>End Sub</FONT>


<FONT color=#e61abd>我的问题是如何在兰色部分的遍历代码中,获得每个对象(圆)的圆心坐标?</FONT>

雪山飞狐_lzh 发表于 2004-9-10 18:44:00

Center属性
页: [1]
查看完整版本: 请问,关于选择集的使用