CAD中如何使用VBA程序自动绘制一个圆

1、打开CAD 2007,按快捷键alt+F11

2、在菜单栏选择插入,然后选择模块

3、在模块中输入以下代码

Sub 自动画圆()Dim p1(0 To 2) As Double '定义一个圆心点p1(0) = 100: p1(1) = 100: p1(2) = 0 '圆心的坐标值为100,100r = InputBox("请输入圆的半径")ThisDrawing.ModelSpace.AddCircle p1, rEnd Sub

4、运行代码，点击工具栏中的小三角

5、输入圆的半径

6、结果