社区 › VB › 关于ObobjectDBX技术

cag 发表于 2004-6-9 08:10:00

关于ObobjectDBX技术

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

雪山飞狐_lzh 发表于 2004-6-9 08:48:00

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 发表于 2004-6-9 09:24:00

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

雪山飞狐_lzh 发表于 2004-6-9 09:30:00

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

查看完整版本: 关于ObobjectDBX技术