怎样获取指定颜色选择集

小美菜

怎样获取指定颜色选择集，好像书上介绍的62和指定颜色序号选不出来 For Each Fun检查并创建选择集 In ThisDrawing.SelectionSets
If Fun检查并创建选择集.Name = WhatAttr Then i = 1111: Exit For
Next
If i = 1111 Then Fun检查并创建选择集.Clear Else Set Fun检查并创建选择集 = ThisDrawing.SelectionSets.Add(WhatAttr)
ReDim gpCode(0) As Integer
gpCode(0) = 62
ReDim dataValue(0) As Variant
dataValue(0) = 160

Dim groupCode As Variant, dataCode As Variant
groupCode = gpCode
dataCode = dataValue
Fun检查并创建选择集.SelectOnScreen groupCode, dataCode

雪山飞狐_lzh

如果实体的颜色为随层，62组码是没有的

小美菜

谢谢，我已经捉摸过，的确如帮主之言