|
|
Private Sub Command1_Click()
Dim acadApp As AcadApplication
Set acadApp = GetObject(, ".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中没有生成线条啊.大家看看为什么啊, 谢谢了. |
|
置顶卡
