社区 › VB › [求助]画直线

anqiong518 发表于 2004-12-22 21:53:00

[求助]画直线

不好意思,我第一次接触这个用VB编CAD
能帮我看一下这个程序
Dim acadapp As .AcadApplication
Private Sub Command1_Click()
Call 连接AutoCAD
Dim s(2) As Double
Dim e(2) As Double
s(0) = 0: s(1) = 100: s(2) = 0
e(0) = 0: e(1) = 100: e(2) = 0
Dim a As AutoCAD.AcadLine
a = acadapp.ActiveDocument.ModelSpace.addline(s, e)
acadapp.ZoomExtents
End Sub
Public Sub 连接AutoCAD()
On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.Application")
If Err Then
               Err.Clear
               Set acadapp = CreateObject("AutoCAD.Application")
               If Err Then
                               MsgBox Err.Description
                               Exit Sub
               End If
End If
acadapp.Visible = True
acadapp.WindowState = acMax
AppActivate (acadapp.Caption)
End Sub
运行的时候,它总出问题,怎么回事呢

sieben 发表于 2004-12-23 08:14:00

1,Set a = acadapp.ActiveDocument.ModelSpace.addline(s, e)
2,要注意是否已引用AutoCAD类型库

查看完整版本: [求助]画直线