Humbertogo 发表于 2008-2-5 03:53:27

属性的文本旋转角度

如何在插入块后更改属性
的文本旋转角度
**** Hidden Message *****

Humbertogo 发表于 2008-2-5 04:27:47

已解决Dim objAttRef As AcadAttributeReference
    If objblkRef.HasAttributes Then
      varAttributes = objblkRef.GetAttributes
    For i = LBound(varAttributes) To UBound(varAttributes)
            Set objAttRef = varAttributes(i)
               objAttRef .textString = intnum
               objAttRef .Rotation = 0
    Next i

编辑CmdrDuh:添加了代码标记
页: [1]
查看完整版本: 属性的文本旋转角度