关于ObobjectDBX技术

cag

能否利用ObjectDBX技术，在不打开一个图形的情况下，在该图形文件中画一条线？

雪山飞狐_lzh

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

cag

我用的是2002，为什么把ObjectDBX.AxDbDocument.16改为ObjectDBX.AxDbDocument.1就能用了，而不是改为ObjectDBX.AxDbDocument.15呢？

雪山飞狐_lzh

没有为什么，这是AutoDesk的问题，照做就行了