2022年12月的全部文章
@胡伟明

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
@胡伟明

TextBox拼接字符与变量

将常量与变量拼接后一起显示,示例代码如下: TextBox1="Hu" & a & "Wei" & b & "ming" Hu,Wei,ming为字符,a与b为变量,也就是字符写在""中,变量写在&  &中,假如a与b分别是100与200,那么最后显示为: Hu100Wei ...
  • 0
  • 638
  • 0
  • 0