关于donut绘制闭合圆环的问题
stefaniezhou
2011年07月20日 22:15:05
只看楼主

求高手,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 ' 发送画圆环命令

求高手,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

可是我是菜鸟不会操作啊,求详解,灰常谢谢
免费打赏

相关推荐

APP内打开