大家好，我是小溜，有些朋友可能在CAD绘图工作中经常需要做一些重复性的工作，也想到了能不能通过程序自动来做这些工作呢？可是又不知道怎么实现，在这里小溜就来讲解一下CAD怎么用vba程序自动画圆吧！

硬件型号：小新Pro14

系统版本：Windows7

所需软件：CAD2007

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

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

在模块中输入以下代码

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

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

输入圆的半径

结果