vb 中调用 cad

Private Sub Command1_Click()

'首先引用 acad 2009 Object Library类型库

Dim myAcadApp As AutoCAD.AcadApplication, activeDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadModelSpace

On Error Resume Next

Set myAcadApp = GetObject(, "Autocad.Application") '检查AutoCAD是兆余否已兄信经打开

If Err <>0 Then '没有族尘滚打开

Err.Clear

Set myAcadApp = CreateObject("Autocad.Application") '打开CAD

If Err Then

MsgBox Err.Number &":" &Err.Description '打开失败

Exit Sub

End If

End If

On Error GoTo prcERR

myAcadApp.Visible = True '显示CAD

Set activeDoc = myAcadApp.ActiveDocument

Dim startPoint(0 To 2) As Double

Dim endPoint(0 To 2) As Double

Dim LineObj As AcadLine'如果画图时出错，改为Dim LineObj As Object

startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0

endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0

Set LineObj = activeDoc.ModelSpace.AddLine(startPoint, endPoint) '画线

prcExit:

Set activeDoc = Nothing

Set myAcadApp = Nothing

Exit Sub

prcERR:

MsgBox Err.Number &":" &Err.Description, vbCritical, "错误"

Resume prcExit

End Sub

VB中一个对象名字叫app

App

对象是通过关键字

App

访问的全局对象。它指定如下信息:应用程序的标题、版本信息、可执行文件和帮助文件的路含租径及名称以及是否运行前一个应用程序的示例。

app.path就是表示当前程序所在的目录。

你可以用它和你的程序行相结合来找到相对路径

不过从你的叙述来看，你胡闷可能更需要下面的信息。

为可执行文件显示或设置一个搜索路径。

PATH

[[drive:]path[...][%PATH%]

PATH

键入

PATH

清除所有搜索路径设置并指示

cmd.exe

只在当前

目录中搜索。

键入

PATH

但不加参数，显示当前路径。

将

%PATH%

包括在新的路径设置中会将旧裤老弯路径附加到新设置。

这样，你把path变量加入你的acad路径，只要调用acad.exe即可，并不需要指定位置。

因为你不给悬赏分，我也懒得写更多了，祝好运。

---