今天没有新动态
@胡伟明

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
  • 789
  • 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
  • 595
  • 0
  • 2
@胡伟明

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

本次我们通过VB来设置文档窗口,文档窗口就是我们绘制图形的黑色区域。 1:设置文档大小 代码如下: On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject ...
  • 0
  • 749
  • 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
  • 701
  • 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
  • 740
  • 0
  • 3