下面是在VB中用函数连接CAD的代码:
Option Explicit Public acadObj As Object Public newDimStyle As Object Public AcadDoc As Object 'AutoCAD文档(图形文件)对象 Public moSpace As Object 'Model Space对象集合 Public paSpace As Object 'Paper Space对象集合
Public Function AcadOpen() '以下连接AutoCAD R14 On Error Resume Next Set acadObj = GetObject(, "AutoCAD.Application") If Err Then Set acadObj = CreateObject("AutoCAD.Application") Err.Clear End If acadObj.Visible = True End Function
在找到的资料中大多是用Sub 连接CAD的, 用上面的函数也可以实现,我是初学者,想弄明白二者在运行过程中有何区别 , 通过这个例子好好理解一函数和过程这两个概念 |