tpmao 发表于 2002-8-5 09:35:00

版主大人，怎样做一个层的选择集，也就是只对单层进行操作！！

谢谢

leeyeafu 发表于 2002-8-5 11:37:00

这样

Dim SSelText As AcadSelectionSet
Set SSel = ThisDrawing.SelectionSets.Add("ss")
SSel.SelectOnScreen 8,"LayerX"'8为DXF码，表示图层，LayerX为图层名
页: [1]
查看完整版本: 版主大人，怎样做一个层的选择集，也就是只对单层进行操作！！