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