[求助]请高手看看，关于VB调用AutoCAD的，总有错语

zdm860114

代码如下，请各位大哥们看看，最后一句总有问题

初学这个，不太懂，请各位指教指教！在此谢过！

Dim Acsdapp As AcadApplication
Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.application")
If Err Then
   Err.Clear
   Set AcadApp = CreateObject("autocad.application")
If Err Then
   MsgBox ("不能运行AutoCAD")
   Exit Sub
   End If
End If
AcadApp.Visible = Ture
End Sub

Private Sub Command1_Click()
Dim a, b As Single
Dim lineobj As AcadLWPolyline
Dim points(0 To 9) As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
points(0) = 0: points(1) = 0
points(2) = points(0) + a: points(3) = points(1)
points(4) = points(2): points(5) = points(3) + b
points(6) = points(0): points(7) = points(5)
points(8) = points(0): points(9) = points(1)
Set lineobj = AcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)
ZoomAll
End Sub

Saging

ZoomAll？？？？？

是不是漏了什么？？？

zdm860114

我也不太明白，反正到

Set lineobj = AcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)
这一句就出问题了

大家帮我看看啊，到底是那里出问题了

不胜感激！

兰州人

这是VB模块调用的概念问题，首先要学点VB知识。你执行这个语句，

用F9将这条语句中断，

Set lineobj = AcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)

在本地窗口中看AcadApp是不是为Nothing，学点VB这个问题很容易解决。

Saging

    Private Sub Command1_Click()
        Dim a, b As Single
        Dim lineobj As AutoCAD.AcadLWPolyline
        Dim points(9) As Double

        Acadapp = GetObject(, "autocad.application")
        If Err.Number Then
            Err.Clear()
            Acadapp = CreateObject("autocad.application")
            If Err.Number Then
                MsgBox("不能运行AutoCAD")
                Exit Sub
            End If
        End If

        Acadapp.Visible = True
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        points(0) = 0 : points(1) = 0
        points(2) = points(0) + a : points(3) = points(1)
        points(4) = points(2) : points(5) = points(3) + b
        points(6) = points(0) : points(7) = points(5)
        points(8) = points(0) : points(9) = points(1)
        lineobj = Acadapp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)
        Acadapp.ZoomAll()
    End Sub

在VB.NET 2003中调试通过.

zzyong00

zdm860114发表于2009-3-14 14:45:00我也不太明白，反正到Set lineobj = AcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)这一句就出问题了大家帮我看看啊，到底是那里出问题了不胜感激！

 问问题，要问的明白，才能回答的明白，“出问题了”，出什么问题了？错误提示是什么？你没给出来，在我看来，哪代码没什么问题

pmq

Dim Acsdapp As AcadApplication   应为Acadapp
Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject(, "autocad.application")
If Err Then
   Err.Clear
   Set AcadApp = CreateObject("autocad.application")
If Err Then
   MsgBox ("不能运行AutoCAD")
   Exit Sub
   End If
End If
AcadApp.Visible = Ture
End Sub

AirCD

呵呵，居然是代码敲错了，楼主该好好检查啊。犯这种错误不大应该。

votasee

还是这里好啊...

我最近也开始学习VB开发CAD.结果却一懂不懂!

下面这段代码引自帮助文件上的示例代码..

Sub Example_AddCircle()
    ' 该示例在模型空间中创建圆。
   
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    
    ' 定义圆
    centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    radius = 5#
    
    ' 在模型空间中创建圆对象
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
    ZoomAll
    
End Sub

结果却弄死也不对.楼主的程序我拿来一用.却对了.哈哈...

原来这个THISdrawing..要改为Acadapp.Activedocumnet汗...

syk070205

对了，Acadapp = GetObject(, "autocad.application"),这一句应该为：set Acadapp = GetObject(, "autocad.application"),否则你创建的应用程序对象无效！