今天没有新动态
@胡伟明

AutoCAD二次开发教程(7)-通过VB6创建填充

1:实体填充 完整代码如下: On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "AutoCAD.Application.17.1") Set docObj = acadApp.Application.Doc ...
  • 0
  • 591
  • 0
  • 3
@胡伟明

AutoCAD二次开发教程(6)-通过VB6绘制辅助线

1:绘制构造线 代码如下: On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "AutoCAD.Application.17.1") Set docObj = acadApp.Application.Docum ...
  • 0
  • 419
  • 0
  • 2
@胡伟明

AutoCAD二次开发教程(5)-通过VB6设置文档窗口

本次我们通过VB来设置文档窗口,文档窗口就是我们绘制图形的黑色区域。 1:设置文档大小 代码如下: On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject ...
  • 0
  • 505
  • 0
  • 4
@胡伟明

AutoCAD二次开发教程(4)-通过VB6设置AutoCAD窗口

1:更改AutoCAD窗口位置与大小 代码如下 : On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject(, "AutoCAD.Application.17.1") Set docObj = acadApp.A ...
  • 0
  • 487
  • 0
  • 3
@胡伟明

AutoCAD二次开发教程(3)-通过VB6绘制点并设置样式

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