小美菜 发表于 2005-1-23 22:41:00

怎样获取指定颜色选择集

怎样获取指定颜色选择集，好像书上介绍的62和指定颜色序号选不出来


       For Each Fun检查并创建选择集 In ThisDrawing.SelectionSets<BR>                       If Fun检查并创建选择集.Name = WhatAttr Then i = 1111: Exit For<BR>       Next<BR>       If i = 1111 Then Fun检查并创建选择集.Clear Else Set Fun检查并创建选择集 = ThisDrawing.SelectionSets.Add(WhatAttr)<BR>       ReDim gpCode(0) As Integer<BR>       gpCode(0) = 62<BR>                       ReDim dataValue(0) As Variant<BR>                       dataValue(0) = 160<BR>                       <BR>                       Dim groupCode As Variant, dataCode As Variant<BR>                       groupCode = gpCode<BR>                       dataCode = dataValue<BR>                                       Fun检查并创建选择集.SelectOnScreen groupCode, dataCode

雪山飞狐_lzh 发表于 2005-1-24 21:17:00

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

小美菜 发表于 2005-1-25 20:11:00

谢谢，我已经捉摸过，的确如帮主之言
页: [1]
查看完整版本: 怎样获取指定颜色选择集