CAD中如何使用VBA程序自动绘制一个圆
1、打开CAD 2007,按快捷键alt+F11
2、在菜单栏选择插入,然后选择模块
3、在模块中输入以下代码Sub 自动画圆()Dim p1(0 To 2) As Dou水瑞侮瑜ble '定狲辍嗨嘴义一个圆心点p1(0) = 100: p1(1) = 100: p1(2) = 0 '圆心的坐标值为100,100r = InputBox("请输入圆的半径")ThisDrawing.ModelSpace.AddCircle p1, rEnd Sub
4、运行代码,点击工具栏中的小三角
5、输入圆的半径
6、结果
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:39
阅读量:22
阅读量:77
阅读量:85
阅读量:48