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

关于ObobjectDBX技术

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

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

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

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的问题，照做就行了
页: [1]
查看完整版本: 关于ObobjectDBX技术