Question

vb和CAD的问题 代码不能在CAD中生成一条直线 求解啊

Private Sub Command1_Click()
Dim acadApp As AcadApplication
On Error
Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err
Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")

If Err Then
MsgBox (" error ")
Exit Sub

End
If
End If

acadApp.Documents.Add
acadApp.Visible = True
acadApp.WindowState =
acMax

Dim lineObj As AcadCircle

Dim P1(0 To 2) As Single
Dim P2(0 To
2) As Single
P1(0) = 500: P1(1) = 500: P1(2) = 0
P2(0) = 0: P2(1) = 0:
P2(2) = 0

Set lineObj = acadApp.ActiveDocument.ModelSpace.AddLine(P1, P2)

End Sub

Answer 1

Private Sub Command1_Click()
Dim AcadApp As Object '采用后期绑定，可以适用不同的CAD版本
Dim AcadDoc As Object
Dim MoSpace As Object
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox "没有安装CAD软件"
Exit Sub
End If
End If

Set AcadDoc = AcadApp.ActiveDocument
Set MoSpace = AcadDoc.modelspace
AcadApp.Visible = True
Dim lineObj As Object
Dim P1(0 To 2) As Double
Dim P2(0 To 2) As Double
P1(0) = 500: P1(1) = 500: P1(2) = 0
P2(0) = 0: P2(1) = 0: P2(2) = 0
Set lineObj = MoSpace.AddLine(P1, P2)
Set MoSpace = Nothing '释放对象
Set AcadDoc = Nothing
Set AcadApp = Nothing
End Sub

Answer 2

好象是"AutoCAD.Application"这个类名不正确的原因

一般后边还应该加 .17之类的 注意有个点 17是CAD2008版 如果你的电脑装的是其它版本，可能就不是17了

Dim lineObj As AcadCircle 这个好象也有问题 后边是圆 前边是线，不是同一个类型哦