Sub Test()
Dim pnt(2) As Double, dot(2) As Double
Dim objDbx As Object
dot(1) = 10
Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
objDbx.Open "c:\1.dwg"
objDbx.ModelSpace.AddLine pnt, dot
objDbx.SaveAs "c:\2.dwg"
Set objDbx = Nothing
End Sub
置顶卡
