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 ...
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 ...
函数或过程的名字不能跟模块的名字一样
不然会报错，会提示：“<类型名>是一个类型,不能用作表达式”。
AutoCAD二次开发教程（5）-通过VB6设置文档窗口
本次我们通过VB来设置文档窗口，文档窗口就是我们绘制图形的黑色区域。 1：设置文档大小 代码如下： On Error Resume Next ' 连接至 AutoCAD 应用程序 Dim acadApp As AcadApplication Dim docObj As AcadDocument Set acadApp = GetObject ...
TextBox拼接字符与变量
将常量与变量拼接后一起显示，示例代码如下： TextBox1="Hu" & a & "Wei" & b & "ming" Hu，Wei，ming为字符，a与b为变量，也就是字符写在""中，变量写在& &中，假如a与b分别是100与200，那么最后显示为： Hu100Wei ...
