谁帮我一下，这个过程能选中圆线，怎么能选择指定块，谢谢

wanchr

Sub mysel()
Dim sset As AcadSelectionSet '定义选择集对象
Dim element As AcadEntity '定义选择集中的元素对象
Set sset = ThisDrawing.SelectionSets.Add("ss1") '新建一个选择集
sset.SelectOnScreen '提示用户选择
For Each element In sset '在选择集中进行循环
  element.color = acGreen '改为绿色
Next
sset.Delete '删除选择集
End Sub

花开富贵

我只知道要加个选择条件，具体怎么写不知道，坐等结果

jh3030912

我也需要类似的

chixun99

楼主代码根据颜色选择一般是指定了颜色的图元才会被选中，图块本身的颜色不是根据指定颜色显示的。
一般图块只显示块定义内图元的颜色，或者块定义内0层图元的颜色bylayer时随图块所在层的颜色，而图元颜色指定了byblock方可显示图块本身指定的颜色。
这样描述是否能看得明白？

wanchr

大哥，我问的是选择集，框中的选择集怎么选到指定块的问题。