[资料] 标注样式中怎样设置箭头样式？
设置尺寸线末端显示的箭头块。 要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。“新建标注样式”、“修改标注样式”和“替代当前样式”对话框中用于选择箭头块的项和名称如下所示。还可以输入用户定义的箭头块名称。 注意 注释性块不能用作标注或引线的自定义箭头。""实心闭合
"_DOT"点
"_DOTSMALL"小点
"_DOTBLANK"空心点
"_ORIGIN"原点标记
"_ORIGIN2"原点标记 2
"_OPEN"打开
"_OPEN90"直角
"_OPEN30"30 度角
"_CLOSED"闭合
"_SMALL"空心小点
"_NONE"无
"_OBLIQUE"倾斜
"_BOXFILLED"实心框
"_BOXBLANK"框
"_CLOSEDBLANK"空心闭合
"_DATUMFILLED"实心基准三角形
"_DATUMBLANK"基准三角形
"_INTEGRAL"完整标记
"_ARCHTICK"建筑标记
下面是一段VB.NET代码
Public Shared Function GetArrowBlock(ByVal blkArrow As String) As ObjectId
Dim blkId As ObjectId
Dim oldVariable As String = Application.GetSystemVariable("DIMBLK")
Application.SetSystemVariable("DIMBLK", blkArrow)
Dim db As Database = HostApplicationServices.WorkingDatabase
Using trans As Transaction = db.TransactionManager.StartTransaction()
Dim bt As BlockTable = CType(trans.GetObject(db.BlockTableId, OpenMode.ForRead, False), BlockTable)
Dim btr As BlockTableRecord = CType(trans.GetObject(bt.Item(blkArrow), OpenMode.ForRead), BlockTableRecord)
blkId = btr.ObjectId
trans.Commit()
End Using
If oldVariable = "" Then
Application.SetSystemVariable("DIMBLK", ".")
Else
Application.SetSystemVariable("DIMBLK", oldVariable)
End If
Return blkId
End Function
使用中一些问题：
1.新建一个标注样式，但使用的确是它的样式替代，如何删除样式替代
使用Database.SetDimstyleData(dstr);
---------------------------------------
2.其他一些关于标注方面的变量及变量所对应的部分
页:
[1]