vba开发[原创]

hezhenhn

在利用vba创建一个选择集并过虑时为何提示出错如
Public Sub test()
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("layer1")
sset.SelectOnScreen 8, "d"
'd是图层名
End Sub 请高手指教 急！！！

efan2000

Public Sub test()
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("layer1")
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 8
dataValue(0) = "d"
sset.SelectOnScreen gpCode, dataValue
End Sub
过滤机制是由一个组码和值构成的数组。

hezhenhn

谢谢版主的指导，另外我想 再问一个问题：我有很多幅图，每个图有很多个图层，但是每个图幅的图层划分都是一样的，原来每个图层的elevation的值都是唯一的，现在需要重新赋值一遍其他的值，如原来是333现在要改为444，如果要每幅图打开以后每个图层重新操作一遍很繁琐，请问我该如何作，更何况不是每个object都有elevation属性，例如块就没有elevation属性，