环境与引用步骤同：AutoCAD二次开发教程（1）-通过VB6绘制直线 1：绘制整圆 绘制代码如下： On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "Auto ...