在程序中插入属性块中的属性中属性的文字如何为当前的字体。

petty

请教，我用lisp或vba设定的属性块在程序中插入时，属性的文字字体在设置属性时就定了，请教如何实现让属性块的属性文字跟随当前的字体，即：当前字体为宋体，插入属性块时，字体即为宋体。当前为其它字体，插入的属性块中的字体即换为其它字体。

雪山飞狐_lzh

你把它设成"Standard"就可以了

efan2000

插入块之后，更改属性的文字样式。

2.   Dim vAttRefs As Variant
3.        vAttRefs = blockRefObj.GetAttributes
4.        For i = LBound(vAttRefs) To UBound(vAttRefs)
5.                vAttRefs(i).StyleName = hisDrawing.ActiveTextStyle.name
6.        Next

  Dim vAttRefs As Variant        vAttRefs = blockRefObj.GetAttributes        For i = LBound(vAttRefs) To UBound(vAttRefs)                vAttRefs(i).StyleName = hisDrawing.ActiveTextStyle.name        Next

petty

谢谢楼上的朋友，你真是个大好人

xizhu119

真的感谢，正在编这个东西，不知道里面的关键字是StyleName，谢谢