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