标注样式中怎样设置箭头样式？_卡卡尼莫

个人资料

微博

正文字体大小：大中小

标注样式中怎样设置箭头样式？

(2011-01-13 13:22:23)

标签：

分类： C#-AutoCAD

刚在论坛里看到这个，暂时不用，将来肯定要用的，先整理一下。（论坛帖子位置：http://www.objectarx.net/forum.php?mod=viewthread&tid=1114&extra=page=1&page=1）

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

下面是一段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.其他一些关于标注方面的变量及变量所对应的部分见：http://hi.baidu.com/kakanimo/blog/item/f82177eda1cf7fdb2f2e2107.html

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report