从外部文件复制标注样式或文字样式

fanny_6

Sub textadd()
    Dim objDBX As Object
    Set objDBX = CreateObject("ObjectDBX.AxDbDocument.16")
   
    objDBX.Open "C:\\test.dwg"
   
    Dim objDimStyle As AcadDimStyle
    Set objDimStyle = objDBX.DimStyles.Item("INDOOR")
   
    objDBX.CopyObjects objDimStyle, ThisDrawing.DimStyles
   
    Set objDBX = Nothing

End Sub

功能是把C:\test 的 indoor 标注样式 复制到当前图形

运行到粗体的那段时出错，怎样改

谢谢

雪山飞狐_lzh

[WEB]http://www.vba.cn/object/acad2004/idh_copyfrom.htm[/WEB]

fanny_6

好像不大一样的，仍未解决

fanny_6

利用ObjectDBX技术导入其它图形中的图层设置和文字样式设置

本文作者：mccad(明以CAD社区 管理员)     利用ObjectDBX技术，我们可以做很多以前从没有听说的事情，这也许在国内还没有人去试过吧。     在VBA和LISP专栏中，大家可以看到我们利用该技术来插入其它图形中的图块，这应该算是复杂的编程方法，一些简单一点的就是通过该技术修改未打开图形的一些对象属性等，或查找一些有用的信息等。     你可以通过该技术打得到未打开图形的图形特性(也就是图形特性框中显示的内容)。     在这里我们再介绍一些很好用的技术。     我们在做软件时可以附一个模板给用户，按以前的做法，一定要要求用户使用你指定的模块做为图形样板， 这样才能做到你软件的准确性。     后来有些程序就是什么图层、标注样式、文字样式等都是通过程序来生成。     现在没有这个必要了，我们可以通过一个模板，把你的设置的东西全部放到模板文件中，然后通过ObjectDBX技术直接从模板里面取出放引入到当前图形中。     其实代码很简单： '插入外部图形配置好的图层 Sub InsLayer() Dim objDbx As AxDbDocument Dim objLayer(0) As Object Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16") objDbx.Open "c:\1.dwg" Set objLayer(0) = objDbx.Layers("3") objDbx.CopyObjects objLayer, ThisDrawing.ModelSpace Set objDbx = Nothing End Sub '插入外部图形配置好的文字样式 Sub InsStyle() Dim objDbx As AxDbDocument Dim objStyle(0) As Object Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16") objDbx.Open "c:\1.dwg" Set objStyle(0) = objDbx.TextStyles("hztxt") objDbx.CopyObjects objStyle, ThisDrawing.ModelSpace Set objDbx = Nothing End Sub     使用以上代码时注意如果当前图形中存在相同名称的样式时，则不能导入，但也不会出错，所以在导入前先判断同名的样式是否存在，存在时则不要导入。     例子中只举了引入图层和引入文字样式的例子，其它如标注样式、线型均可以通过这个方法来做，特别是线型，如果你线型中存在有特殊定义的东西，用导入的方法比直接编程要方便得多。      另外，在导入图层时，如果图层中有配套的线型也会同时被导入。而不必先编程导入线型。

返回目录

 

参照一下这个，问 标注样式 应该怎样写？？？？？？

雪山飞狐_lzh

objStyle是数组，而不是对象

fanny_6

i know.thanks