[资料] 标注样式中怎样设置箭头样式？

萧闫子

设置尺寸线末端显示的箭头块。 要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。“新建标注样式”、“修改标注样式”和“替代当前样式”对话框中用于选择箭头块的项和名称如下所示。还可以输入用户定义的箭头块名称。 注意 注释性块不能用作标注或引线的自定义箭头。

""	实心闭合
"_DOT"	点
"_DOTSMALL"	小点
"_DOTBLANK"	空心点
"_ORIGIN"	原点标记
"_ORIGIN2"	原点标记 2
"_OPEN"	打开
"_OPEN90"	直角
"_OPEN30"	30 度角
"_CLOSED"	闭合
"_SMALL"	空心小点
"_NONE"	无
"_OBLIQUE"	倾斜
"_BOXFILLED"	实心框
"_BOXBLANK"	框
"_CLOSEDBLANK"	空心闭合
"_DATUMFILLED"	实心基准三角形
"_DATUMBLANK"	基准三角形
"_INTEGRAL"	完整标记
"_ARCHTICK"	建筑标记

下面是一段VB.NET代码

1. Public Shared Function GetArrowBlock(ByVal blkArrow As String) As ObjectId
   
2. Dim blkId As ObjectId
   
3. Dim oldVariable As String = Application.GetSystemVariable("DIMBLK")
   
4. Application.SetSystemVariable("DIMBLK", blkArrow)
   
5. Dim db As Database = HostApplicationServices.WorkingDatabase
   
6. Using trans As Transaction = db.TransactionManager.StartTransaction()
   
7. Dim bt As BlockTable = CType(trans.GetObject(db.BlockTableId, OpenMode.ForRead, False), BlockTable)
   
8. Dim btr As BlockTableRecord = CType(trans.GetObject(bt.Item(blkArrow), OpenMode.ForRead), BlockTableRecord)
   
9. blkId = btr.ObjectId
   
10. trans.Commit()
    
11. End Using
    
12. If oldVariable = "" Then
    
13. Application.SetSystemVariable("DIMBLK", ".")
    
14. Else
    
15. Application.SetSystemVariable("DIMBLK", oldVariable)
    
16. End If
    
17. Return blkId
    
18. End Function
    

复制代码

使用中一些问题：
1.新建一个标注样式，但使用的确是它的样式替代，如何删除样式替代
  使用Database.SetDimstyleData(dstr);
---------------------------------------
2.其他一些关于标注方面的变量及变量所对应的部分