求高手,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 ' 发送画圆环命令
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
可是我是菜鸟不会操作啊,求详解,灰常谢谢