请教!
各位高手小弟请教2个程序!一个是有关改变直线颜色的程序!(上传的那个)现程序运行不报错,但直线颜色不改变.只是将所有直线的颜色属性由随层颜色,改为随块颜色.我用的是2004版本!请教高手该问题出现的原因.
第二个问题是关于选择对象的问题:
Sub Getusersselection()
Dim usersselection As AcadSelectionSet
Dim drawingseleced As AcadEntity
With ThisDrawing
On Error Resume Next
.SelectionSets("currentselection").Delete
MsgBox "select object hit enter to finish!"
Set usersselection = ?
.SelectionSets.Add ("currentselection")
usersselection.SelectOnScreen
For Each drawingselected In usersselection
drawingselected.color = acGreen
Next
End With
End Sub
程序中红色部分报错!程序运行到信息框出现就停止,而没有在命令行中出现要求选择对象的提示,请高手指点!
谢谢大家!