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