关于donut绘制闭合圆环的问题

求高手，AUTOCAD中用donut（默认快捷命令do）画的多个闭合圆环（均为内径1，外径100），想要批量改为内径1，外径150，怎么操作？（另：不是块，无法用块修改。有高手回答：需要加载相应的VBA文件才可修改 这是命令 但是我手头没有这个命令文件 楼主自己做个吧
If ent.ObjectName = “ArcDbCircle” then
ThisDrawing.SendCommand Chr(27) & “_dount” & vbCr & (2*R—Val(ComBox.Text)) & vbCr & (2*R+Val(ComBox.Text)) & VbCr & (center(0) & “,” & center(1)) & NL ' 发送画圆环命令
Ent.Delete
End if

可是我是菜鸟不会操作啊，求详解，灰常谢谢