新手问一个vb访问cad的问题.

sharksun

Private Sub Command1_Click() Dim acadApp As AcadApplication
Set acadApp = GetObject(, "AutoCAD.Application")
Set acadApp = CreateObject("AutoCAD.Application") Dim acadDoc As AcadDocument
Set acadDoc = acadApp.ActiveDocument Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
startPoint(0) = 1
startPoint(1) = 1
startPoint(2) = 0
endPoint(0) = 5
endPoint(1) = 5
endPoint(2) = 0 Set lineObj = acadDoc.ModelSpace.AddLine _
(startPoint, endPoint)
ZoomAll End Sub 这是一个在cad中画线的程序,我在vb中执行并通过了,但是用的是autocad2004.但是cad中没有生成线条啊.大家看看为什么啊, 谢谢了.