|
下面是在VB中用函数连接CAD的代码:
Option Explicit
Public acadObj As Object
Public newDimStyle As Object
Public AcadDoc As Object '文档(图形文件)对象
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的, 用上面的函数也可以实现,我是初学者,想弄明白二者在运行过程中有何区别 , 通过这个例子好好理解一函数和过程这两个概念
|
|