CAD怎么用vba程序自动画圆？

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

工具/软件

硬件型号：小新Pro14

系统版本：Windows7

所需软件：CAD2007

方法/步骤

第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步

结果